simpleword.dpr

来自「Delphi高级开发指南是开发程序的好帮手」· DPR 代码 · 共 36 行

program SimpleWord;

{ SimpleWord - A simple word processor that demonstrates some interesting
  uses of various COM features.

  (c)1997 Naleco Research Inc.
  jfl }

uses
  Forms,
  Main in 'MAIN.PAS' {MainForm},
  simpleword_TLB in 'simpleword_TLB.pas',
  SimpleWordObject in 'SimpleWordObject.pas' {SimpleWordObject: CoClass};

{$R *.RES}

{$R *.TLB}

begin
  Application.Initialize; { Essential function for registering COM server }
  Application.CreateForm(TMainForm, MainForm);

  // Check out the command line parameters to see if we are being launched
  // from the command line
  if ParamCount = 0 then
    Application.Run
  else if ParamCount = 1 then
  begin
    // Single parameter on the command line is a file name
    MainForm.OpenFile( ParamStr( 1 ) );
    Application.Run;
  end else if ParamCount = 2 then
    if ParamStr( 1 ) = '/P' then
      MainForm.OpenAndPrintFile( ParamStr( 2 ) );
end.