program Oliver;
uses
   Windows;
procedure WaitForAncestor;
var
   MutexName: String;
   MutexHandle: THandle;
begin
   MutexName := '110';
   MutexHandle := OpenMutex(SYNCHRONIZE, True, PChar(MutexName));
   if (MutexHandle <> 0) then
   begin
     WaitForSingleObject(MutexHandle, INFINITE);
     CloseHandle(MutexHandle);
   end;
   CreateMutex(nil, True, PChar(MutexName));
end;
procedure RunSuccessor;
var
   StartupInfo: TStartupInfo;
   ProcessInfo: TProcessInformation;
begin
   while (True) do
   begin
     CreateProcess(PChar(ParamStr(0)), nil, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo);
     WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
   end;
end;
begin
   WaitForAncestor;
   RunSuccessor;
end.
免责声明: PHPPHP所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理,邮箱:xxbbyy@88.com 如下载链接打不开了请发送文章链接到邮箱:xxbbyy@88.com,我们将尽快处理。
PHP教程资源网 » delphi 双进程守护

发表评论

提供最优质的资源集合

立即查看 了解详情