Чтение данных из реестра на WinAPI...

[ActiveX]

Добрый день. Написал функцию которая определяет версию браузера IE из реестра:

Uses Registry;

Function GetIEVersion: String;
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\', False);
Result:=Reg.ReadString('Version');
If Length(Result)=0 then
Result:='Неопределена';
Finally
Reg.Free;
End;
End;

Вопрос такой - как реализовать тоже самое, только на WinAPI - т.е. без модуля Registry. Если у кого есть пример - скиньте пожалуйста - полюбому ведь кто-то уже занимался чем-то подобным. Заранее спасибо.

[JTG]

program Project1;

uses windows;

{$R *.res}

var typ, buf_size: PDword;
      key: Hkey;
      buf: array[0..255] of char;

Begin
  RegOpenKeyEx(HKEY_LOCAL_MACHINE,                      // handle of open key
               'SOFTWARE\Microsoft\Internet Explorer\', // address of name of subkey to open
               0,	                                      // reserved
               KEY_ALL_ACCESS,	                        // security access mask
               key                                      // address of handle of open key
             );

  RegQueryValueEx(key,                               	// handle of key to query
                 'Version',	                          // address of name of value to query
                  0,	                                // reserved
                  @typ,	                              // address of buffer for value type
                  @buf,	                              // address of data buffer
                  buf_size                            // address of data buffer size
                );

  MessageBox(0, buf, 'Версия IE', mb_ok+mb_iconinformation);
end.

MSDN всех победит

[rpy3uH]

по-моему, так лучше:

var
  typ, buf_size: DWORD;
  key: Hkey;
  buf: array[0..255] of char;

Begin
  buf_size:=254;

  RegOpenKeyEx(HKEY_LOCAL_MACHINE,                      // handle of open key
               'SOFTWARE\Microsoft\Internet Explorer\', // address of name of subkey to open
               0,                                         // reserved
               KEY_ALL_ACCESS,                          // security access mask
               key                                      // address of handle of open key
             );

  RegQueryValueEx(key,                                  // handle of key to query
                 'Version',                           // address of name of value to query
                  0,                                    // reserved
                  @typ,                               // address of buffer for value type
                  @buf,                               // address of data buffer
                  @buf_size                            // address of data buffer size
                );

  MessageBox(0, buf, 'Версия IE', mb_ok+mb_iconinformation);
end;