home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 February / PCWorld_1999-02_cd.bin / temacd / HotKeys / Hotkeys.dpr < prev    next >
Text File  |  1998-10-20  |  995b  |  40 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.   hkSelect in 'hkSelect.pas' {frmSelect},
  12.   hkClpbrd in 'hkClpbrd.pas';
  13.  
  14. {$R *.RES}
  15.  
  16. var
  17.   hwndApp : THandle;
  18.  
  19. begin
  20. {$IFNDEF DEBUG}
  21.   hwndApp := FindWindow('TfrmHotkeyEdit', nil);
  22.   if hwndApp<>0 then
  23.    SendMessage(hwndApp, WM_EDITKEYS, WM_EDITKEYS, 0)
  24.   else
  25.    begin
  26. {$ENDIF}
  27.      Application.Initialize;
  28.      Application.Title := 'HotKeys';
  29.      Application.HelpFile := 'Hotkeys.hlp';
  30.      Application.CreateForm(TfrmHotkeyEdit, frmHotkeyEdit);
  31.   Application.CreateForm(TfrmAbout, frmAbout);
  32.   Application.CreateForm(TfrmHotkeyError, frmHotkeyError);
  33.   Application.CreateForm(TfrmHotkeyList, frmHotkeyList);
  34.   Application.CreateForm(TfrmSelect, frmSelect);
  35.   Application.Run;
  36. {$IFNDEF DEBUG}
  37.    end;
  38. {$ENDIF}
  39. end.
  40.