| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Win Api функция чтения из регистра. [D7]
ALex B. © (2004-10-14 21:24:00)Подскажите! С RegSetValue всё понятно, а вот как прочесть значение из регистра? Я так понял что это делает RegQueryValue, но я немогу в ней розобратся.
Nick Denry (2004-10-15 14:33:00) [1]VMcL © (15.10.04 11:14) [4]
:) :tongue:
VMcL (2004-10-15 11:14:00) [2]>> ALex B. (14.10.04 21:51) [2]
> VMcL © (14.10.04 21:32) [1]
>В дополнение: исходники класса TRegistry в Registry.pas посмотреть не судьба?
Nick Denry (2004-10-14 23:03:00) [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. (2004-10-14 21:51:00) [4]function RegQueryValueEx(hKey: HKEY; lpValueName: PChar;
lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
Приведи пожалуйста пример.
VMcL (2004-10-14 21:32:00) [5]>> 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 RegQueryValueExfunction.
В дополнение: исходники класса TRegistry в Registry.pas посмотреть не судьба?
| |
