Перевести Сишные функции записи данных в реестр на Delphi

[Adult_Master]

Здравствуйте, у меня есть исходники программы на С++, которая сохраняет данные в бинарном виде в реестре (шифрованные), мне нужно написать функции по работе с этими данными но в Delphi.
Что имеем на С++:

есть некая структура данных :

//объявлено в  h файлах
struct  Params
{	
unsigned int	m_Param1;
int		m_Param2;
UINT64		g_Count1, g_Count2;
bool		m_Param3;
unsigned int	m_Param4;
int		m_Param5;
};

static Params mParams;
BYTE userstring[512];

//Далее в самом cpp

//mKey - ключ в реестре
//RegOpenKeyEx - вызывается в программе ранее

void Profile::save()
{
	
 DWORD length = sizeof( mParams );
 memcpy( userstring, &mParams,  length); 

 for( size_t i = 0; i < length; i++)
	userstring[ i ]  ^= 0x89; 

 RegSetValueEx( mKey, L"data", 0, REG_BINARY, (unsigned char *)  userstring, length );
		
}
//Чтение
void Profile::read()
{	
DWORD userstringlen;
DWORD type = REG_SZ;	

RegQueryValueEx( mKey,  L"data",	0, &type, (unsigned char *) userstring, &userstringlen);

for( size_t i = 0; i < userstringlen; i++)
	userstring[ i ]  ^= 0x89;

memcpy( &mParams, userstring,  userstringlen);
}

Собственно мне нужно перевести функци Write и Read на Delphi, при этом сохранять и читать в record

.....
type
TmParams = record
m_Param1: integer;
m_Param2: integer;
g_Count1, g_Count2: int64;
m_Param3: boolean;
m_Param4: integer;
m_Param5: integer; 
end;
.....

var
mParams: TmParams;

Правильно ли я определил переменные в своем record ? в частности интересует unsigned int

Далее пытаюсь реализовать функцию Read:

procedure ProfileRead;
var
Handle: HKEY;
BufSize, DataType: DWORD;
res,i: integer;
buffer: PChar;
begin
 DataType := REG_SZ;

 res := RegOpenKeyEx(HKEY_CURRENT_USER, PChar    ('Software\MyCompany\'), 0, KEY_QUERY_VALUE, Handle);

 if res<>0 then
   raise exception.Create('Не могу открыть ключ реестра');

 RegQueryValueEx(Handle,'data',nil,@DataType,nil,@BufSize);
 GetMem(Buffer, BufSize);
 RegQueryValueEx(Handle,'data',nil,@DataType,PByte(Buffer),@BufSize);

 RegCloseKey(Handle);

 for i := 0 to BufSize - 1 do Buffer[i] := chr(ord(Buffer[i]) xor $89);//Вот тут не совсем уверен что правильно делаю

//Дальше просто попытка вывести прочитанные данные
    s := '';
    for i := 0 to BufSize - 2 do
    begin

      if Buffer[i] = #0 then
      begin

        Memo1.Lines.Add(s);
        s := '';
      end
      else
      begin
        s := s + Buffer[i];
      end;
    end;

  FreeMem(Buffer);
end;

Как мне правильно прочитать данные, поксорить их повторно (для дешифрации) и сохранить в record ?

Помогите хотя бы с функцией Read, Write я по аналогии сам допишу ). Зарание спасибо !

P.S. Количество записей в record не фиксировано, оно меняется от версии к версии, поэтому желательно написать универсальные функции.

[Хамяг]

не проверял, думаю как-то так:

type
  Params = record
    m_Param1: Cardinal;
    m_Param2: Cardinal;
    g_Count1: UInt64;
    g_Count2: UInt64;
    m_Param3: Boolean;
    m_Param4: Cardinal;
    m_Param5: Integer;
  end;

var
  mParams: Params;
  userstring: array [1..512] of Byte;
  mKey: Cardinal;

procedure ProfileRead;
var
  i: Word;
begin
  Move(mParams,userstring,SizeOf(mParams));
  for i:=1 to SizeOf(mParams) do userstring[i]:=userstring[i] xor $89;
  RegSetValueEx(mKey,'data',0,REG_BINARY,@userstring,SizeOf(mParams));
end;

procedure ProfileWrite;
var
  i: Word;
  userstringlen: Cardinal;
  rtype: Cardinal;
begin
  rtype:=REG_SZ;
  RegQueryValueEx(mKey,'data',nil,@rtype,@userstring,@userstringlen);
  for i:=1 to userstringlen do userstring[i]:=userstring[i] xor $89;
  Move(userstring,mParams,userstringlen);
end;

[Adult_Master]

Спасибо ! Всё работает ! Только надо поменять местами названия функций, и у переменной mKey тип HKEY !

P.S. Ещё раз большое спасибо !

[Хамяг]

незачто

для справки,

type
  HKEY = type LongWord;

LongWord и Cardinal - одно и то же. то есть, ошибки с моей стороны тут нет .

[Adult_Master]

Сообщение от Хамяг

незачто

для справки,

type
  HKEY = type LongWord;

LongWord и Cardinal - одно и то же. то есть, ошибки с моей стороны тут нет .

Ну у меня компилятор ругнулся почему то, я изменил на HKEY и все Ок. Плюсанул в карму.
Тема закрыта )