呵呵,你在网吧,可没有MSDN了吧。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 );
var ShellInfo: TSHFileOpStructA; begin with ShellInfo do begin Wnd := Handle; wFunc := FO_COPY; //FO_DELETE,FO_RENAME,FO_MOVE pFrom := PChar(FromFileName); pTo := PChar(ToFileName); fFlags := FOF_CONFIRMMOUSE or FOF_SIMPLEPROGRESS; end; SHFileOperation(ShellInfo); end;
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
);
ShellInfo: TSHFileOpStructA;
begin
with ShellInfo do begin
Wnd := Handle;
wFunc := FO_COPY; //FO_DELETE,FO_RENAME,FO_MOVE
pFrom := PChar(FromFileName);
pTo := PChar(ToFileName);
fFlags := FOF_CONFIRMMOUSE or FOF_SIMPLEPROGRESS;
end;
SHFileOperation(ShellInfo);
end;