ShellExecute Laufzeitproblem

[LuCSteR]

Hi,

um die beiden zeilen geht es:

Delphi-Quellcode:

ShellExecute(0, 'open', PChar(GetCurrentDir+'\7za.exe'), PChar('e -o"'+TempDownloadDir+IP+'" "'+TempDownloadDir+IP+'\'+Form1.ListBox3.Items[i]+'"'), nil, SW_SHOWNORMAL);
          
DeleteFile(TempDownloadDir+IP+'\'+Form1.ListBox3.Items[i]);

erst wird die datei entpackt (TempDownloadDir+IP+'\'+Form1.ListBox3.Items[i]) und danach soll sie gelöscht werden. die entpackten dateien haben namen verschieden von der gepackten datei. aber trotzdem werden alle entpackten und die gepackte datei gelöscht.

da die sache przedural nacheinander abläuft müsste das ergebnis sein, das nur noch die entpackten dateien vorliegen. tun sie aber nicht.

grüße steve