copyfile.dpr

来自「delphi实现文件复制」· DPR 代码 · 共 18 行

program Copyfile;

uses
  Forms,
  Unit1 in 'Unit1.pas' {CopyFiles},
  Unit2 in 'Unit2.pas' {CreateNewDirDlg};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TCopyFiles, CopyFiles);
  Application.CreateForm(TCreateNewDirDlg, CreateNewDirDlg);
  if CopyFiles.AutoCopy then
     CopyFiles.ButtonExitClick(nil);
  Application.Run;
end.