Цитата Лександер:
|
Нужно две записи в реестр делать »
|
var s: string;
....
s := {тут примерно так:key1.Text+-+key2.Text+-+key3.Text+-+key4.Text}
RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallCDKEY', s);
RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallUserName', user.Text);
RegWriteStringValue записывает переменную стринг в корень HKLM, подключ Software\GSC Game World\STALKER-COP, ключ InstallUserName, переменная стринг user.Text.
запись
function RegWriteStringValue(const RootKey: Integer; const SubKeyName, ValueName, Data: String): Boolean;
function RegWriteExpandStringValue(const RootKey: Integer; const SubKeyName, ValueName, Data: String): Boolean;
function RegWriteMultiStringValue(const RootKey: Integer; const SubKeyName, ValueName, Data: String): Boolean;
function RegWriteDWordValue(const RootKey: Integer; const SubKeyName, ValueName: String; const Data: Cardinal): Boolean;
function RegWriteBinaryValue(const RootKey: Integer; const SubKeyName, ValueName: String; const Data: AnsiString): Boolean;
чтение
function RegQueryStringValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultStr: String): Boolean;
function RegQueryMultiStringValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultStr: String): Boolean;
function RegQueryDWordValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultDWord: Cardinal): Boolean;
function RegQueryBinaryValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultStr: AnsiString): Boolean;
функции булевые, т.е. можно написать if RegWriteStringValue ... then если_записалось else не_записалось
