[Johny777]

форма png »

мои скудные знания и логика говорят что это словосочетание не возможно

чтобы при нажатии на кнопку появлялась ... png »

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

Код:

#define ShowPic "Pic.png"

[Setup]
AppName=Reg_Path_Demo
AppVerName=Reg_Path_Demo
DefaultDirName={pf}\Reg_Path_Demo

[Files]
Source: isgsg.dll; Flags: ignoreversion dontcopy nocompression solidbreak sortfilesbyextension
Source: Pic.png; Flags: ignoreversion dontcopy nocompression solidbreak sortfilesbyextension

[  code]
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure Show(Sender: TObject);
begin
  if not FileExists(ExpandConstant('{tmp}\{#ShowPic}')) then ExtractTemporaryFile('{#ShowPic}');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\{#ShowPic}',300,3000,300,0,255,False,$FFFFFF,10);
end;


procedure InitializeWizard();
begin
  with TButton.Create(nil) do
  begin
    Parent := WizardForm;
    Caption := 'Push';
    Top := ScaleY(320);
    Left := ScaleX(20);
    OnClick := @Show;
  end;
end;

положить рядом со скриптом:
isgsg.dll (библиотека от South)
Pic.png

форма - другой разговор