Win Api функция чтения из регистра.

← →
ALex B. (2004-10-14 21:24) [0]

Подскажите! С RegSetValue всё понятно, а вот как прочесть значение из регистра? Я так понял что это делает RegQueryValue, но я немогу в ней розобратся.

← →
VMcL © (2004-10-14 21:32) [1]

>>ALex B. (14.10.04 21:24)

>Я так понял что это делает RegQueryValue

This function is provided for compatibility with Windows version 3.1. Win32-based applications should use the RegQueryValueEx function.

В дополнение: исходники класса TRegistry в Registry.pas посмотреть не судьба?

← →
ALex B. (2004-10-14 21:51) [2]

function RegQueryValueEx(hKey: HKEY; lpValueName: PChar;
lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
Приведи пожалуйста пример.

← →
Nick Denry © (2004-10-14 23:03) [3]

Здесь получаю стандартное значение "(По умолчанию)":

procedure TForm1.Button1Click(Sender: TObject); const maxsize = 255; var reg : TRegistry; s : array [0..maxsize] of Char; res : bool; regk : HKEy; result : HRESULT; i : integer; begin {reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; res := reg.OpenKey("Software\Winamp",false); if res = false then MEssageBeep(MB_ICONHAND); s := reg.ReadString(""); reg.Free;} result :=RegOpenKeyEx(HKEY_CURRENT_USER,"Software\Winamp",0,KEY_QUERY_VALUE,regk); if result = ERROR_SUCCESS then MessageBox(Form1.Handle,"Open Key done",PChar(Form1.caption),MB_OK); result := RegQueryValueEx(regk,nil,nil,nil,@s,@i); if result = ERROR_SUCCESS then MessageBox(Form1.Handle,"Query Key done",PChar(Form1.caption),MB_OK); MessageBox(Form1.Handle,@s,PChar(Form1.Caption),MB_OK); Form1.Caption := "OK"; RegCloseKey(regk); Form1.Caption := s; end;

>>ALex B. (14.10.04 21:51) [2]

>VMcL © (14.10.04 21:32) [1]
>В дополнение: исходники класса TRegistry в Registry.pas посмотреть не судьба?

Win Api функция чтения из регистра. Найти похожие ветки