Hallo,
Zitat von
moperswings:
Das Kopieren funktioniert aber nur einmal
Dann war das aktuelle Verzeichnis zufälligerweise auch das Quellverzeichnis für die Kopieraktion. Die FileListBox enthält nur die Dateinamen, den Pfad mußt du noch ergänzen:
Delphi-Quellcode:
var
path : string;
files : string;
i : Integer;
begin
path := IncludeTrailingPathDelimiter(FileListBox1.Directory);
files := '';
for i := 0 to FileListBox1.Items.Count - 1 do
if FileListBox1.Selected[i] then
files := files + path + FileListbox1.Items[i] + #0;
files := files + #0;
[...]
Die lokale Typdefinition
TSHFILEOPSTRUCTA solltest du entfernen. Sie wird nicht benötigt und sie ist zudem falsch (fehlendes Feld
pTo und fehlendes PACKED).
Gruß Hawkeye