//建立文件夹 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