procedure TForm1.Button1Click(Sender: TObject);
var
R : TRegistry;
begin
R := TRegistry.Create;
With R do
begin
// Find Internet Explorer Location (MS recomends this way!)
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\App
Paths\IEXPLORE.EXE', False);
Edit1.Text := ReadString(''); // (Default)
CloseKey;
// Find ActiveX storage (local cache)
OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet
Settings\', False);
Edit2.Text := ReadString('ActiveXCache');
// Find Code base path
Edit3.Text := ReadString('CodeBaseSearchPath');
CloseKey;
// Find Version and Build number
Edit4.Text := ReadString('Build');
Edit5.Text := ReadString('IVer');
end;
R.Destroy;