Hi,
mithilfe sakura's
Code kopiere ich Dateien. Nachdem ich den Source einmal neu kompiliert habe, klappt nix mehr.
Wenn ich ausführe und er die Dateien kopieren sollte, dann kommt der Fehler, dass Pfad xyz (dieser wurde vorher geprüft und danach nicht mehr verändert) nicht existiere, und ob ich diesen anlegen will. Danach bricht das Programm (dies ist aber meine "Schuld").
Der Source, der mich um den Verstand bringt:
Delphi-Quellcode:
_pgbPg4Status.Position := 4;
_lbPg4Status.Caption := 'Kopieren der Dateien';
aFilesFrom := TStringList.Create;
aFilesfrom.Add(tempDir+'unzipped\'+'CodeLib.exe');
if Features[fNewTipps] then
aFilesfrom.Add(tempDir+'unzipped\'+'themes\*.*');
if Features[fNewWelcomeMsg] then
aFilesfrom.Add(tempDir+'unzipped\'+'welcome.txt');
aFilesTo := TStringList.Create;
aFilesTo.Add(aTargetDir);
if Features[fNewTipps] then
aFilesTo.Add(aTargetDir+'themes\');
if Features[fNewWelcomeMsg] then
aFilesTo.Add(aTargetDir);
if DoFileWork(self.Handle, FO_COPY, aFilesFrom, aFilesTo, FOF_NOCONFIRMATION or FOF_MULTIDESTFILES) <> 0 then begin
MessageDlg('Fehler beim kopieren der Dateien!'+#13+#10+'Das Update wird nun beendet. Bitte laden Sie die Dateien '+#13+#10+'erneut herunter und wiederholen Sie das Update!', mtError, [mbOK], 0);
Application.Terminate;
end;
aFilesTo.Free;
Irgendwo liegt dort der Hund vergraben. Bitte, bitte, helft mir!
Chris