怎么样判断IE的版本??

[randylin]

如题,谢谢

[gossan]

以上方法都容易遭到篡改，现在大量改IE版本的软件就是依靠改以上注册表信息来实现的。如果你要求有较高的安全性，可以通过读取program file\internet explorer\iexplorer.exe这个文件的版本来实现的。

[yayx]

以上方法都容易遭到篡改，现在大量改IE版本的软件就是依靠改以上注册表信息来实现的。如果你要求有较高的安全性，可以通过读取program file\internet explorer\iexplorer.exe这个文件的版本来实现的。


请 gossan介绍一下具体方法，我想学学读取EXE文件，我可以再给你加分

[iamnotyou]

GetFileVersionInfo

【说明】
从支持版本标记的一个模块里获取文件版本信息

【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError
【参数表】
lptstrFilename - String，欲从中载入版本信息的一个文件的名字

dwHandle ------- Long，win32中未用

dwLen ---------- Long，由lpData参数指定的字节数组或缓冲区的大小。用GetFileVersionInfoSize函数判断要求的缓冲区长度有多大

lpData --------- Byte，指定一个字节缓冲区的第一个字节。该缓冲区用于装载文件的版本信息

[wisenowa]

读取注册表中HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version Vector\ie键的值来判断

[grail_]

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version Vector\ie
一个字符串

[pilicat]

用楼上兄弟的方法较为容易:

Function getIEVersion:String;
Var
reg:TRegistry;
begin
result:='error';
try
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\MICROSOFT\Internet Explorer\Version Vector',False);
result:=Reg.ReadString('IE');
finally
reg.Free;
end;
end;

//别忘了要在Uses中加入Registry单元.

祝你好运!