delphi 禁止程序创建子进程

use Windows

var

  MutexHandle:HWND

begin

  MutexHandle:=CreateMutex(nil, True, 'application1.exe')

  if GetLastError = ERROR_ALREADY_EXISTS 空困then

  begin

    Application.MessageBox('application.exe已经执明亏则行', '确定﹚', MB_OK +MB_ICONWARNING)

    Application.Terminate

    Exit

  end

  Application.Initialize

  Application.CreateForm(Tform, form1)

  Application.Run

end.

试一下，看是不你要激棚的。

我建议你安装个风云防火墙，有个人版的，免费，或者别的防火墙也可以，他们都能对进程以及注册表进行监控，如果有程序要创建新进程或者是写入注册表，就会喊宽提示，你自则渗姿己允许或者阻止就行了。我一直用风云防火墙，我觉得不错，这不是广告，你可孙绝以按喜好选择。

---