worddiary.~dpr

来自「delphi com addin」· ~DPR 代码 · 共 30 行

program WordDiary;

uses
  Forms,
  Dialogs,
  UDiaryMain in 'UDiaryMain.pas' {fmDiary},
  WordDiary_TLB in 'WordDiary_TLB.pas',
  UAutoServer in 'UAutoServer.pas' {DiaryApp: CoClass},
  UPassWord in 'UPassWord.pas' {fmPassword},
  UInit in 'UInit.pas';

{$R *.TLB}

{$R *.RES}
var
  S : String;
begin
//  DoCheckInit;
  if ParamCount >= 1 then
  begin
    S := ParamStr(1);
    if S[1] in ['-', '/'] then
      Application.ShowMainForm := False;
  end;
  Application.Initialize;
  Application.CreateForm(TfmDiary, fmDiary);
  Application.CreateForm(TfmPassword, fmPassword);
  Application.Run;
end.