+- 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=3182)
سورس کد بدست اوردن ورژن اینترنت اکسپلور(دلفی) - Amin_Mansouri - 05-15-2013
درود
با سورس زیر میتونید ورژن اینترنت اکسپلور رو در دلفی یدست بیارید.GetIEVersionStrThe the version of Internet Explorer installed on the computer. Returns '' if IE is not installed or if it is earlier than v4.
کد پیاچپی:
کد پیاچپی:
[code]
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;
[/code]
کد پیاچپی: