Shell-Funktion zum Kopieren hat einen Fehler

[Hawkeye219]

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