Der Source ist ausm Netz. Ich habe den also nicht selbst geschrieben. Ich versuche ihn nur zu benutzen um ein wiederliches kleines Problem endlich sauber zu lösen. Der Code steht im Beitrag #9.
Der entsprechende Aufruf von mir sieht so aus: (bisher immer auskomentiert, da ja iwas mit der Funktion nicht i.o. ist)
ShellExecute_AndWait('open', GetCurrentDir+'\7za.exe', 'e -o"'+TempDownloadDir+IP+'" "'+TempDownloadDir+IP+'\'+Form1.ListBox3.Items[i]+'"', nil, SW_SHOWNORMAL, true);