Inno Setup (создание инсталяционных пакетов) - [3804] :: Программы

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

[ Code]
var
UTimer: TTimer; //Таймер для обновления событий

procedure UpdateTimer(Sender: TObject);
begin
//123 - ваш определённый текст!
if WizardForm.DirEdit.Text='123' then begin
WizardForm.NextButton.Enabled:= False;
end;
if WizardForm.DirEdit.Text='' then begin
WizardForm.NextButton.Enabled:= True;
end;
end;

procedure InitializeWizard;
begin
UTimer:= TTimer.Create(WizardForm);
UTimer.Interval:= 1;
UTimer.OnTimer:= @UpdateTimer;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
UTimer.Enabled:= False;
if CurPageID=wpSelectDir then begin
UTimer.Enabled:= True;
end;
end;

Модерирует : gyra, Maz
articlebot (13-10-2013 23:33): продолжение темы - №15	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению