Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Mailchik

Пользователь


Сообщения: 78
Благодарности: 63

Профиль | Отправить PM | Цитировать


insombia,
читать дальше »
Код: Выделить весь код
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
procedure DirClick(Sender : TObject);
var
 s: string;
 begin
  if BrowseForFolder(WizardDirValue, s, True) then
   WizardForm.DirEdit.Text := s;
end;

procedure InitializeWizard;
 begin
  WizardForm.DirBrowseButton.OnClick := @DirClick;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 20:36, 14-02-2013 | #1640