threaditor.dpr

来自「《Delphi技术手册源码》原书佩戴的光盘」· DPR 代码 · 共 24 行

program Threaditor;

uses
  Forms,
  Frame in 'Frame.pas' {MainForm},
  ChildWin in 'ChildWin.pas' {MDIChild},
  About in 'about.pas' {AboutBox},
  Process in 'Process.pas',
  Search in 'Search.pas',
  Print in 'Print.pas';

{$R *.RES}

begin
  StartServerOrClient;
  if IsServer then
  begin
    Application.Initialize;
    Application.Title := 'Threaditor';
    Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  end;
end.