移动文件

procedure MoveFile(Handle:THandle;Source,Dest:string);

var

FO:TShFileOpStruct;

begin

FillChar(FO,Sizeof(FO),#0);

FO.wnd :=Handle;

FO.wFunc :=FO_Move;

FO.flags :=FOF_NoCONFIFMATION;

FO.pFrom :=pchar(Source+#0#0);

PO.pTo :=pchar(Dest+#0#0);

ShFileOperation(FO);

end;