현재 사용중인 익스플로러 버전 확인하기

현재 사용중인 익스플로러 버전을 확인하는 함수이다.

레지스트리를 사용하기 때문에 비스타 혹은 윈도우7에서 사용할 경우에는 UAC 권한을 상승시켜서 봐야한다.

또 소스를 보면 알겠지만 Major 버전만 가져오는것이지만, 필요에 따라 바꿔서 쓰자.

function ExplorerVerCheck : Integer;
var
   Reg                              : TRegistry;
   Buffer                           : String;
begin
   Reg := TRegistry.Create;
   try
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer', False);
      Buffer      := Copy(Reg.ReadString('Version'), 1, 1);
      Result      := StrToIntDef(Buffer, 6);
   finally
      Reg.Free;
   end;
end;