toolhelpviewer.dpr

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

program ToolHelpViewer;

uses
  Forms,
  SysUtils,
  JclAppInst,
  Main in 'Main.pas' {MainForm},
  ChangePriority in 'ChangePriority.pas' {ChangePriorityDlg},
  HeapDump in 'HeapDump.pas' {HeapDumpForm},
  MemoryDump in 'MemoryDump.pas' {MemoryDumpForm},
  Global in 'Global.pas' {GlobalModule: TDataModule},
  ViewTemplate in 'ViewTemplate.pas' {ViewForm},
  ModulesDump in 'ModulesDump.pas' {ModulesDumpForm},
  ToolsUtils in '..\Common\ToolsUtils.pas',
  About in '..\Common\About.pas' {AboutBox},
  FindDlg in '..\Common\FindDlg.pas' {FindForm},
  ExceptDlg in '..\..\debugextension\dialog\ExceptDlg.pas' {ExceptionDialog};

{$R *.RES}

begin
  try
    JclAppInstances.CheckSingleInstance;
    Application.Initialize;
    Application.Title := 'ToolHelp Viewer';
    Application.CreateForm(TGlobalModule, GlobalModule);
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  except // fix for Delphi 5's RTL bug 
    SysUtils.ShowException(ExceptObject, ExceptAddr);
  end;
end.