[SteamShip]

У меня много скриптов ввода имя пользователя и пароля завтра выложу

[Gnom_aka_Lexander]

SteamShip, Где-ж ты был, целых полгода, когда я мучился с этим вопросом? Дай пример записи в реестр из кода.

[R.i.m.s.k.y.]

Нужно две записи в реестр делать »

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 не_записалось

[Vitek 07]

Лександер, SteamShip, качайте Inno Mega 2. Там этих скриптов и примеров ну очень много. Каждый найдет для себя что-нибудь, обязательно.

[Gnom_aka_Lexander]

Vitek 07, там ссылки нерабочие, к томуже, все эти примеры, и еще куча сверх того у меня есть, только этого нигде нету, редко у кого возникает продобная необходимость.

[Gnom_aka_Lexander]

R.i.m.s.k.y., А есть возможность ограничить количество знаков здесь:

Код:

  key1 := TNewEdit.Create(WizardForm);
  with key1 do
  begin
    Name := 'key1';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(48);
    Top := ScaleY(136);
    Width := ScaleX(65);
    Height := ScaleY(21);
    Text := 'key';{тут, вот}
  end;

[SCOOTERTECHNO]

Лександер, Если это трудно найти, то не нужно,обойдусь без настроек сетевого профиля, вы и так мне достаточно помогли, огромная уважуха вам за это.

[serg aka lain]

А есть возможность ограничить количество знаков здесь: »

В справку никто не смотрит чтоли?

Код:

property MaxLength: Integer; read write;

[Gnom_aka_Lexander]

SCOOTERTECHNO, Почти еще чуток осталось.
serg aka lain, я понерусски не очень, а в русской мало чего есть..

[SteamShip]

Запись в реестр серийного номера введенного в userinfoserial:
[setup]
userinfopage=true
(code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then
begin
RegWriteStringValue (HKLM, 'SOFTWARE\GSC\STALKER','Serial', Expand Constant
('{userinfoserial}'));
end;
end;
написал на скорую руку так что путь в реестре надо править