本文整理自网络，侵删。
//判断
if not Fileexists('c:\2.exe') then
begin
//如果文件不存在
end;
if not Directoryexists('C:\Program Files\test') then
begin
//如果文件夹不存在
end;
//
delphi创建和删除文件夹
1.本目录创建和删除test文件夹
uses段中添加对ShellApi
CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+'Test'),nil);//创建
RemoveDirectory (Pchar(ExtractFilePath(ParamStr(0))+'Test'))//删除
2.在指定的目录创建和删除test文件夹
CreateDirectory(PChar('C:\Program Files\Test'),nil); //创建
RemoveDirectory (PChar('C:\Program Files\Test'),nil); //删除
DeleteFile('c:\new.exe') ; //删除文件
相关阅读 >>
Delphi 直接将html字符串读入webbrowser中
Delphi中组件panel、splitter、groupbox、按钮组件（checkbox...）、计时器、滚动条、多选卡
更多相关阅读请进入《Delphi》频道 >>
