wpolicy.~dpr

来自「以前用delphi+kol写的监视工具」· ~DPR 代码 · 共 29 行

{ KOL MCK } // Do not remove this line!
program wpolicy;

uses
KOL,
  windows,
  messages,
  Unit1 in 'Unit1.pas' {Class_wpolicy},
  uglobal in 'uglobal.pas';
//{$R *.res}
begin // PROGRAM START HERE -- Please do not remove this comment


 getSysparm;
 if FindWindow(nil,pchar(G_Title))<>0 then begin
   SendMessage(FindWindow(nil,pchar(G_Title)),wm_queryendsession,0,0);
   sleep(200);
 end;
{$IFDEF KOL_MCK}
{$I wpolicy_0.inc} {$ELSE}
  Application.Initialize;
  Application.CreateForm(TClass_wpolicy, Class_wpolicy);
  Application.Run;

{$ENDIF}

end.