[Dodakaedr]

спасибо помогло. Еще одна просьба есть. помогите 2 кода совместить, а то ошибку выдает »

Скрытый текст

Код:

procedure InitializeWizard();
var
Primer: TLabel;
begin
RedesignWizardForm;
InitInfo();
Primer := TLabel.Create(WizardForm);
Primer.Parent := WizardForm.SelectDirPage;
Primer.SetBounds(WizardForm.DirEdit.Top - 80, 110, WizardForm.Width, 110);
Primer.Caption := 'Если не нашел путь к World of Tanks, то укажите так f:\Games\World of Tanks\';
Primer.WordWrap := False;
end;

function IsAppRunning(): Boolean;
begin
Result:=(FindWindowByWindowName('WoT Client') <> 0);
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
Result:=True;
If CurPage=1 then
begin
if IsAppRunning() then
begin
MsgBox('Клиент игры World of Tanks в настоящее время запущен.' #13#13 'Необходимо закрыть его перед продолжением установки.', mbError, MB_OK);
Result:=False;
end
else
Result:=True;
end;
end;