[AlekseyPopovv]

habib2302, Заменить команду /DIR на /D

Код:

function GetDirFromCMD(kWord: string): string;
var
i, lStr: integer;
begin
Result := WizardDirValue;
lStr := Length(kWord);
for i := 0 to ParamCount do begin
if Pos(LowerCase(kWord), LowerCase(ParamStr(i))) > 0 then begin
Result := Copy(ParamStr(i), Pos(LowerCase(kWord), LowerCase(ParamStr(i))) + lStr,
Length(ParamStr(i)) - lStr);

while (Result[1] = '"') and (Result[Length(Result)] = '"') do
begin
Delete(Result, Length(Result), 1);
Delete(Result, 1, 1);
end;
end;
if Result <> WizardDirValue then
Break;
end;
end;

procedure InitializeWizard();
begin
WizardForm.DirEdit.Text := GetDirFromCMD('/D='); // можно поменять на любую букву
end;

Как Заменить команду /LANG на /L и Заменить команду /COMPONENTS на /C не знаю.

[PlanktoN]

как показать TasksList через CurPageChanged; (Как в скрипте от Serega.)

[AlekseyPopovv]

Помогите чтоб был виден текст на Выборе задач,Выборе Группы для Ярлыков и Страница Установки FreeArc(Просто там не виден текст какой файл распаковывается сколько времени осталось) »

Пока не понятно что вы хотите? Почему там текст не виден?... Пишите скрипт.

Как перед запуском инсталлятора проверить подключен ли компьютер к интернет? Если интернет подключен, то выдать сообщение "Имеется активное подключение к интернет! Отключите интернет и попробуйте снова!" (mb_ok), если нет то продолжить установку.

[kotyarko@fb]

Как перед запуском инсталлятора проверить подключен ли компьютер к интернет? »

Например, так:

Код:

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;

Есть и такой вариант.

[AlekseyPopovv]

kotyarko@fb, В первом варианте вообще не собирается скрипт, во втором варианте всё собирается, но всегда пишет что интернета нет и продолжает установку!

[Dodakaedr]

В первом варианте вообще не собирается скрипт »

Попробуйте так:

Код:

[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;

[AlekseyPopovv]

Dodakaedr, Ваш код работает. Но у меня вылазит ошибка сразу после нажатия "ок". Это мешает:

Код:

procedure DeinitializeSetup();
begin
ISWin7DeInit;
end;

Как с ней быть?

[Dodakaedr]

Как с ней быть? »

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

Код:

[setup]
appname=app
appversion=1.0
defaultdirname={sd}\app

[Code]
var
  ConnectionState: DWORD;
  Int: boolean;

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;

procedure InitializeWizard();
begin
  Int := True;
end;

procedure DeinitializeSetup();
begin
    if Int <> False then
      begin
          ISWin7DeInit;
      end;
end;

[habib2302]

доброе время суток. подскажите пожалуйста код для ansi на проверку на наличие файла перед распаковкой файлов
у меня есть один код, но при компиляции выдает ошибку

Код:

[code]
var found: boolean;

procedure NextButtonClick (CurPageID: integer): boolean;
begin
 if CurPageID=wpSelectDir then
 begin
  if not FileExists(AddBackslash(WizardForm.DirEdit.text) + 'CaptureDotNetRes.dll') then
  begin
    found:=false;
    result:=false;
    MsgBox('Отсутствуют некоторые файлы. Установка будет прервана!', MBinformation, mb_OK)
    WizardForm.Close;
  end
  else
    begin
    found:=true;
    result:=true;
    end;
 end
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  if ((CurPageID= wpSelectDir )and (not found)) then
  begin
  cancel:=true;
  confirm:=false;
  end;
end;

[TryRooM]

habib2302, Так пойдет. На любой версии.

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

Код:

var
   error : Boolean;
 function NextButtonClick(CurPageID: Integer): Boolean;
 begin
   Result := true;
   error := false;
   if CurPageID=wpSelectDir then begin
    Result := FileExists(ExpandConstant('{src}\file.test'))
    if not Result then begin
    MsgBox('Отсутствуют некоторые файлы. Установка будет прервана!', mbError, MB_OK);
    error := true;
    WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
    end;
    end;
   end;

 procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
 begin
  Confirm:=False;
 end;