Zitat von
-Phantom-:
das mit dem Ausführen hab ich nun hinbekommen
Delphi-Quellcode:
var
runfile : String;
i : Integer;
begin
for i := 0 to slistview1.Items.Count -1 do
begin
if slistview1.Items[i].Selected then
begin
abunzipper1.FileName := openpf;
abunzipper1.BaseDirectory := extractfilepath(openpf);
runfile := extractfilepath(openpf)+slistview1.Items[i].Caption;
abunzipper1.ExtractFiles(runfile);
abunzipper1.OpenArchive(openpf);
shellExecute(0,
Nil,
PChar(runfile),
Pchar(''),
Pchar('C:\StartDir'),
SW_NORMAL);
label2.Caption := runfile;
end;
end;
end;
du solltest um dateien auszuführen ins temp verzeichnis von windows entpacken.
Zitat von
-Phantom-:
...und wie formatiere ich mein code den richtig?
wenn du deinen code nicht selbst formatieren magst, schau mal hier:
http://www.aew.wur.nl/UK/Delforexp/