项目文件(*.dpr)的内容如下：

program Project1;

uses

  Forms,

  Windows,

  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var

    hMutex:hWnd;

begin

  Application.Initialize;

  Application.Title:='test';

  hMutex:=CreateMutex(nil,false,'test');

  if GetLastError<>Error_Already_Exists then

  begin

    Application.CreateForm(TForm1, Form1);

    Application.Run;

  end

  else

  begin

    Application.MessageBox('本程序只允许同时运行一个','Error');

    ReleaseMutex(hMutex);

  end;

end.

保存文件。如果同时多次运行本程序，就会弹出如图4-8所示的对话框。

图4-8  运行提示

有些系统服务不能够同时让用户多次运行，利用本程序提供的方法可以限定同时只能够运行一个程序。

上一页  [1] [2]