如何防止一个程序执行两次

Tags: /超级猛料/API.Windows应用程序接口/进程/   Date Created:

如何防止一个程序执行两次
这是一个比较简单的防止程序执行两次的方法
implementation
var hnd: THandle;
initialization
   hnd := CreateMutex(nil, True, 'irgendwaseinmaliges');
   if GetLastError = ERROR_ALREADY_EXISTS then Halt;
finalization
   if hnd <> 0 then CloseHandle(hnd);
end.