unit1_1.inc

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

{ KOL MCK } // Do not remove this line!
const N4 = 0;
const N3 = 1;
const N1 = 2;
const N2 = 3;


procedure NewClass_wpolicy( var Result: PClass_wpolicy; AParent: PControl );
begin

  New( Result, Create );
  Result.Form := NewForm( AParent, 'Class_wpolicy' ).SetPosition( 161, 177 ).SetSize( 399, 243 );
  Applet :=  Result.Form;
  Result.Form.Add2AutoFree( Result );
    Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
    Result.Form.HasCaption := False;
      Result.Form.OnClose := Result.KOLForm1Close;
      Result.Form.OnQueryEndSession := Result.KOLForm1QueryEndSession;
    NewMenu( Result.Form, 0, [ '' ], nil );

    Result.PopupMenu1 := NewMenu( Result.Form, 0, [ 
      'List disable programs', 'List ExePath', 'Show', 'Exit'
      , '' ], nil );
    Result.PopupMenu1.AssignEvents( 0, [ Result.PopupMenu1N4Menu ] );
    Result.PopupMenu1.AssignEvents( 1, [ Result.PopupMenu1N3Menu ] );
    Result.PopupMenu1.AssignEvents( 2, [ Result.PopupMenu1N1Menu ] );
    Result.PopupMenu1.AssignEvents( 3, [ Result.PopupMenu1N2Menu ] );

    Result.Client:=newtcpclient;
    Result.Client.port:=0;
    Result.Client.host:='';
  Result.Form.Add2AutoFree( Result.Client );
      Result.Client.OnConnect := Result.ClientConnect;
      Result.Client.OnDisconnect := Result.ClientDisconnect;
      Result.Client.OnError := Result.ClientError;
      Result.Client.OnReceive := Result.ClientReceive;
      Result.Client.OnStreamReceive := Result.ClientStreamReceive;

    Result.srv:=NewTCPServer;
    Result.srv.port:=0;
  Result.Form.Add2AutoFree( Result.srv );
      Result.srv.OnError := Result.srvError;
      Result.srv.OnClientReceive := Result.srvClientReceive;
      Result.srv.OnClientStreamSend := Result.srvClientStreamSend;
      Result.srv.OnClientStreamReceive := Result.srvClientStreamReceive;

    Result.WatchThread := NewThreadAutoFree( nil );
    Result.WatchThread.OnExecute := Result.WatchThreadExecute;
    Result.WatchThread.PriorityClass := IDLE_PRIORITY_CLASS;
    Result.WatchThread.ThreadPriority := THREAD_PRIORITY_IDLE;

    Result.Timer1 := NewTimer( 60000 );
  Result.Form.Add2AutoFree( Result.Timer1 );
      Result.Timer1.OnTimer := Result.Timer1Timer;
    // Result.Memo1.TabOrder = 0
    Result.Memo1 := NewEditBox( Result.Form, [ eoMultiline, eoReadonly ] ).SetAlign ( caTop ).SetSize( 0, 199 );
    Result.Memo1.Color := clWindow;
    // Result.Button2.TabOrder = 1
    Result.Button2 := NewButton( Result.Form, 'About' ).SetPosition( 216, 208 );
      Result.Button2.OnClick := Result.Button2Click;
    // Result.Button1.TabOrder = 1
    Result.Button1 := NewButton( Result.Form, 'OK' ).SetPosition( 96, 208 );
      Result.Button1.OnClick := Result.Button1Click;
    Result.Button1.DefaultBtn := TRUE;
    Result.Form.CenterOnParent;
    Result.KOLForm1FormCreate( Result );

end;