Danke für die schnellen Antworten!
Jedoch ein Problem:
Code:
function GetPath:String;
var
reg: tregistry;
begin
Result := '';
reg := Tregistry.create;
try
reg.root := HKEY_LOCAL_MACHINE;
if reg.openkeyreadonly('Software\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Firefox (3.0.1)') then
begin
Result := reg.readstring('InstallLocation');
end;
finally
reg.free;
end;
end;
Soweit schön und gut, aber beim Ausführen kommt folgende Meldung:
Code:
[Fehler] Unit1.pas(31): E2003 Undefinierter Bezeichner: 'root'