참고하시고 즐거운 프로그래밍 하시길~

인터넷 부라자의 정보를 얻어오는 팁입니다.

procedure TForm1.Button1Click(Sender: TObject);
var
R     : TRegistry;
begin
R := TRegistry.Create;
With R do
begin
// 인터넷 부라자의 위치
   RootKey := HKEY_LOCAL_MACHINE;
   OpenKey('SoftwareMicrosoftWindowsCurrentVersionApp
            PathsIEXPLORE.EXE', False);
   Edit1.Text := ReadString(''); // (Default)
   CloseKey;
// 액티브 엑스 저장한 곳
   OpenKey('SoftwareMicrosoftWindowsCurrentVersionInternet
            Settings', False);
   Edit2.Text := ReadString('ActiveXCache');
//  Code base path
   Edit3.Text := ReadString('CodeBaseSearchPath');
   CloseKey;
// 버전과 빌드 버전
   Edit4.Text := ReadString('Build');
   Edit5.Text := ReadString('IVer');
end;
R. Destroy;