Delphi RenameFile 文件改名


本文整理自网络,侵删。

 //文件改名 RenameFile
var
OldName,NewName: string;
begin
OldName := 'c:\temp\Old.txt';
NewName := 'c:\temp\New.txt';

if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');

//也可以:
SetCurrentDir('c:\temp');
OldName := 'Old.txt';
NewName := 'New.txt';

if RenameFile(OldName,NewName) then
ShowMessage('改名成功!');
end;

=====================

function RenameFile(const OldName, NewName: string): Boolean;
begin
{$IFDEF MSWINDOWS}
Result := MoveFile(PChar(OldName), PChar(NewName));
{$ENDIF}
{$IFDEF LINUX}
Result := __rename(PChar(OldName), PChar(NewName)) = 0;
{$ENDIF}
end;

相关阅读 >>

Delphi获取一个窗口的所有子窗口(包括嵌套)

Delphi 编写的一个感染文件夹的小病毒

Delphi string与tstringlist

Delphi 获取android package name:

16 位浮点运行 pascal/Delphi

Delphi xe5 android 发短信以及目录

Delphi 控制台读写

使用indy解决base64回车换行问题

Delphi获取进程快照(snapshot)

Delphi idhttp封装得post get函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...