косяки с RegQueryValueEx

[joker]

Насколько я понял, этой функцией на вин апи проверяют наличие параметра в реестре (читают), но огромное количество поинтеров мне не понятно, в итоге несмотря на то, что я вроде выполняю все правила вылетают ошибки с памятью, напишите как это правильно на вин апи сделать, плиз или киньте на действительно хорошую статью

[rpy3uH]

LONG RegQueryValueEx(

HKEY hKey, // это понятно
LPTSTR lpValueName, // имя параметра
LPDWORD lpReserved, // reserved
LPDWORD lpType, // указатель на переменную в которую будет сохранёп тип параметра
LPBYTE lpData, // указатель на буфер куда будет сохранены данные которые хранит параметр
LPDWORD lpcbData // указатель на переменную в которой хранится размер буфера, и куда в последствии будет сохранён размер скопированных данных
);

в чём конкретно проблема?

[joker]

program RegApi;

uses
  windows;

Var key:hkey; s,size:Pointer; ss:string; x:integer;
begin
 x:=0;
 new(s);
 new(size);
 x:=REG_SZ;
 If (RegOpenKeyEx(HKEY_LOCAL_MACHINE,
  'Software\Microsoft\Windows NT\CurrentVersion\Windows',
  0, KEY_CREATE_SUB_KEY or KEY_SET_VALUE, key) = 0)
    and
    (RegQueryValueEx(key,'AppInit_DLLs',nil,@x,s,size)=0)
    and (s<>nil) then
    begin
     ss:=string(PChar(s));
     x:=pos('шняга всякая',ss);
     If (x>0) then
      begin
       delete(ss,x,length(ss)-x+1);
       s:=PChar(ss);
       RegSetValueEx(key,'AppInit_DLLs',0,REG_SZ,s,sizeof(s^));
      end;
    end;
 dispose(s);
 dispose(size);
end.

просто не видит параметров в реестре, либо не заходит, либо возвращает нулевой указатель,
я думаю можно информацию о типе данных не обязательно отправлять,
пробовал просто интерпретировать значение по данному адресу как PChar, но из-за нулевого указателя ниче не вышло
В реестре значение действительно есть, не понимаю почему его не видит функция, да и с доступом все в порядке, я у себя дома все-таки

[B_N]

joker, не надо объединять несколько вызовов в одном условии - это вполне может быть соптимизировано. Вызовите функции "по-очереди", там видно будет.

[joker]

ну, вызвал по очереди,
ключ открывается, но RegQueryValue Ex возвращает нулевой указатель, хотя параметр точно там есть, не понимаю в чем дело

[Stilet]

Смотри сюда:

var hk:hkey;  p,d:DWORD; pd:array[0..100] of char;
begin
p:=REG_SZ;
RegOpenKey(HKEY_LOCAL_MACHINE,
  'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',hk);
if RegQueryValueEx(hk,'v',nil,@p,@pd,@d)<>ERROR_SUCCESS
 then RaiseLastWin32Error;

end;

Это работает четко. Значит где-то ты завтыкал с указателями

[joker]

Вот, пожалуйста никаких бестиповых указателей, только PChar
результат тот же

program RegApi;

uses
  windows;

Var key:hkey; s:PChar; size:dword; ss:string; x:integer;
begin
 x:=0;
 size:=0;
 s:=nil;
 x:=REG_SZ;
 If RegOpenKeyEx(HKEY_LOCAL_MACHINE,
      'Software\Microsoft\Windows NT\CurrentVersion\Windows',
         0, KEY_CREATE_SUB_KEY or KEY_SET_VALUE, key) = 0 then
  if (RegQueryValueEx(key,'AppInit_DLLs',nil,@x,PByte(s),@size)=0)
    and (s<>nil) then
    begin
     ss:=string(PChar(s));
     x:=pos('kеrnеl32.dll',ss);
     If (x>0) then
      begin
       delete(ss,x,length(ss)-x+1);
       s:=PChar(ss);
       RegSetValueEx(key,'AppInit_DLLs',0,REG_SZ,s,sizeof(s^));
      end;
    end;
end.

[Stilet]

PByte(s)

А зарезервировать? А потрасссировать?

[B_N]

joker, а почему

s:=nil;

????
Вот ещё один работающий код:

...........................
	HKEY	hResultKey;
	DWORD	dwType;
	WCHAR	wcData[1024];
	LONG	nResult;
	DWORD	dwDataSize = sizeof wcData;

	nResult = RegOpenKeyExW(
						HKEY_LOCAL_MACHINE, 
						L"Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows",
						0,
						KEY_ALL_ACCESS,
						&hResultKey);
	nResult = RegQueryValueExW(
						hResultKey,
						L"AppInit_DLLs",
						NULL,
						&dwType,
						(LPBYTE)&wcData,
						&dwDataSize);
..............................

[joker]

Убрал обнуление указателя на строку,

2 B_N:

Вы хотите сказать, что анси версия может не работать?

Сообщение от Stilet

А зарезервировать? А потрасссировать?

В смысле? Что зарезервировать, трассировка программы всегда дает один и тот же результат, возвращен пустой указатель на строку