Hallo, dankeschön, doch kann ich bei mir keinen Fehler entdecken.
Der Code ist lediglich dieser hier:
Delphi-Quellcode:
if OpenDialog2.Execute then
begin
if Application.MessageBox('Do you want to overwrite the current settings of myAda?',
'Information', MB_YESNO) = mrYes then
begin
DecompressFiles(OpenDialog2.FileName, DokUndEinstDir);
end;
end;
DokUndEinstDir ist der Pfad zu
C:\Dokumente und Einstellungen\ ... \Anwendungsdaten\Programmname\. Versucht habe ich testweise auch, die Datei zuerst ins Userverzeichnis zu kopieren und dann zu entpacken, was jedoch auch dann nicht ging. Aber vielleicht liegt es wirklich nur am Code.
Frohe Weihnachten.