ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function LastPos(Needle: Char; Haystack: String): integer; // ищет следующую позицию подстроки в строке
begin
 for Result:=Length(Haystack) downto 1 do if Haystack[Result] = Needle then Break;
end;

function RegGetValue(RootKey: HKEY; Name: String; ValType: Cardinal; var PVal: Pointer;var ValSize: Cardinal): boolean; //Чтение данных из реестра
var
 SubKey:String;
 n:integer;
 MyValType:DWORD;
 hTemp:HKEY;
 Buf:Pointer;
 BufSize:Cardinal;
begin
 Result:=False; // первоночально установка, что ошибка
 n:=LastPos('\', Name);
 if n>0 then
  begin
   SubKey:=Copy(Name,1,n-1);
   if RegOpenKeyEx(RootKey,PChar(SubKey),0,KEY_READ,hTemp) = ERROR_SUCCESS then
    begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     if RegQueryValueEx(hTemp, PChar(SubKey), nil, @MyValType, nil, @BufSize) = ERROR_SUCCESS then
      begin
        GetMem(Buf, BufSize);
        if RegQueryValueEx(hTemp, PChar(SubKey), nil, @MyValType, Buf, @BufSize) = ERROR_SUCCESS then
          begin
            if ValType = MyValType then begin PVal:=Buf; ValSize:=BufSize; Result:=True;  
          end     
        else
         begin
           FreeMem(Buf);
         end;
       end
     else
   begin
     FreeMem(Buf);
   end; 
 end; 
 RegCloseKey(hTemp);
 end;
end;
end;

function RegGetString(RootKey: HKEY; Name: String; Var Value: String): boolean; // Чтение строки из реестра
var
 Buf:Pointer; // Адрес буфера
 BufSize:Cardinal;// Размер буфера
begin
 Result:=False;
 if RegGetValue(RootKey, Name, REG_SZ, Buf, BufSize) then // Получение
  begin
   Dec(BufSize);
   SetLength(Value, BufSize);
   if BufSize>0 then CopyMemory(@Value[1], Buf, BufSize);
   FreeMem(Buf);
   Result := True;
  end;
end;

function RegPutString(RootKey: HKEY; Key, Name, Value: string): Boolean;// запись строки в реестр
var
Handle:HKEY; // Для работы с реестром
Res:LongInt; // Информации об выполненной операции
begin
Result:=False; // первоначально устанавливается неудачность записи
Res:=RegCreateKeyEx(RootKey, PChar(Key), 0, nil, REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS, nil, Handle, nil); // Создает ключ реестра
if Res<>ERROR_SUCCESS then Exit; // если не удалось создать ключ, то выход
Res:=RegSetValueEx(Handle, PChar(Name), 0, REG_SZ, PChar(Value), Length(Value) + 1);// Установка значения
Result:=Res=ERROR_SUCCESS;// возвратить информацию о завершении операции
RegCloseKey(Handle);// закрытие ключа
end;