Nein, hier der ganze Code:
Delphi-Quellcode:
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
Movefile(Pchar(filecut),PChar(ShellListView1.RootFolder.pathname+'\'+extractfilename(filecut)));
end;
Greetz
EDIT: filecut ist eine globale Variable