anscheind nimmst du die Falsche Methode. Das sieht für mich so aus als ob da so ein Open Dialog kommen soll. das ist also vorgesehen von den Entwicklern. Aber welche Funktion du noch nehmen kannst weiß ich nicht. es gibt noch noch extract Optionen hast du die schon probiert ?
schau doch mal nach was
inA: IInArchive;
Geanu IInArchive ist. könnte ein Interface sein. Ich habe auf meiner Platte auch noch SevenZip.
Also ich weiß im Moment nicht weiter.
edit
Delphi-Quellcode:
procedure TForm1.extractarchiveClick(Sender: TObject);
var i : integer;
begin
//select extract dir
sevenzip1.ExtrBaseDir := 'c:\7ztest';
//Overwrite existing files during extrect ?
sevenzip1.ExtractOptions := sevenzip1.ExtractOptions + [ExtractOverwrite];
//Clear Extractlist - for all files do nothing else
sevenzip1.Files.clear;
if listview1.SelCount > 0 then
for i := 0 to listview1.Items.Count -1 do
if listview1.Items[i].Selected then
sevenzip1.Files.AddString(listview1.Items[i].SubItems[6]);
//extract files
i := sevenzip1.Extract;
// Show result
label1.caption := inttostr(i);
end;
so machen die das im demoe... fürs Entpacken. Evlt. musst du erst eine liste mit Dateien füllen die du Entpacken möchtest !