Unit1.pas

   1 unit Unit1;
   2
   3 interface
   4
   5 uses
   6   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs,
   7   Vcl.AppEvnts;
   8
   9 type
  10   TService1 = class(TService)
  11     procedure ServiceCreate(Sender: TObject);
  12   private
  13     { Private \90é\8c¾ }
  14   public
  15     function GetServiceController: TServiceController; override;
  16     { Public \90é\8c¾ }
  17   end;
  18
  19 var
  20   Service1: TService1;
  21
  22 implementation
  23
  24 {$R *.dfm}
  25
  26 procedure ServiceController(CtrlCode: DWord); stdcall;
  27 begin
  28   Service1.Controller(CtrlCode);
  29 end;
  30
  31 function TService1.GetServiceController: TServiceController;
  32 begin
  33   Result := ServiceController;
  34 end;
  35
  36 procedure TService1.ServiceCreate(Sender: TObject);
  37 begin
  38   Keybd_event(VK_LWIN,0,0,0);
  39   Keybd_event(Ord('M'),0,0,0);
  40   Keybd_event(Ord('M'),0,KEYEVENTF_KEYUP,0);
  41   Keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);
  42 end;
  43
  44 end.