请教如何使用Delphi程序修改文件名(50分)

HY_IHFGHY_HY · 2003-12-26

各位高人，请赐教：     Delphi是否有自带的修改文件名称的函数，有请说明用法， 另外怎样使用API函数修改文件名，请举几个Delphi对文件进行操作的例子， 最好是使用API函数的，谢谢！

HY_IHFGHY_HY · 2003-12-26

对了，还有Copy文件的API函数，谢谢！

miaofeng · 2003-12-26

function RenameFile(const OldName, NewName: string): Boolean; function CopyFile(const SrcPath, DestPath : AnsiString) : Cardinal; 关于文件的操作你可以参考Delphi帮助中file management routines的内容，比较详细。

miaofeng · 2003-12-26

如把C:/a.txt文件名改为b.txt RenameFile('C:/a.txt','C:/b.txt') 如把C:/a.txt文件复制到C:/temp/下 CopyFile('C:/a.txt','C:/temp/a.txt')

oldsheep35 · 2003-12-26

Rename CopyFile CopyFileEx 查MSDN吧！

miaofeng · 2003-12-26

也可以使用API函数： BOOL CopyFile(     LPCTSTR lpExistingFileName, // pointer to name of an existing file     LPCTSTR lpNewFileName, // pointer to filename to copy to     BOOL bFailIfExists // flag for operation if file exists   &nbsp

; 用法：CopyFile(PChar('C:/a.txt'),PChar('C:/temp/a.txt'),False); 其中bFailIfExists参数如果为True，那么当C:/temp/a.txt这个文件已经存在时函数就执行失败，失败情况可以通过GetLastError函数获得，如果参数为False，那么C:/temp/a.txt存在时将新复制来的文件将覆盖这个旧文件。 另外，你也可以使用SHFileOperation函数直接调用Windows的复制，和我们平时复制文件的样子时一样的，有进度条，有动画。具体你可以查一下，论坛中很多的。

bjaman · 2003-12-26

function MoveFile( lpExistingFilename : pAnsiChar; lpNewFilename : pAnsichar) : longBool;//改名文件的另一函数，在Windows单元 function CopyFile(lpExistingFileName : PAnsiChar; lpNewFileName : PAnsichar) : LongBool;//复制文件，在Windows单元

HY_IHFGHY_HY · 2003-12-27

请问SHFileOperation函数怎么用？谢谢！

miaofeng · 2003-12-29

复制文件的例子，剪切和这个类似，把fsTemp.wFunc改为FO_MOVE就可以了： var   sPath:string; 　sTemp:SHFILEOPSTRUCT; 　i:integer; begin 　sPath:=InputBox('文件操作','输入移动路径','c:/windows'); 　if sPath<>''then   begin 　　fsTemp.Wnd := Self.Handle; 　　fsTemp.wFunc :=FO_COPY; 　　fsTemp.fFlags :=FOF_ALLOWUNDO; 　　for i:=0 to ListBox1.Items.Count－1 do     begin 　　  fsTemp.pFrom := PChar(ListBox1.Items.Strings);   　　fsTemp.pTo := PChar(sPath); 　  　fsTemp.lpszProgressTitle:='移动文件'; 　    if SHFileOperation(fsTemp)<>0 then 　    ShowMessage('文件复制失败');     end; 　end; end;

app2001 · 2003-12-29

SDN翻译如下： ShFileOperation只有一个参数是LPSHFILEOPSTRUCT型的相当于delphi中的TSHFileOpStruct; c语言定义为： typedef struct _SHFILEOPSTRUCT{     HWND         hwnd;     UINT         wFunc;     LPCSTR       pFrom;     LPCSTR       pTo;     FILEOP_FLAGS fFlags;     BOOL         fAnyOperationsAborted;     LPVOID       hNameMappings;     LPCSTR       lpszProgressTitle; } SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT; 相应的pascal就是: type     _SHFILEOPSTRUCTA = packed record     Wnd: HWND;     wFunc: UINT;     pFrom: PAnsiChar;     pTo: PAnsiChar;     fFlags: FILEOP_FLAGS;     fAnyOperationsAborted: BOOL;     hNameMappings: Pointer;     lpszProgressTitle: PAnsiChar; { only used if FOF_SIMPLEPROGRESS }   end; hwnd:用来显示操作状态的对话框句柄。例中是form1的句柄 wFunc:执行的操作。可以是以下各值：(例中是FO_COPY)         FO_COPY:拷贝pfrom域中指定的（目录，例中是'c:/a'）到pto中指定的位置（例中为'c:/b')         FO_DELET:删除pfrom中指定的文件.   (pTo不用)         FO_MOVE:移动PFrom中指定的文件到pto中指定的位置。           FO_RENAME:给PFrom中指定的文件改名。 pFrom:指定一个或多个源文件名的缓冲区地址。多个名字必须用NULL分隔。名字列表必须用两个NULL（nil,'/0')来结束。 pTo：目标文件或目录名缓冲区地址。如果fFlags域指定FOF_MULTIDESTFILES，缓冲区可以包含多个目标文件名。多个名字必须用NULL分隔。名字列表必须用两个NULL（nil,'/0') fFlags :控制操作的标志,可以是以下各值组合：         FOF_ALLOWUNDO:保留Undo信息，如果pFrom没有包含全的绝对的路径或文件名此值忽略。         FOF_CONFIRMMOUSE:没有实现.         FOF_FILESONLY:只有文件名使用通配符时（*.*)才对文件操作。         FOF_MULTIDESTFILES:  pTo域指一定了多个目标文件.(一个对就一个源文件) 而不是指定一个目录来存放所有源文件           FOF_NOCONFIRMATION:所有显示的对话框全部选择yes to all         FOF_NOCONFIRMMKDIR: 如果需要创建一个新目录不确认。         FOF_NOCOPYSECURITYATTRIB

HY_IHFGHY_HY · 2004-01-03

接受app2001和miaofeng的答案,谢谢！

请教如何使用Delphi程序修改文件名(50分)

HY_IHFGHY_HY

Unregistered / Unconfirmed

HY_IHFGHY_HY

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

oldsheep35

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

HY_IHFGHY_HY

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

HY_IHFGHY_HY

Unregistered / Unconfirmed

Similar threads