YURSHAT
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
#include "Files\botva2.iss"
[Setup]
AppName=Мега инсталлятор от YURSHAT
AppVerName=Мега инсталлятор от YURSHAT 1.0
DefaultDirName={pf}\TrackBar
OutputBaseFilename=setup
[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: Files\*; Flags: dontcopy
[Code]
var
WelcomeLabel1: TLabel;
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;
procedure RedesignWizardForm;
begin
ExtractTemporaryFile('nfs.jpg'); //nfs.jpg - это фоноваю картинка
//скрываем элементы формы
with WizardForm do begin
ClientWidth:=ScaleX(790);
ClientHeight:=ScaleY(533);
Center;
InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
end;
//создаем лейбл
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do begin
AutoSize:=False
SetBounds(ScaleX(75), ScaleY(185), ScaleX(648), ScaleY(65));
WordWrap:=True
Alignment := taCenter;
Transparent:=True
Font.Name:='Georgia';
Font.Size:= 16;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold]
Caption:= WizardForm.WelcomeLabel1.Caption;
Parent:=WizardForm
end;
//фоновая картинка
ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\nfs.jpg'),0,0,WizardForm.ClientWidth,WizardForm.ClientHeight,True,True);
ImgApplyChanges(WizardForm.Handle);
end;
//создаем процедуру для скрытия наших лейблов
procedure HideComponents;
begin
//скрываем лейбл на всех страницах
WelcomeLabel1.Hide;
end;
//создаем процедуру для показа лебла на нужной странице
procedure ShowComponents(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WelcomeLabel1.Show;
end;
end;
end;
procedure InitializeWizard;
begin
RedesignWizardForm
end;
procedure CurPageChanged(CurPageID: Integer);
begin
HideComponents;
ShowComponents(CurPageID);
end;
procedure DeinitializeSetup;
begin
gdipShutdown;
end; |
