[Alegun]

Код:

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