Datei verschieben/kopieren

[Luckie]

Code zum Löschen:

Code:

uses ShellAPI;  

function DeleteFileWithUndo(  
  sFileName : string )  
    : boolean;  
var  
  fos : TSHFileOpStruct;  
begin  
  FillChar( fos, SizeOf( fos ), 0 );  
  with fos do  
  begin  
    wFunc  := FO_DELETE;  
    pFrom  := PChar( sFileName );  
    fFlags := FOF_ALLOWUNDO  
              or FOF_NOCONFIRMATION  
              or FOF_SILENT;  
  end;  
  Result := ( 0 = ShFileOperation( fos ) );  
end;

Kuck dir im PSDK mal SHFileOpStruct an und such dir die passenden Konstanten für's Verschieben und Kopieren raus.