+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد بدست اوردن ورژن اینترنت اکسپلور (دلفی) (/showthread.php?tid=2158)
سورس کد بدست اوردن ورژن اینترنت اکسپلور (دلفی) - Amin_Mansouri - 04-22-2012
سورس نیاز به 2 یونیت زیر دارد :
Windows, Registry
کد:
function GetIEVersionStr: string;
var
Reg: Registry.TRegistry; // registry access object
begin
Result := '';
Reg := Registry.TRegistry.Create;
try
Reg.RootKey := Windows.HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly('Software\Microsoft\Internet Explorer') then
begin
if Reg.ValueExists('Version') then
Result := Reg.ReadString('Version');
end;
finally
Reg.Free;
end;
end;