Winzip aus Delphi starten

[ichbins]

Du musst den Winzip-Pfad aus der Registry auslesen. Da ich kein Winzip <- installiert habe, weiss ich den Pfad nicht genau.

Geh einfach mal in den regedit.exe und such nach "c:\programme\winzip" oder woimmer du winzip eben installiert hast. Aus der registry auslesen geht so:

Delphi-Quellcode:

uses
   ..., shellapi, registry;

[...]

var
  r:tregistry;
  winizipdir:string;
begin
  r:=tregistry.Create(key_read);
  try begin
    r.RootKey:=HKEY_LOCAL_MACHINE;
    r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false);
    winzipdir:=r.ReadString('ProgramFilesDir');
  end except end;
  r.free;
  if winzipdir='' then 
  begin
    messagedlg('WinZip konnte nicht auf ihrem System gefunden werden.',mterror,[mbok],0);
    exit;
  end;
  shellexecute(0,'open',pansichar(winzipdir),'','',1);

@luckie unten: ich weiss ich wollte ja nur ein Beispiel machen da ich nicht weiss wo winzip seine Daten speichert da ich es selbst nicht verwende.