Title: Getting Info About MS IE
Question: How to catch information of Win Explorer
Answer:
Getting Info About MS IE
// This sample shows how to get information about
// Microsoft Internet Explorer (3.0 and higher)
//
// !! add Registry in USES clause !!
//
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;