hotkeys.dpr

Delphi 开发的的热键操作 很值得看的

program HotKeys;

uses
  Forms,
  Windows,
  hkEdit in 'hkEdit.pas' {frmHotkeyEdit},
  hkAbout in 'hkAbout.pas' {frmAbout},
  hkError in 'hkError.pas' {frmHotkeyError},
  hkList in 'hkList.pas' {frmHotkeyList},
  hkSend in 'hkSend.pas',
  hkSelect in 'hkSelect.pas' {frmSelect},
  hkClpbrd in 'hkClpbrd.pas';

{$R *.RES}

var
  hwndApp : THandle;

begin
{$IFNDEF DEBUG}
  hwndApp := FindWindow('TfrmHotkeyEdit', nil);
  if hwndApp<>0 then
   SendMessage(hwndApp, WM_EDITKEYS, WM_EDITKEYS, 0)
  else
   begin
{$ENDIF}
     Application.Initialize;
     Application.Title := 'HotKeys';
     Application.HelpFile := 'Hotkeys.hlp';
     Application.CreateForm(TfrmHotkeyEdit, frmHotkeyEdit);
  Application.CreateForm(TfrmAbout, frmAbout);
  Application.CreateForm(TfrmHotkeyError, frmHotkeyError);
  Application.CreateForm(TfrmHotkeyList, frmHotkeyList);
  Application.CreateForm(TfrmSelect, frmSelect);
  Application.Run;
{$IFNDEF DEBUG}
   end;
{$ENDIF}
end.