YURSHAT, помоги пожайлуста, сделал я рисунок .bmp (497 * 360), вставил код из шапки форума (для вставки фонового рисунка инсталлятора), все вроде запаковалось, в момент старта исталляционного пакета ошибка выскакивает - Runtime Error (at 35:2062) Could not call proc. Посмотри пожайлуста что там не так ?...
[code]
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{C609B4C1-5331-4D1E-96A4-7420EC33C4CB}
AppName=Sven
AppVerName=Sven
DefaultDirName={pf}\Sven
DisableDirPage=yes
DefaultGroupName=Sven
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\Alexander\Ðàáî÷èé ñòîë
OutputBaseFilename=Sven (foto+video).exe
SetupIconFile=C:\Documents and Settings\Alexander\XXX\ico-èêîíêè\ya.ico
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
WizardImageFile=C:\Documents and Settings\Alexander\\XXX\image3.bmp
WizardImageStretch=yes
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: "C:\Documents and Settings\Alexander\XXX\autorun.exe"; DestDir: "{app}"; Flags:
ignoreversion
[Run]
Filename: "{app}\autorun.exe"; Description: "{cm:LaunchProgram,Sven}";
Код:
var
lbl1, lbl2, lbl3: TLabel;
txt1, txt2, txt3: string;
i: Integer;
tmr1: TTimer;
pnl: TPanel;
procedure tmr1Timer(Sender: TObject);
begin
tmr1.Enabled:= False;
lbl1.Caption:= 'текст';
txt2:= 'текст2';
txt3:= 'текст3';
lbl2.Caption:= '';
for i:= 1 to Length(txt2) do begin
if Application.Terminated then Break;
lbl2.Caption:= lbl2.Caption + txt2[i];
Application.ProcessMessages;
Sleep(50);
end;
lbl3.Caption:= '';
for i:= 1 to Length(txt3) do begin
if Application.Terminated then Break;
lbl3.Caption:= lbl3.Caption + txt3[i];
Application.ProcessMessages;
Sleep(25);
end;
end;
procedure CreateComponents;
begin
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.ReadyLabel.Hide;
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Left:= 0;
Top:= 0;
Width:= 400;
Height:= 100;
AutoSize:= False;
WordWrap:= True;
Alignment:= taCenter;
Font.Style:= [fsBold];
Font.Size:= 16;
Font.Color:= clDkGray;
Transparent:= True;
Caption:= '';
Parent:= WizardForm.ReadyLabel.Parent;
end;
lbl2:=TLabel.Create(WizardForm);
with lbl2 do begin
Left:= 0;
Top:= 70;
Width:= 400;
Height:= 70;
AutoSize:= False;
WordWrap:= True;
Font.Style:= [fsBold];
Font.Size:= 10;
Font.Color:= clTeal;
Transparent:= True;
Caption:= '';
Parent:= WizardForm.ReadyLabel.Parent;
end;
lbl3:=TLabel.Create(WizardForm);
with lbl3 do begin
Left:= 0;
Top:= 130;
Width:= 400;
Height:= 100;
AutoSize:= False;
WordWrap:= True;
Font.Style:= [fsBold];
Font.Size:= 8;
Font.Color:= clBlue;
Transparent:= True;
Caption:= '';
Parent:= WizardForm.ReadyLabel.Parent;
end;
tmr1:= TTimer.Create(WizardForm);
with tmr1 do begin
Interval:= 500;
OnTimer:= @tmr1Timer;
end;
end;
procedure ReadyPage;
var
ready_str: string;
begin
ready_str:= WizardForm.ReadyMemo.Text;
with TLabel.Create(pnl) do
begin
SetBounds(45,115,WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height);
Caption:= ready_str;
with Font do
begin
Color:= WizardForm.ReadyLabel.Font.Color;
Style:= WizardForm.ReadyLabel.Font.Style;
Name:= WizardForm.ReadyLabel.Font.Name;
Size:= WizardForm.ReadyLabel.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;
with TBevel.Create(WizardForm) do
begin
SetBounds(40,110, WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height);
Parent:= pnl;
end;
with TLabel.Create(pnl) do
begin
AutoSize:= WizardForm.ReadyLabel.AutoSize;
SetBounds(40,70, WizardForm.ReadyLabel.Width, WizardForm.ReadyLabel.Height);
WordWrap:= WizardForm.ReadyLabel.WordWrap;
Caption:= WizardForm.ReadyLabel.Caption;
with Font do
begin
Color:= WizardForm.ReadyLabel.Font.Color;
Style:= WizardForm.ReadyLabel.Font.Style;
Name:= WizardForm.ReadyLabel.Font.Name;
Size:= WizardForm.ReadyLabel.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;
pnl.Repaint;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpWelcome then
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end
else
If CurPageID=wpReady then
begin
WizardForm.BackButton.Hide;
CreateComponents;
ReadyPage;
end
else
If CurPageID=wpFinished then
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
end;
