splitter.dpr

来自「delphi的分割程序」· DPR 代码 · 共 32 行

program Splitter;

uses
  Forms,
  SplitFrm in 'SplitFrm.pas' {SplitterForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TSplitterForm, SplitterForm);

  if ParamCount>0 then
   begin
     if ParamStr(1)='/S' then
        begin
           SplitterForm.SourceFileEdit.Text:= ParamStr(2);
           SplitterForm.ResultFileEdit.Text:= ParamStr(2);
           SplitterForm.SplitterBtnClick(SplitterForm.SplitterBtn);
           Application.Terminate;
        end
      else
        begin
           SplitterForm.SourceFileEdit.Text:= ParamStr(1);
           Application.Run;
        end;
   end
   else
     Application.Run;

end.