[Anton93]

Требуется изменить значение в реестре у REG_Dword, вроде все правильно значение меняется но на какое-то непонятное значение:

Код:

1 2 3 4 5 6 7 8 9

var   Key:HKEY;   Value: Byte; begin   Value:=0;   RegCreateKeyEx(HKEY_CURRENT_USER,'Software\MyProg\Hide\',0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,Nil,Key,nil);   RegSetValueEx(key,'HideFile',0,REG_DWORD,@Value,SizeOf(Cardinal));   RegCloseKey(Key); end;

[Uniq!]

А класс TRegistry разве не для работы с реестром предназначен? Зачем Api?

[Alegun]

Код:

1 2 3 4

function RegSetDword(RootKey: HKEY; Name: string; Value: Cardinal): boolean; begin  Result := RegSetValue(RootKey, Name, REG_DWORD, @Value, SizeOf(Cardinal)); end;

[Anton93]

Да есть такой, но смысл, да легче но, API по мне так лучше)

[icWasya]

Пишешь в реестр четыре байта. А

Код:

1	Value:Byte;

То есть один байт значение, и три байта мусора.