delphi批量创建项目文件并将编译过程中产生的文件放到指定文件夹中

 

 //建立文件夹 CreateDir; CreateDirectory; ForceDirectories
var
  dir: string;
  icount: Integer;
begin

//如果缺少上层目录将自动补齐:
  Clipboard.AsText := Edit1.Text;
  for icount := 0 to Memo1.Lines.Count - 1 do
  begin
    dir := Edit1.Text + memo1.Lines[icount];
    if not DirectoryExists(dir) then
      ForceDirectories(dir); //返回 Boolean
  end;

  ShellExecute(Handle, 'open',
    PChar(Edit1.Text + Memo1.Lines[0]), nil, nil, SW_SHOWNORMAL);

D:\delphisource\zhoubao\

DCU
Source\Bin\Debug
Source\Bin\Release
Database
GUI
Other
Documentation\Help
Setup