unit_frmmain.pas

a service application sample wrote with delphi ide tools.

unit unit_frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmMain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    id: Integer; 
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY; 

  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  gbCanClose: Boolean;
implementation
const RSP_SIMPLE_SERVICE=1; 
{function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL'; }

{$R *.dfm}


procedure TfrmMain.WMHotKey (var Msg : TWMHotKey);
begin 
  if msg.HotKey = id then
     ShowMessage('Ctrl+Alt+R was pressed!');
     frmMain.Visible :=true;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
Const
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  VK_R = 82;
begin
   if GlobalFindAtom('MyHotkey') = 0 then
      begin
         id:=GlobalAddAtom('MyHotkey');
         RegisterHotKey(handle,id,MOD_CONTROL+MOD_Alt,VK_R);
      end
   else
      halt;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  {RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE); }
  frmMain.Hide;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
   close;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   UnRegisterHotKey(handle,id); 
   GlobalDeleteAtom(id);
end;

end.