Saving an integer with a sign.
function RegSetInt(iRootKey: cardinal; sName: string; iValue: cardinal): boolean;
Parameter |
Type |
Value |
---|---|---|
iRootKey |
cardinal |
registry root. List of available keys; |
sName |
string |
branch, registry key, where the integer is saved; |
iValue |
cardinal |
key value. |
Boolean value. True, if the function completed successfully; False, if the error occurs.
var
i: integer;
begin
for i := 0 to 9 do
RegSetInt(HKEY_CURRENT_USER, 'Software\MyChatServerScripts\TestRegSetInt' + inttostr(i), i);
end.