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 edit右键系统菜单加自定义菜单项

Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles？

Delphi unicode转汉字 ，支持自动过滤非 unicode编码

Delphi源码 基础源码-连接数据库，验证登录信息

Delphi fmx 切换窗体最大化

Delphi 隐藏桌面图标和任务栏

Delphi 倒计时源码

Delphi xe5开发android程序调用电话相关功能(短信息和电话)

Delphi搜索文件夹和文件

Delphi 将 html 代码直接加入到 twebbrowser 组件中去

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

转载请注明出处：木庄网络博客 » Delphi RenameFile 文件改名