Delphi( 델파이 ) - MS 웹브라우저 버전 등록/해제 함수

uses 에 Registry 를 등록하고 사용 합니다.
WebBrowser IE8 Mode Enable/Disable
7000 : Internet Explorer Mode 7
8000 : Internet Explorer Mode 8
8888 : Internet Explorer Force Mode 8

procedure IERegistry(b:Boolean);
var reg: TRegistry;
begin
  reg := TRegistry.Create;
  if Assigned( reg ) then begin//유효성 검사
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION',True) then begin
    //레지스트리 열기
      if b = True then begin
        reg.WriteInteger( ExtractFileName(Application.ExeName), 8000 );
      end else begin
        reg.DeleteValue( ExtractFileName(Application.ExeName) );
      end;
    end;
  end;
end;