BondDaniil00
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Serega0675
[Code]
var
Page: TInputQueryWizardPage;
DirectorNumber: String;
s, p, num: string;
procedure InitializeWizard();
begin
Page:=CreateInputQueryPage(5,'', '', 'Введите рег.номер и нажмите кнопку Далее');
Page.Add('Регистрационный номер:', False);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
s:= ExpandConstant('{app}');
p:= ExpandConstant('{app}\Data');
StringChange(s, '\', '/');
StringChange(p, '\', '/');
DirectorNumber:= Page.Values[0];
If CurStep = ssDone then
begin
SetIniString('mysqld', 'basedir', AddQuotes(s), ExpandConstant('{app}\my.ini'));
SetIniString('mysqld', 'datadir', AddQuotes(p), ExpandConstant('{app}\my.ini'));
SetIniString('mysqld', 'server-id', DirectorNumber, ExpandConstant('{app}\my.ini'));
SetIniString('mysqld', 'auto_increment_offset', DirectorNumber, ExpandConstant('{app}\my.ini'));
end;
end;
а как можно зделать чтоб по умолчанию подставлялось в строку(HOST) какая нибудь запись Например: HOST = Locolhost, но чтобы пользователь эту стороку мог менять |
