Forum: Programmieren allgemein
by mlspider,
30. Dez 2005
Der Compiler hat nichts mehr zu meckern. Allerdings wird immer noch nichts kopiert.
Forum: Programmieren allgemein
by mlspider,
30. Dez 2005
Eigentlich schon. Für was steht "Inte0001"? Außerdem findet der Compiler "+ AnsiReplaceStr" nicht so toll.
PS: Das mit der Fortschrittanzeige ist schon toll.
Forum: Programmieren allgemein
by mlspider,
30. Dez 2005
Der Compiler ist mit oben genannter Nachbesserung recht zufrieden. Es kann nunmehr der angegebene Pfad (Zielpfad) nicht gefunden werden.
Forum: Programmieren allgemein
by mlspider,
30. Dez 2005
Das ist wahr. Der Compiler ist sehr unzufrieden. Also wenn ich es recht verstehe, müsste ich eine 2. Stringliste erzeugen, die wiederum den Pfad enthält. Und wie würde der Aufruf dann aussehen?
Forum: Programmieren allgemein
by mlspider,
30. Dez 2005
Ich möchte alle in einer Listbox vorhandenen Dateien in ein beliebiges Verzeichnis kopieren. Ich nutzte den Code von sakura:
function DoFileWork(
aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; aFlags: FILEOP_FLAGS
): Integer;
var
I: Integer;
FromPath, ToPath: string;
SHFileOpStruct: TSHFileOpStruct;
begin