Dankeschön für die Antwort.
EDIT: Hawkeye219, du warst schneller
aber ich hab es fertig
Ich habe es nun nach langem Getüftel so gelöst.
Delphi-Quellcode:
//Coded by unlimited
regist:=TRegistry.Create;
regist.RootKey:=HKEY_LOCAL_MACHINE;
regist.OpenKey('SOFTWARE\Mozilla\Mozilla Firefox\',true);
CurrentVersion:= regist.ReadString('CurrentVersion');
regist.CloseKey;
Path:= 'SOFTWARE\Mozilla\Mozilla Firefox\' +CurrentVersion+ '\Main';
regist.OpenKey(Path, true);
Result :=regist.ReadString('Install Directory') + '\';
regist.free;
//Coded by unlimited