[audiofeel]

опять я тут со своими чек боксами. не могу "сделать" такое = при отмене создания папки в меню пуск, (т.е когда нажат чек бокс "не создавать папку") кнопка групп браузер бутон не активна, примеров насобирал штук 10. ни один не могу "воткнуть"
в кратце скрипт

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

procedure WizardFormBtnClick(hBtn: HWND);
var
Btn: TButton;

begin
case hBtn of
GroupBrowseButton: Btn := WizardForm.GroupBrowseButton;
end;
end;
Btn.OnClick(Btn);
BtnRefresh(hBtn);
end;

procedure GroupEditOnChange(Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;

function NoStartIcon: boolean;
begin
Result := not BtnGetChecked(NoStartIconCheckBox);
end;

procedure CheckBoxesClick(Sender: TObject);
begin
case Sender of
NoStartIconLabel: BtnSetChecked(NoStartIconCheckBox, not BtnGetChecked(NoStartIconCheckBox));
end;
end;

procedure CreateButtons;
begin
GroupBrowseButton := BtnCreate(WizardForm.Handle, ScaleX(494), ScaleY(132), ScaleX(94), ScaleY(26), 'DirBrowseBtn.png', 0, False);
BtnSetEvent(GroupBrowseButton, BtnClickEventID, WrapBtnCallback(@WizardFormBtnClick, 1));
NoStartIconCheckBox := BtnCreate(WizardForm.Handle, ScaleX(25), ScaleY(235), ScaleX(18), ScaleY(18), 'CheckBox.png', 0, True);
end;

[VoLT]

Dodakaedr, там пока мало что реализованно, но если очень надо вот - ISExec.dll

[Dodakaedr]

VoLT, что за ошибка? Библа вообще рабочая?

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

Код:

[Setup]
appname=app
AppVersion=1.0
DefaultDirName={pf}\app

[Files]
Source: "ISExec.dll"; Flags: dontcopy nocompression

[Code]
type
  TCancelFunc = procedure(var Cancel: Boolean);

procedure Exec(aEXEName: WideString; aVisible: Boolean; aCallback: TCancelFunc); external 'Exec@files:ISExec.dll stdcall';
procedure CallMe(var Cancel: Boolean);
begin
  Cancel := False;
end;

procedure InitializeWizard();
begin
  Exec(ExpandConstant('{src}\MyProg.exe'), True, @CallMe);
  //Exec('cmd.exe', True, @CallMe);
end;

[VoLT]

Dodakaedr, ой спасибо за тест - разница в объявлении процедур
библиотека рабочая - а вот скрипт не поправлен - печаль ...
Правильно - так:

Код:

type
  TCancelProc = function: Boolean

Перекачай ISExec.iss

[PleaseTryAgain]

Здравствуйте. Нужна помощь по работе с внешними dll'ками.
При установке нужно получать информацию о подключённом HID устройстве. Для этого решил использовать библиотеку hidapi.dll, а из неё нужна функция hid_enumerate(int vid, int pid). Функция возвращает указатель на структуру, содержащую информацию о HID устройствах.
Как я понял в inno script указателей нет, поэтому вопрос, можно ли использовать эту функцию? И если да, то какой указывать тип результата и каким образом его вообще получать?

Код:

function GetInfo(vid: integer; pid: integer):  integer;
external 'hid_enumerate@files:hidapi.dll stdcall delayload';

procedure CurPageChanged(CurPageID: Integer);
Var
  vid: integer;
  pid: integer;
  res:  integer;
begin
  vid := 0;
  pid := 0;
  if CurPageId = wpWelcome then
      begin
        WizardForm.WelcomeLabel1.Caption := ExpandConstant('{cm:InstallPage_pageDescription_Caption1}')+#13#10+('{#MyAppName}');
        res := GetInfo(vid, pid);
      end

[VoLT]

PleaseTryAgain, напишите на дельфи или на си длл - в ней все функции

[PleaseTryAgain]

VoLT, библиотека на С написана

[VoLT]

PleaseTryAgain, я про обертку ...
а если использовать на чистую то вы правильно сделали что использовали integer (но для 64 битных длл нужно расширить до 8 знаков)
странно что юзаете stdcall вроде dll на си все юзают Cdecl

[PleaseTryAgain]

VoLT, благодарю, с заменой stdcall на cdecl программа заработала Х)

Код:

res := GetInfo(vid, pid);

Я так понимаю, что раз функция возвращает указатель, то в переменную res записывается адрес, но как получить то что записано по этому адресу?

[VoLT]

PleaseTryAgain, почти никак) как вы и сказали в инно нет указателей