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 extractclassname 字符串处理函数

Delphi 让窗口一直置顶，并且焦点也不移出

Delphi 通过控件句柄获取控件实例

Delphi 根据数据库结构生成treeview

Delphi unigui执行程序部署有3种形式

Delphi 免杀下载者代码

Delphi excel操作，写了个adodataset转excel的函数

Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题

Delphi directx截图 截本窗口的图

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

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