phunter.dpr

来自「进程获取工具。process hunter」· DPR 代码 · 共 24 行

program phunter;


uses
  windows, Unit1, Forms; 

{$R *.res}

var
 hWindow: dword;

begin
 hWindow := FindWindow('TForm1', 'Process Hunter (Hidden processes detector) by Ms-Rem');
 if hWindow > 0 then
  begin
    SetForegroundWindow(hWindow);
    ExitProcess(0);
  end;
 Application.Initialize;
 Application.Title := 'Process Hunter';
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.