Скачать: CL | DM;

Реестр с помощью функций 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;

Мастера, помогите пожалуйста!!!

---

← →
TForm1 ©   (2002-12-20 00:46) [10]

Попробуй так

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"е содержится значение параметра. Если чего непонятно, спрашивай.

---

← →
allx:. ©   (2002-12-20 21:19) [11]

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

---

← →
Evgeny ©   (2002-12-21 07:45) [12]

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

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;

---

← →
allx:. ©   (2002-12-21 15:46) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c