home *** CD-ROM | disk | FTP | other *** search
/ BUG 15 / BUGCD1998_06.ISO / desktop / hotkey / hotkey95.exe / Source / Hotkeys.dpr < prev    next >
Text File  |  1998-02-13  |  829b  |  33 lines
  1. program HotKeys;
  2.  
  3. uses
  4.   Forms,
  5.   Windows,
  6.   hkEdit in 'hkEdit.pas' {frmHotkeyEdit},
  7.   hkAbout in 'hkAbout.pas' {frmAbout},
  8.   hkError in 'hkError.pas' {frmHotkeyError},
  9.   hkList in 'hkList.pas' {frmHotkeyList},
  10.   hkSend in 'hkSend.pas';
  11.  
  12. {$R *.RES}
  13.  
  14. var
  15.   hwndApp : THandle;
  16.  
  17. begin
  18.   hwndApp := FindWindow('TfrmHotkeyEdit', nil);
  19.   if hwndApp<>0 then
  20.    SendMessage(hwndApp, WM_EDITKEYS, WM_EDITKEYS, 0)
  21.   else
  22.    begin
  23.      Application.Initialize;
  24.      Application.Title := 'HotKeys';
  25.      Application.HelpFile := 'Hotkeys.hlp';
  26.      Application.CreateForm(TfrmHotkeyEdit, frmHotkeyEdit);
  27.      Application.CreateForm(TfrmAbout, frmAbout);
  28.      Application.CreateForm(TfrmHotkeyError, frmHotkeyError);
  29.      Application.CreateForm(TfrmHotkeyList, frmHotkeyList);
  30.      Application.Run;
  31.    end;
  32. end.
  33.