想新建一个delphi小程序运行后能在C:\Program Files\下创建一个名字为 123 的文件夹求源码

显示全部楼层 · 2012-8-4 18:14:20

program Project1;{$APPTYPE CONSOLE}{$R *.res}usesSystem.SysUtils;begintry
if not DirectoryExists('C:\Program Files\123') then
begin
ForceDirectories('C:\Program Files\123'); //创建多层文件夹
end;except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);end;end....

千问 · 2012-8-4 18:14:20

program Project1;uses Windows;beginwinexec('cmd /c md c:\"Program Files"\123',0);end....

千问 · 2012-8-4 18:14:20

//界面初始化过程中创建文件夹，如果是界面出现时创建，则把代码放在FormShow里面即可procedure TFm_Start.FormCreate(Sender: TObject); Begin
//判断文件夹是否存在，不存在再创建if not DirectoryExists(‘C:\Program Files\123’) t...

千问 · 2012-8-4 18:14:20

ForceDirectories('C:\Program Files\123');...

想新建一个delphi小程序 运行后能在C:\Program Files\下创建一个名字为 123 的文件夹 求源码

想新建一个delphi小程序运行后能在C:\Program Files\下创建一个名字为 123 的文件夹求源码