[filehome]

Помогите пожалуйста!
Есть файл set.ini(он идет в комплект с инсталлятором) -> его содержимое
[files]

a1=название файла.exe
a2=название файла.exe
a3=название файла.exe
так до 30.

Задача нужно название всех фалов вывести в ComponentSelected + сделать чтобы можно было выбрать один или несколько файлов из списка и установить т.к неудобно постоянна изменять и собирать инсталлятор.
Спасибо за помощь!
Как это сделать не знаю.

[No4noylis]

valyok666, А нельзя ли для этой твоей новой кнопочки поставить выполнение такой процедуры:

Код:

procedure DirBrowsebuttonClick(Sender: TObject);
begin
WizardForm.DirBrowseButton.Click;
end;

BigBoo, это в таск-листе как я понимаю? Возможно поможет, если к этим задачам добавить GroupDescription: " " с пустым именем???

[BigBoo]

No4noylis, спасибо, помогло. Так работает:

Код:

[Tasks]
Name: "desktopicon"; Description: "Добавить иконку на &Рабочий стол"; GroupDescription: " "; MinVersion: 4.1,4.0;
Name: "quicklaunchicon"; Description: "Добавить иконку на &Панель быстрого запуска"; GroupDescription: " "; MinVersion: 4.1,4.0; Flags: unchecked
Name: "associate"; Description: "&Ассоциировать .iso файл с UltraISO"; MinVersion: 4.1,4.0;
Name: "isodrive"; Description: "Установить ISO CD/DVD эмулятор (ISODrive)"; MinVersion: 4.1,4.0; Flags: unchecked

[BigBoo]

Можно ли сделать так, чтобы окно финиша установки с кнопкой "Завершить" автозакрывалось, скажем через 10с., к примеру, как в 7z SFX с помощью префикса "fm10:"?

[Gugle]

Есть библиотка, которая зависит от установленной в системе WinPcap.exe. Winpcap копирует 4 библиотеки + устанавливает драйвер.

Мой код:

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: ifList.dll; Flags: dontcopy

[*code] //тут нет звездочки
type
  mas = record
  num: Integer;
  name: PAnsiChar;
  IPv4: PAnsiChar;
  IPv6: PAnsiChar;
  description: PAnsiChar;
  
end;

function getT(): Integer;
  external 'getT@files:ifList.dll stdcall';
function getV(d: Integer): mas;
  external 'getV@files:ifList.dll stdcall';

PROCEDURE InitializeWizard;
BEGIN
  
END;

FUNCTION NextButtonClick(CurPageID: Integer): Boolean;
VAR
 m: mas;
 i: Byte;
  
BEGIN
  for i := 1 to getT() do
  begin
    m := getV(i);
    MsgBox('num= ' + IntToStr(m.num) + #13#10 
         + 'name= ' + String(m.name) + #13#10 
         + 'IPv4= ' + String(m.IPv4) + #13#10 
         + 'IPv6= ' + String(m.IPv6) + #13#10 
         + 'description= ' + String(m.description) + #13#10 
         , mbInformation, MB_OK);
  end;
        
  Result := True;
END;

Ничего необычного. Если winpcap установлена в системе, то установщик работает коректно, если нет, то выдает ошибку:

Код:

Runtime Error (at -1:0):
Cannot Import dll: C:\...бла...\ifList.dll

Не импортируется моя библиотека. Как можно отловить эту ошибку и при ее срабатывании запустить тихую установку winpcap?

[volk1234]

подскажите сейчас и уберу а потом могу зогегистрируватса под другим именем »

И получите бан. А также мое персональное внимание к Вам.
Изучите правила конференции.

[valyok666]

Gugle, кинь на ргхост я посмотрю

[El Sanchez]

Не импортируется моя библиотека »

Gugle, ваша библиотека зависит от wpcap.dll/packet.dll, которые должны находиться в месте, где система сможет их обнаружить (например, при установке wpcap они копируются в system32). При вызове функции из вашей библиотеки система не находит зависимые dll и вот так грязно выругается. Кстати, попробуйте вручную скопировать wpcap.dll/packet.dll в system32, не устанавливая wpcap, и запустить скрипт. Если все гуд, то попробуйте объявить функции так:

читать дальше »

Код:

