bull3t
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребят, помогите разобраться с парой вопросов. Очень надо.
Вот кусок кода
Цитата: procedure InitializeWizard(); //инициализация окна с вводом данных для Постргреса
begin
Page := CreateInputQueryPage(wpSelectComponents,
'Ввод данных для PostgreSQL', '',
'Введите данные и нажмите Next.');
Page.Add('Логин подключения к БД:', False);
Page.Add('Пароль подключения к БД:', True);
Page.Add('Подтверждение пароля подключения к БД:', True);
Page.Add('Путь установки Postgre SQL', False);
IsPostreSQLInstallationCanceled := false;
end;
//------------------------------------
function NextButtonClick(CurPageID: Integer): Boolean; //Считывание и запись в файл ключа Постгрегса
begin
if CurPageId = 7 then
IsPostreSQLInstallationCanceled := False;
if CurPageID = {Page.ID}100 then
begin
if (Page.Values[0] <> '') and
(Page.Values[1] <> '') and
(Page.Values[2] <> '') and
(Page.Values[3] <> '') then
begin
UserName:= Page.Values[0];
UserPass:= Page.Values[1];
UserPass2:= Page.Values[2];
WayTo:= Page.Values[3];
if UserPass = UserPass2 then begin
DeleteFile(ExpandConstant('{src}\postgresql\start_posgres.bat'));
SaveStringToFile(ExpandConstant('{src}\postgresql\start_posgres.bat'), 'postgresql-8.1-int.msi /qr INTERNALLAUNCH=1 ADDLOCAL=server,psql,postgis,pljava,pgadmin,jdbc,npgsql,psqlodbc,pgoledb,includefiles,libfiles,msvclibs,pgxs,binfiles DOSERVICE=1 DOINITDB=1 SERVICEDOMAIN="%COMPUTERNAME%" SERVICEACCOUNT="postgres" SERVICEPASSWORD="postgres" CREATESERVICEUSER=1 SERVICENAME="PostgreSQL Database Server 8.1" SUPERUSER="' + Page.Values[0] + '" ' + 'SUPERPASSWORD="' + Page.Values[1] + '" ' + 'LOCALE="Ukrainian, Ukraine" ENCODING="WIN1251" LISTENPORT="5432" PERMITREMOTE=1 PL_PGSQL=1 BASEDIR="' + Page.Values[3] + '"', True);
Result:= True;
end
else
MsgBox('Пароль или подтверждение пароля введены неправильно!', mbInformation, MB_OK);
end; |
два момента:
1) как мне добавить в мое ручное окно кнопку "обзор папок", а конкретно в "Путь установки Postgre SQL"? и потом этот путьь записать в файл?
я нашел в примерах ф-ию DirOnClick, но не пойму, как ее прикрутить к моей ситуации.
2) как мне сделать так, чтобы в строке "Путь установки Postgre SQL" по умолчанию стоял путь, который выбирается в стандартном окне "Выбор папки установки"?
Надеюсь на помощь.
|
Я просто хотел привести пример какие вы тут крутые штуки делаете, прошу извинить если как-то задел, я не хотел... А вообще, "авторан" сразу в "сетапе", это очень удобно, ничего против этого не имею. 
