父亲的一生：①生一个儿子。如果儿子被杀了，再生一个！②工作。

冥界3大法王

delphi 双进程守护

这是一个关于父亲与儿子的故事：

父亲的一生：①生一个儿子。如果儿子被杀了，再生一个！
             ②工作。

儿子的一生：等着父亲被杀，取而代之（成为父亲）。

这则故事已经完整地表达了我想要表达的全部思想，我们可以通过假设“父亲被杀了”或“儿子被杀了”来领会它。

[Delphi] 纯文本查看 复制代码

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.

swjia

楼主可以悄悄的写本关于delphi的书了，或者用Delphi写一个可以广为流传的应用程序，也让后世记住你。

白衣国度

精辟，我是沙发

aaabbbcc123

这也可以？啊

syrmb

哦 传说中的互斥体

yylwhy

这个例子 跪了跪了

阿傑

会不会同时被杀了呢

红蓝黄

实在是太残忍了

yiwanyiwan

生动不错

cherrypi

机器的世界真的是没有感情的。