Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Ошибка при работе с RegQueryValueEx   Найти похожие ветки 

 
Alexis ©   (2004-06-12 15:37) [0]

procedure TRestrictionsForm.FormCreate(Sender: TObject);
var
OPENED : HKEY;
Buffer : Pointer;
ValType, BuffSize : DWORD;
begin
RegOpenKeyEx(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", 0, KEY_EXECUTE, OPENED);
Buffer := nil;
if RegQueryValueEx(OPENED, "NoDrives", nil, @ValType, PByte(Buffer), @BuffSize) = ERROR_SUCCESS then
  if (ValType = REG_DWORD) or (ValType = REG_BINARY) then
   ShowMessage( IntToStr(Integer(Buffer)) );
end;

Постоянно выдается 0, даже при ненулевом значении.
Где ошибка?
Заранее спасибо.


 
Cobalt ©   (2004-06-13 13:52) [1]

А память под буфер выделять не собираетесь?


 
Cobalt ©   (2004-06-13 13:53) [2]

If the function fails, the return value is a nonzero error code defined in WINERROR.H. You can use the FormatMessage function with the FORMAT_MESSAGE_FROM_SYSTEM flag to get a generic description of the error.
(GetSysError, если не ошибаюсь)



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

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
14-1088944223
}|{yk
2004-07-04 16:30
2004.07.25
Как заставить Excel переносить длинные строки


14-1088951968
Vasya.ru
2004-07-04 18:39
2004.07.25
Компы не коннектятся!


1-1089289271
NJoe
2004-07-08 16:21
2004.07.25
Как убрать прокрутку в ListBox?


1-1089304409
Ivolg
2004-07-08 20:33
2004.07.25
Размер


1-1089382420
Norfolk
2004-07-09 18:13
2004.07.25
TRadioGroup и файл