unit_reg.pas

传奇2万能变形特征码+极度流畅版,以前vip买回来的,现在已经过时了

unit Unit_Reg;

interface
uses
   Windows;
procedure AddValue(Root: HKEY; StrPath: pchar; StrValue: pchar; Strdata: pchar; DataType: integer);
procedure DelValue(Root: HKEY; StrPath: pchar; StrValue: pchar);
implementation

function OpenKey(Root: HKEY; StrPath: pchar): Hkey;
var TempKey: Hkey;
begin
  TempKey := 0;
  RegOpenKeyEx(Root, StrPath, 0, KEY_ALL_ACCESS, TempKey);
  Result := TempKey;
end;

function CreateKey(Root: HKEY; StrPath: pchar): Hkey;
var TempKey: HKey; Disposition: Integer;
begin
  TempKey := 0;
  RegCreateKeyEx(Root, StrPath, 0, nil, 0, KEY_ALL_ACCESS, nil, TempKey, @Disposition);
  Result := TempKey;
end;

procedure AddValue(Root: HKEY; StrPath: pchar; StrValue: pchar; Strdata: pchar; DataType: integer);
var s: Hkey;
  DataSize: Integer;
begin
  s := CreateKey(Root, StrPath);
  DataSize := length(Strdata);
  RegSetValueEx(s, StrValue, 0, REG_SZ, Strdata, DataSize); //
  RegCloseKey(s);
end;

procedure DelValue(Root: HKEY; StrPath: pchar; StrValue: pchar);
var s: Hkey;
begin
  s := OpenKey(Root, StrPath);
  RegDeleteValue(s, StrValue);
  RegCloseKey(s);
end;
end.