БОЛЬШОЙ FAQ ПО DELPHI



Получить версию IE

У программиста спросили:
- Почему ваши дети все время ссорятся?
- Конфликт версий.


 uses
   Registry;
 
 function GetIEVersion(Key: string): string;
 var
   Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('Software\Microsoft\Internet Explorer', False);
     try
       Result := Reg.ReadString(Key);
     except
       Result := '';
     end;
     Reg.CloseKey;
   finally
     Reg.Free;
   end;
 end;
 
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage('IE-Version: ' + GetIEVersion('Version')[1] + '.'
     + GetIEVersion('Version')[3]);
   ShowMessage('IE-Version: ' + GetIEVersion('Version'));
   // <major version>.<minor version>.<build number>.<sub-build number> 
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