Welche Version des Internet Explorers ist installiert?

[Dirk Nordhusen]

Hallo Leute,

ich habe für mein Programm eine Hilfe im compiled HTML-Format gemacht (*.chm).
Nun ist Voraussetzung für die Anzeige dieser Dateien die Installation des MS Internet Explorers ab der Version 3.
Bei den neuen Betriebssystemen kein Problem, da ist der IE sowieso dabei, aber das Programm soll auch unter WIN95 laufen. Nun meine Frage:
Wie bekomme ich raus, OB und WELCHE VERSION des IE installiert ist?

Vielen Dank im voraus für die Mühe.

[Benni]

Versuch mal folgendes:

<pre>
function GetIEVersion: string;
var
SysDir: PChar;
Info: Pointer;
InfoData: Pointer;
InfoSize: LongInt;
Len: DWORD;
FName: Pchar;
SystemDir, Infotype: string;
LangPtr: Pointer;
begin
Len := MAX_PATH + 1;
GetMem(SysDir, Len);
try
if Windows.GetSystemDirectory(SysDir, Len) <> 0 then
SystemDir := SysDir;
finally
FreeMem(SysDir);
end;
result := '';
InfoType := 'FileVersion';
FName := Pchar(SystemDir + '\shdocvw.dll');
InfoSize := GetFileVersionInfoSize(Fname, Len);
if (InfoSize > 0) then
begin
GetMem(Info, InfoSize);
try
if GetFileVersionInfo(FName, Len, InfoSize, Info) then
begin
Len := 255;
if VerQueryValue(Info, '\VarFileInfo\Translation', LangPtr, Len) then
InfoType := Format('\StringFileInfo\%0.4x%0.4x\%s'#0, [LoWord(LongInt(LangPtr^)),
HiWord(LongInt(LangPtr^)), InfoType]);
if VerQueryValue(Info, Pchar(InfoType), InfoData, len) then
Result := strPas(InfoData);
end;
finally
FreeMem(Info, InfoSize);
end;
end;
end;
</pre&gt