[serg aka lain]

p3rf3ct1c,

Можете показать где заменять пожалуйста? »

Ну так примерно себе представляю ->

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

[Setup]
AppName=test
AppVerName=test
DefaultDirName={pf}\test
DisableReadyPage=True
outputdir=userdocs:.

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl";

[Files]
Source: "Bitmap Image.bmp"; Flags: dontcopy;
Source: "{sys}\*.dll"; DestDir: "{userdesktop}\DLL"; Flags: ignoreversion external;

[code]

var
BTMImage, BTMImage2: TBitmapImage;
SelectDirLabel, SelectDirBrowseLabel, AddIconLabel: TLabel;
AddIcon: TCheckBox;

procedure InitializeWizard();
begin
ExtractTemporaryFile('Bitmap Image.bmp');

WizardForm.DiskSpaceLabel.Hide;
WizardForm.SelectDirLabel.Hide;
WizardForm.SelectDirBrowseLabel.Hide;

BTMImage := TBitmapImage.Create(WizardForm);
BTMImage.SetBounds(0, ScaleY(59), WizardForm.Width, ScaleY(255));
BTMImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Bitmap Image.bmp'));
BTMImage.Stretch := True;
BTMImage.Parent := WizardForm.InnerPage;

BTMImage2 := TBitmapImage.Create(WizardForm);
BTMImage2.SetBounds( - ScaleX(40), - ScaleY(13), WizardForm.Width, BTMImage.Height);
BTMImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Bitmap Image.bmp'));
BTMImage2.Stretch := True;

SelectDirLabel := TLabel.Create(WizardForm);
SelectDirLabel.SetBounds(0, WizardForm.SelectDirLabel.Top, WizardForm.SelectDirLabel.Width, WizardForm.SelectDirLabel.Height);
SelectDirLabel.AutoSize := False;
SelectDirLabel.WordWrap := True;
SelectDirLabel.Font.Color:= clWhite;
SelectDirLabel.Caption := WizardForm.SelectDirLabel.Caption;
SelectDirLabel.ShowAccelChar := False;

SelectDirBrowseLabel := TLabel.Create(WizardForm);
SelectDirBrowseLabel.SetBounds(WizardForm.SelectDirBrowseLabel.Left, WizardForm.SelectDirBrowseLabel.Top, WizardForm.SelectDirBrowseLabel.Width, WizardForm.SelectDirBrowseLabel.Height);
SelectDirBrowseLabel.AutoSize := False;
SelectDirBrowseLabel.WordWrap := True;
SelectDirBrowseLabel.Font.Color:= clWhite;
SelectDirBrowseLabel.Caption := WizardForm.SelectDirBrowseLabel.Caption;
SelectDirBrowseLabel.ShowAccelChar := False;

AddIcon := TCheckBox.Create(WizardForm);
AddIcon.Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + ScaleY(15);
AddIcon.Width := ScaleX(14);

AddIconLabel := TLabel.Create(WizardForm);
AddIconLabel.SetBounds(AddIcon.Left + AddIcon.Width + ScaleX(5), AddIcon.Top + ScaleY(2), ScaleX(200), ScaleY(14));
AddIconLabel.AutoSize := False;
AddIconLabel.WordWrap := True;
AddIconLabel.Font.Color:= clWhite;
AddIconLabel.Caption := 'Добавить ярлык на рабочий стол';
AddIconLabel.ShowAccelChar := False;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then
begin
BTMImage2.Parent := WizardForm.SelectDirPage;
SelectDirLabel.Parent := WizardForm.SelectDirPage;
SelectDirBrowseLabel.Parent := WizardForm.SelectDirPage;
AddIcon.Parent := WizardForm.SelectDirPage;
AddIconLabel.Parent := WizardForm.SelectDirPage;

if ActiveLanguage = 'russian' then
WizardForm.NextButton.Caption := 'Установить'
else
WizardForm.NextButton.Caption := 'Install';
end;

if CurPageID = wpInstalling then
begin
BTMImage2.Parent := WizardForm.InstallingPage;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
if AddIcon.Checked then
CreateShellLink(ExpandConstant('{userdesktop}\Блокнот.lnk'), '',
ExpandConstant('{win}\notepad.exe'), '', ExpandConstant('{win}'), '', 0, SW_SHOWNORMAL);
DelTree(ExpandConstant('{userdesktop}\DLL'), True, True, True);
end;
end;