wpolicy.dpr

以前用delphi+kol写的监视工具

{ 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.