procedure TForm1.FormCreate(Sender: TObject); var errNO:integer; hMutex:HWND; begin hMutex:=CreateMutex(nil,False,pchar(application.title)); errNO:=GetLastError; If errNO=ERROR_ALREADY_EXISTS Then begin //检测是否重复运行 application.MessageBox('软件重复运行','重复运行',MB_OK); application.Terminate; end; //初始化变量 end;
var
errNO:integer;
hMutex:HWND;
begin
hMutex:=CreateMutex(nil,False,pchar(application.title));
errNO:=GetLastError;
If errNO=ERROR_ALREADY_EXISTS Then begin //检测是否重复运行
application.MessageBox('软件重复运行','重复运行',MB_OK);
application.Terminate;
end;
//初始化变量
end;