var Reg:TRegistry; sVersion:String; begin Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_LOCAL_MACHINE; if Reg.OpenKey('\Software\Microsoft\Internet Explorer', True) then begin sVersion:=Reg.ReadString('Version'); ShowMessage(sVersion); Reg.CloseKey; end; finally Reg.Free; end;
Reg:TRegistry;
sVersion:String;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer', True) then
begin
sVersion:=Reg.ReadString('Version');
ShowMessage(sVersion);
Reg.CloseKey;
end;
finally
Reg.Free;
end;