[Files]
Source: ifList.dll; Flags: dontcopy
Source: wpcap.dll; Flags: dontcopy
Source: packet.dll; Flags: dontcopy

[code]
function getT(): Integer;
  external 'getT@files:ifList.dll,wpcap.dll stdcall loadwithalteredsearchpath';
function getV(d: Integer): mas;
  external 'getV@files:ifList.dll,wpcap.dll stdcall loadwithalteredsearchpath';

Если нет, то измените функцию NextButtonClick:

читать дальше »

Код:

[code]
Function NextButtonClick(CurPageID: Integer): Boolean;
Var
 m: mas;
 i: Byte;
  
begin
  Result := True;
  if CurPageID = какая-нибудь страница then
  try
    for i := 1 to getT() do
    begin
      m := getV(i);
      MsgBox('num= ' + IntToStr(m.num) + #13#10 
         + 'name= ' + String(m.name) + #13#10 
         + 'IPv4= ' + String(m.IPv4) + #13#10 
         + 'IPv6= ' + String(m.IPv6) + #13#10 
         + 'description= ' + String(m.description) + #13#10 
         , mbInformation, MB_OK);
    end;
  except
    тут установка wpcap
    Result := False;
  end;
end;

[Gugle]

Gugle, ваша библиотека зависит от wpcap.dll/packet.dll, которые должны находиться в месте, где система сможет их обнаружить (например, при установке wpcap они копируются в system32). »

Там еще драйвер нужен, поэтому первый вариант не прокатывает. Нужна установка.

Если нет, то измените функцию NextButtonClick: »

блок:

Код:

try
//...
except
//...
end;

Не помогает. Ощущение, что до него даже не доходит выполнение скрипта.

[El Sanchez]

Там еще драйвер нужен, поэтому первый вариант не прокатывает. Нужна установка »

Gugle, да, нужен. Устанавливаю драйвер вручную - dll-ка интерфейсы не выдает. Пробуйте так:

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: ifList.dll; Flags: dontcopy

[code]
const
	SERVICE_QUERY_CONFIG = $1;
	SC_MANAGER_ALL_ACCESS = $f003f;

type
    mas = record
        num: Integer;
        name,IPv4,IPv6,description: PAnsiChar;
    end;
    HANDLE = Cardinal;

function getT(): Integer; external 'getT@files:ifList.dll stdcall delayload';
function getV(d: Integer): mas; external 'getV@files:ifList.dll stdcall delayload';

function OpenSCManager(lpMachineName, lpDatabaseName: String; dwDesiredAccess: Cardinal): HANDLE;
external 'OpenSCManagerA@advapi32.dll stdcall';

function OpenService(hSCManager: HANDLE; lpServiceName: String; dwDesiredAccess: Cardinal): HANDLE;
external 'OpenServiceA@advapi32.dll stdcall';

function CloseServiceHandle(hSCObject: HANDLE): Boolean;
external 'CloseServiceHandle@advapi32.dll stdcall';


function OpenServiceManager(): HANDLE;
begin
	Result := OpenSCManager('', 'ServicesActive', SC_MANAGER_ALL_ACCESS);
end;

function IsServiceInstalled(ServiceName: String): Boolean;
var
	hSCM: HANDLE;
	hService: HANDLE;
begin
	hSCM := OpenServiceManager();
	if hSCM <> 0 then
	begin
		hService := OpenService(hSCM, ServiceName, SERVICE_QUERY_CONFIG);
		if hService <> 0 then
		begin
			Result := hService <> 0;
			CloseServiceHandle(hService);
		end;
		CloseServiceHandle(hSCM);
	end;
end;

function InitializeSetup(): Boolean;
begin
    Result := IsServiceInstalled('npf');
    if not Result then MsgBox('Установите WinPcap.', mbError, MB_OK);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
    m: mas;
    i: Byte;
begin
    Result := True;
    if CurPageID = wpWelcome then
    begin
        for i := 1 to getT() do
        begin
            m := getV(i);
            MsgBox('num= ' + IntToStr(m.num) + #13#10
                + 'name= ' + String(m.name) + #13#10
                + 'IPv4= ' + String(m.IPv4) + #13#10
                + 'IPv6= ' + String(m.IPv6) + #13#10
                + 'description= ' + string(m.description) + #13#10
                , mbInformation, MB_OK);
        end;
    end;
end;