ENtpacken von .rar

[whiteF]

das ging aber schnell....
danke für die raschen antworten,
aber leider bekomm ich mit sx2008's lösung nur "dass das archiv nicht geöffnet werden kann"
dass ich 2 mal die Haustür aufschließe stimmt so nicht ganz, "if RAR1.OpenFile(OpenDialog1.FileName) then begin" wird ja gar nicht ausgelöst... das ist ja das problem! (Ergebnis ist ja 0 und nicht TRUE)

rar1.create brauch ich nicht, hast recht, hab ja schon die komponente auf der Form.^^
Habs aus verzweiflung mal mit ausprobiert gehabt.

hab jetzt mal das ausprobiert....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var filepath : string;
begin
if OpenDialog1.Execute then begin
filepath := OpenDialog1.FileName;
showmessage(filepath);
      if RAR1.OpenFile(filepath) then begin
         showmessage(BoolToStr(RAR1.OpenFile(filepath)));
end;
showmessage('Nach if:' + BoolToStr(RAR1.OpenFile(filepath)));
end;
RAR1.free;
end;

filepath = OpenDialog1.FileName wird auch korrekt wiedergegeben (bei mir: "C:\1\b.rar" das muss doch so stimmen )

ich raffs einfach nicht^^ die demo läuft doch auch

habt ihr Delphi XE und auch diese komponente "UnRAR Delphi component - Delphi component wrapper for UnRar.dll by Philippe Wechsler." ?