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

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

Аватара для Dodakaedr

Ветеран


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

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


Цитата AlekseyPopovv:
В первом варианте вообще не собирается скрипт »
Попробуйте так:
Код: Выделить весь код
[setup]
appname=app
appversion=1.0
defaultdirname={sd}\app

[Code]
var
  ConnectionState: DWORD;
  
Function InternetGetConnectedState(var lpdwFlags: DWORD; dwReserved: DWORD): Boolean;
 external 'InternetGetConnectedState@wininet.dll stdcall';

Function InitializeSetup(): Boolean;
begin
 if not InternetGetConnectedState(ConnectionState, 0) then
  Result := True
 else
 begin
  MsgBox('Имеется активное подключение к интернет! Отключите интернет и попробуйте снова!', mbError, MB_OK);
  Result := False;
 end;
end;

-------
Inno Setup 5 Ultra Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:07, 29-06-2015 | #746