Parsi Coders
سورس کد بدست اوردن ورژن اینترنت اکسپلور(دلفی) - نسخه قابل چاپ

+- 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 
GetIEVersionStrstring;
var
  
RegRegistry.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
کد پی‌اچ‌پی:
  
Required units: Windows, Registry.Required snippets: None.See also: None.