process.dpr

来自「delphi开发的进程监视程序」· DPR 代码 · 共 19 行

program Process;

uses
  Windows,
  Forms,
  Main in 'Main.pas' {FormProc},
  AutoStart in 'AutoStart.pas';

{$R *.res}

begin
  if FindWindow('TApplication', 'ProcessGuard2007') <> 0 then exit;
  Application.Initialize;
  Application.Title := 'ProcessGuard2007';
  Application.CreateForm(TFormProc, FormProc);
  Application.ShowMainForm := False;
  Application.Run;
end.