Как управлять ProgressBar'ом из DLL, написанной на DX (Delphi 10 Seattle), в Inno Setup (ANSI)? Если делаю тоже самое, создав приложение на DX, то все нормально импортируется и отображается.
Привожу листинг кода:
Код DLL DX:
function Process(Pb: TProgressBar): Integer; stdcall;
var
I: integer;
begin
for I := 0 to 1000 do
begin
Pb.Position := I;
Pb.Update;
Sleep(10);
end;
end;
Exports
Process;
Код Inno Setup (ANSI):
function Count(Progr: TNewProgressBar): integer; external 'Process@files:CallC.dll stdcall delayload';
procedure NewButton1Click(Sender: TObject);
begin
Count(NewProgressBar1);
end;
При вызове в ответ получаю Acces Violation:
Может у кого есть правильное решение?
Код создания страницы:
[Code]
var
NewButton1: TNewButton;
NewProgressBar1: TNewProgressBar;
procedure NewButton1Click(Sender: TObject); forward;
procedure RedesignWizardForm;
begin
{ NewButton1 }
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Parent := WizardForm;
Left := ScaleX(152);
Top := ScaleY(327);
Width := ScaleX(57);
Height := ScaleY(26);
Caption := 'Клик';
OnClick := @NewButton1Click;
end;
NewProgressBar1 := TNewProgressBar.Create(WizardForm);
with NewProgressBar1 do
begin
Parent := WizardForm;
Left := ScaleX(8);
Top := ScaleY(328);
Width := ScaleX(137);
Height := ScaleY(25);
Max := 1000;
end;
NewButton1.TabOrder := 5;
NewProgressBar1.TabOrder := 6;
end;
function Count(Progr: TNewProgressBar): integer; external 'Process@files:CallProc.dll stdcall delayload';
procedure NewButton1Click(Sender: TObject);
begin
Count(NewProgressBar1);
end;
А вот так вот это выглядит: