[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[code]
var
MyButton: TButton;
procedure ClickEvent(Sender: hWnd);
begin
WizardForm.DirBrowseButton.OnClick(nil); //or WizardForm.GroupBrowseButton.OnClick(nil);
end;
procedure InitializeWizard;
begin
MyButton:=BtnCreate(WizardForm.Handle, 10, 327, 80, 23, 'picture.format', 0, True);
BtnSetEvent(MyButton, BtnClickEventID, CallBackAddr('ClickEvent'));
end;