untswapmouse.~pas

1.注册服务 2.快捷键

unit untSwapMouse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,Forms;

type
  TSwapMouse = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    { Private declarations }

  public
    function GetServiceController: TServiceController; override;

    { Public declarations }
  end;

var
  SwapMouse: TSwapMouse;

implementation

uses Unit1;

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  SwapMouse.Controller(CtrlCode);
end;

function TSwapMouse.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;



procedure TSwapMouse.ServiceStart(Sender: TService; var Started: Boolean);
begin
  Started := true;
  Application.CreateForm(TForm1, Form1);
  Form1.Hide;
end;

procedure TSwapMouse.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  //Form1.Destroy;
end;

end.