gsreg.pas

EES Binder v1.0

UNIT GSREG;

interface

uses
  Windows;

type
rsp = function(dwProcessID,dwType:DWord):DWORD;stdcall;

function RegReadVal(key:Hkey; subkey,name:string):string;
function RegWriteVal(key:Hkey; subkey,name,value:string):boolean;
function RegDelKey(key:Hkey; subkey,name:string):boolean;
function RegDelVal(key:Hkey; subkey,name:string):boolean;

VAR
regval: Array [0..256] of Char;
regkey, regkey1:hkey;
size: DWORD = 256;

implementation



function RegReadVal(key:Hkey; subkey,name:string):string;
begin
  result := '-err';
  RegOpenKey(key, PChar(subkey),regkey);
  if RegQueryValueEx(regkey,PChar(name),Nil,Nil,@regval,@size) = 0 then
    result := regval;
  RegCloseKey(regkey);
end;

function RegWriteVal(key:Hkey; subkey,name,value:string):boolean;
begin
  result := false;
  RegCreateKey(key,PChar(subkey),regkey);
  if RegSetValueEx(regkey,Pchar(name),0,REG_EXPAND_SZ,pchar(value),length(value)) = 0 then
    result := true;
  RegCloseKey(regkey);
end;

function RegDelKey(key:Hkey; subkey,name:string):boolean;
begin
  result := false;
  RegOpenKey(key,PChar(subkey),regkey);
  if RegDeleteKey(regkey,PChar(name)) = 0 then
    result := true;
  RegCloseKey(regkey);
end;

function RegDelVal(key:Hkey; subkey,name:string):boolean;
begin
  result := false;
  RegOpenKey(key,PChar(subkey),regkey);
  if RegDeleteValue(regkey,PChar(name)) = 0 then
    result := true;
  RegCloseKey(regkey);
end;

end.