Реестр с помощью функций WinAPI

← →
allx:. © (2002-12-14 17:48) [0]

Хто нить подскажет как пользоваться йункиями работы с реестром используя исключительно WinAPI. Это такие функции как RegCreateKey, RegQueryValue, RegSetValue и др.
Спасибо!!!

← →
Ketmar © (2002-12-14 18:39) [1]

а хэлп читать родители еще не разрешают?

Satanas Nobiscum! 14-Dec-XXXVII A.S.

← →
Василий2 © (2002-12-14 18:51) [2]

Зайди на http://v0id.by.ru/articles/lc4.html. Тут тебе и взлом и использование этих функций.

← →
Ich Hasse © (2002-12-14 22:58) [3]

Запрошенный вами документ " http://v0id.by.ru/articles/lc4.html." не найден на сервере.

← →
allx:. © (2002-12-15 13:37) [4]

Я то и хелп читал, но что-то ничего у меня не получилось. С функциями RegCreateKey и RegSetValueEx все хооршо, но вот не могу никак прочитать с реестра функией RegQueryValueEx.
Хелп он есть хелп, а хотелось бы чтоб кто-то на примере показал. Заранее благодарен!

← →
Anatoly Podgoretsky © (2002-12-15 13:55) [5]

Ich Hasse © (14.12.02 22:58)
Не ходи там черные страницы

← →
Василий2 © (2002-12-16 17:50) [6]

Если палки... Без точки на конце...

Ссылка:
http://v0id.by.ru/articles/lc4.html

← →
allx:. © (2002-12-18 21:43) [7]

Так может хоть кто-то подскажет как пользоваться функцией RegQueryValue??? plz

← →
Внук © (2002-12-19 09:46) [8]

Говорите точно, в чем проблема :))
Иначе - Во имя Alt"а, Control"а и святого Del"а F1

← →
allx:. © (2002-12-19 22:20) [9]

Возвращает код ошибки ERROR_SUCCESS, длину 0 и соответсвеноо буфер пуст, хотя этот параметр (HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DownloadAccelerator) в реестре существует. Вот сам код:
var tempbuf:string; tempcount:integer; key:hkey; begin ... RegOpenKeyEx(HKEY_LOCAL_MACHINE,pchar("Software\Microsoft\Windows\CurrentVersion\Run\"),0,key_all_access,key); setlength(tempbuf,256); RegQueryValueEx(key,pchar("DownloadAccelerator"),nil,nil,pbyte(tempbuf),pdword(tempcount)); setlength(tempbuf,tempcount); ... end;
Мастера, помогите пожалуйста!!!

Попробуй так
var Key:HKEY; Buffer:array[0..1000]of char; Err:integer; BufSize:integer; begin Err:=RegOpenKey(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\Run",Key); If Err<>Error_success then Exit; BufSize:=SizeOf(Buffer); Err:=RegQueryValueEx(key,"DownloadAccelerator",nil,nil,@Buffer,@BufSize); end;

Теберь в Buffer"е содержится значение параметра. Если чего непонятно, спрашивай.

Большое Вам спасибо!!!
Сейчас попробую...

К примеру я использовал это так:

var
HK : HKEY;
dwType,
dwKeySize : DWORD;

function ReadString(Text : PChar; Default : String) : String;
var
St : String;
begin
Result := "";
if (RegQueryValueEx(HK, Text, NIL, @dwType, NIL, @dwKeySize) = ERROR_SUCCESS) and
((dwType = REG_SZ) or (dwType = REG_EXPAND_SZ)) then
begin
SetLength(St, dwKeySize - 1);
if RegQueryValueEx(HK, Text, NIL, NIl, @St[1], @dwKeySize) = ERROR_SUCCESS then
Result := St
else
Result := Default;
end
else
Result := Default;
end;

И Вам спасибо, тоже.

Реестр с помощью функций WinAPI Найти похожие ветки