Código Delphi [-] uses ShellApi; var FOS: SHFILEOPSTRUCT; begin FillChar(FOS,Sizeof(FOS),0); with FOS do begin wFunc:= FO_COPY; pFrom:= PChar('d:\1.wmv'+#0); pTo:= Pchar('d:\2.wmv'+#0); end; SHFileOperation(FOS); end;
uses ShellApi; var FOS: SHFILEOPSTRUCT; begin FillChar(FOS,Sizeof(FOS),0); with FOS do begin wFunc:= FO_COPY; pFrom:= PChar('d:\1.wmv'+#0); pTo:= Pchar('d:\2.wmv'+#0); end; SHFileOperation(FOS); end;