home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / ArsClip / source.zip / ArsClip.dpr < prev    next >
Text File  |  2004-10-16  |  3KB  |  76 lines
  1. program ArsClip;
  2.  
  3. uses
  4.   Forms,
  5.   Windows,
  6.   SysUtils,
  7.   Dialogs,
  8.   UnitFrmMainPopup in 'UnitFrmMainPopup.pas' {FrmMainPopup},
  9.   UnitFrmConfig in 'UnitFrmConfig.pas' {FrmConfig},
  10.   UnitFrmSysTrayMenu in 'UnitFrmSysTrayMenu.pas' {frmSysTrayMenu},
  11.   UnitFrmClipboardManager in 'UnitFrmClipboardManager.pas' {frmClipboardManager},
  12.   UnitListBoxMover in 'UnitListBoxMover.pas',
  13.   UnitFrmPasteSelected in 'UnitFrmPasteSelected.pas' {FrmPasteSelected},
  14.   UnitClipQueue in 'UnitClipQueue.pas',
  15.   UnitFrmAbout in 'UnitFrmAbout.pas' {FrmAbout},
  16.   UnitFrmRemoved in 'UnitFrmRemoved.pas' {FrmRemoved},
  17.   UnitOtherQueue in 'UnitOtherQueue.pas',
  18.   UnitFrmHotKey in 'UnitFrmHotKey.pas' {FrmHotkey},
  19.   UnitKeyboardQuery in 'UnitKeyboardQuery.pas',
  20.   UnitFrmPreview in 'UnitFrmPreview.pas' {FrmPreview},
  21.   UnitFrmChainWatcher in 'UnitFrmChainWatcher.pas' {FrmChainWatcher},
  22.   UnitFrmPermanentNew in 'UnitFrmPermanentNew.pas' {FrmPermanent},
  23.   UnitHotKey in 'UnitHotKey.pas',
  24.   UnitTooltipPopup in 'UnitTooltipPopup.pas',
  25.   UnitMyPopup in 'UnitMyPopup.pas',
  26.   UnitPaste in 'UnitPaste.pas',
  27.   UnitReportError in 'UnitReportError.pas' {FrmReportError},
  28.   UnitMisc in 'UnitMisc.pas',
  29.   UnitToken in 'UnitToken.pas',
  30.   UnitTWideChar in 'UnitTWideChar.pas',
  31.   UnitFrmDummyUnicodeTooltip in 'UnitFrmDummyUnicodeTooltip.pas' {FrmDummyUnicodeTooltip},
  32.   UnitfrmDummyUnicodePopup in 'UnitfrmDummyUnicodePopup.pas' {FrmDummyUnicodePopup},
  33.   UnitFrmMove in 'UnitFrmMove.pas' {FrmMove};
  34.  
  35. {$R *.res}
  36.  
  37. begin
  38.   Application.Title := 'ArsClip';
  39.   Application.Initialize;
  40.   Application.ShowMainForm := False;
  41.   Application.ShowHint := true;
  42.   Application.CreateForm(TFrmMainPopup, FrmMainPopup);
  43.   Application.CreateForm(TFrmHotkey, FrmHotkey);
  44.   Application.CreateForm(TFrmAbout, FrmAbout);
  45.   Application.CreateForm(TfrmSysTrayMenu, frmSysTrayMenu);
  46.   Application.CreateForm(TFrmPermanent, FrmPermanent);
  47.   Application.CreateForm(TfrmClipboardManager, frmClipboardManager);
  48.   Application.CreateForm(TFrmPasteSelected, FrmPasteSelected);
  49.   Application.CreateForm(TFrmRemoved, FrmRemoved);
  50.   // unicode must be before config
  51.   Application.CreateForm(TFrmDummyUnicodePopup, FrmDummyUnicodePopup);
  52.   Application.CreateForm(TFrmConfig, FrmConfig);
  53.   Application.CreateForm(TFrmPreview, FrmPreview);
  54.   Application.CreateForm(TFrmChainWatcher, FrmChainWatcher);
  55.   Application.CreateForm(TFrmReportError, FrmReportError);
  56.   Application.CreateForm(TFrmDummyUnicodeTooltip, FrmDummyUnicodeTooltip);
  57.  
  58.   Application.CreateForm(TFrmMove, FrmMove);
  59.   ShowWindow(Application.Handle, SW_HIDE);
  60.   //
  61.   // Keep the main form from showing
  62.   //
  63.   try
  64.     Application.Run;
  65.   except
  66.     on E: Exception do begin
  67.         UnitMisc.AppendLog('UNHANDLED EXCEPTION: ' + e.Message);
  68.         UnitMisc.DumpLog('debug.txt');
  69.         ShowMessage('ERROR: Unhandled Exception' + #13#10 +
  70.             'The exception is being logged and a debug log has ' +
  71.             'been created as "debug.txt". ArsClip will be closed.');
  72.     end;
  73.   end
  74.  
  75. end.
  76.