Код: Выделить всё
[Setup]
appname=app
AppVersion=1.0
DefaultDirName={pf}\app
[Icons]
Name: "{commondesktop}\WebInterface"; Filename: "http://127.0.0.1:90/webinterface/Home/Login";Код: Выделить всё
function NextButtonClick(CurPageID: Integer): Boolean;
var
i: integer;
begin
Result := True;
if CurPageID = wpSelectDir then
begin
if (FileSearch('WorldOfTanks.exe', ExpandConstant('{app}')) = '') then
begin
SuppressibleMsgBox('"WorldOfTanks.exe не найден в папке назначения, проверьте путь к игре".', mbCriticalError, MB_OK, MB_OK);
Result := False;
end else
Result := True;
end else
if CurPageID = ComponentsPage1.ID then
begin
Result := False;
for i:= 0 to ComponentsList1.Items.Count - 1 do
begin
if (ComponentsList1.Checked[i]) then
begin
Result := True;
Break;
end;
end;
if Not Result then MsgBoxEx(0, 'Не один из компонетов не выбран!','Внимание!!',MB_OK or MB_ICONWARNING, 0, 0);
end else
begin
Result := True;
end;
end