Moin und ganz ruhig....
Du bekommst die Meldung 0 zurück, und ich denke, es ist ok.
Delphi-Quellcode:
if RAR1.OpenFile(OpenDialog1.FileName) then begin
showmessage(BoolToStr(RAR1.OpenFile(OpenDialog1.FileName)));
Ich hab Dir mal eine Leerzeile in Deinen Code eingefügt. Vielleicht wird es jetzt schon klarer...
Was passiert: In der ersten Zeile öffnest Du mit dem RAR1 Objekt mit OpenFile eine Datei. Dieser Befehl hat Erfolg, denn er liefert Dir true zurück. Und genau dann wenn die if Bedingung wahr ist, also true, wird der Befehl hinter then ausgeführt (hier Dein begin - end Block). Und dort öffnest Du zum zweiten mal eine Datei, obwohl noch eine offen ist, und das gibt diesmal false bzw. 0 und die Message Box wird angezeigt.
Mach doch mal folgendes:
Delphi-Quellcode:
if RAR1.OpenFile(OpenDialog1.FileName) then
ShowMessage("Erfolg!")
else
ShowMessage("Fehler!");
Ich hoffe, ich konnte helfen...
VG Pixfreak