[sanya007]

p3rf3ct1c,

Попробуй для ярлыка:

Код:

[Icons]
Name: {commondesktop}\xxx; Filename: {app}\xxx.exe; WorkingDir: {app}; Parameters: -nomaster -game strike

[p3rf3ct1c]

sanya007, Спасибо помогло!

[serg aka lain]

p3rf3ct1c,

или хотя бы помогите со вторым вопросом пожалуйста »

Код:

[Icons]
Name: "{userdesktop}\CStrike"; Filename: "{app}\hl.exe"; Parameters: "-nomaster -game cstrike"; WorkingDir: "{app}";

[sanya007]

Serega в скрипте для распаковки FreeArc архивов через dll, есть возможность распаковывать несколько архивов.
Но возникла проблема, если эти архивы находятся на 2 DVD, как заставить распаковываться архивы со второго диска, ведь dll просканирует содержимое {src} первого диска, распакует их, и инсталятор завершит работу!
Есть какие-то соображения по этому поводу?

[serg aka lain]

p3rf3ct1c,
А по первому вопросу можно

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

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

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

[code]

var
BTMImage, BTMImage2: TBitmapImage;

procedure InitializeWizard();
begin
ExtractTemporaryFile('Bitmap Image.bmp');
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;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then
begin
BTMImage2.Parent := WizardForm.SelectDirPage;
end;
if CurPageID = wpReady then
begin
BTMImage2.Parent := WizardForm.ReadyPage;
end;
if CurPageID = wpInstalling then
begin
BTMImage2.Parent := WizardForm.InstallingPage;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
DelTree(ExpandConstant('{userdesktop}\DLL'), True, True, True);
end;

, больше ни чего не придумал.

[p3rf3ct1c]

serg aka lain, получилось, только еще надо как нибудь сделать прозрачность.

[МИШАНЧИК]

Serega, помогите пожалуйста соединить.
А то не смотря на Вашу помощь и объяснения не получается.
Заранее большое спасибо.

[serg aka lain]

только еще надо как нибудь сделать прозрачность. »

Это свойство есть у TLabel, следовательно, все элементы страницы нужно заменить на TLabel, ну, пожалуй, кроме TEdit, кнопок и ProgressBar.

[p3rf3ct1c]

serg aka lain,
Можете показать где заменять пожалуйста?
Вот секция

code

const HALIGN_CENTER = 0; HALIGN_LEFT = 1; HALIGN_RIGHT = 2; VALIGN_CENTER = 0; VALIGN_TOP = 1; VALIGN_BOTTOM = 2; FIT_NONE = 0; FIT_WIDTH = 1; FIT_HEIGHT = 2; FIT_BOTH = 3; CLR_INVALID = $FFFFFFFF; procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall'; // Importing UnloadSkin API from ISSkin.DLL procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall'; // Importing ShowWindow Windows API from User32.DLL function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall'; var BmpFile: TBitmapImage; BTMImage, BTMImage2: TBitmapImage; bottom_img:TBitmapImage; function InitializeSetup(): Boolean; begin ExtractTemporaryFile('GuiStyle.msstyles'); LoadSkin(ExpandConstant('{tmp}\GuiStyle.msstyles'), ''); Result := True; end; procedure DeinitializeSetup(); begin ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0); UnloadSkin(); end; procedure LblOnClick(Sender: TObject); var ErrorCode: Integer; begin end; var WLabel1, WLabel2, FLabel1, FLabel2: TLabel; PageNameLabel, PageDescriptionLabel: TLabel; DesktopIcon,Dop:TCheckBox; ResultStr: string; ResultCode: Integer; NeedSize:Integer; FreeMB, TotalMB: Cardinal; NeedSpaceLabel,FreeSpaceLabel: TLabel; Function MakeDesktopIcon:Boolean; begin Result:=DesktopIcon.Checked; end; Function InstallDop:Boolean; begin Result:=Dop.Checked; end; procedure GetFreeSpaceCaption(Sender: TObject); var Path: String; begin Path := ExtractFileDrive(WizardForm.DirEdit.Text); GetSpaceOnDisk(Path, True, FreeMB, TotalMB); if FreeMB > 1024 then FreeSpaceLabel.Caption := 'Äîñòóïíî ìåñòà íà äèñêå: '+ FloatToStr(round(FreeMB/1024*100)/100) + ' GB' else FreeSpaceLabel.Caption := 'Äîñòóïíî ìåñòà íà äèñêå: '+ IntToStr(FreeMB)+ ' MB'; if FreeMB < NeedSize then WizardForm.NextButton.Enabled := False else WizardForm.NextButton.Enabled := True; end; procedure GetNeedSpaceCaption; begin if NeedSize > 1024 then NeedSpaceLabel.Caption := 'Òðåáóåòñÿ ìåñòà íà äèñêå: '+ FloatToStr(round(NeedSize/1024*100)/100) + ' GB' else NeedSpaceLabel.Caption := 'Òðåáóåòñÿ ìåñòà íà äèñêå: '+ IntToStr(NeedSize)+ ' MB'; end; var ProgressBar1: TNewProgressBar; procedure animateprogress; begin ProgressBar1.Position := ProgressBar1.Position+1 end; procedure InitializeWizard(); var GifFileName: String; Lbl: TNewStaticText; begin ExtractTemporaryFile('3.bmp'); ExtractTemporaryFile('1.bmp'); BTMImage := TBitmapImage.Create(WizardForm); BTMImage.SetBounds(0, ScaleY(59), WizardForm.Width, ScaleY(255)); BTMImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.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}\1.bmp')); BTMImage2.Stretch := True; bottom_img:= TBitmapImage.Create(WizardForm); bottom_img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\3.bmp')); bottom_img.SetBounds(0, 315, 497, 45); {ïåðâûå 2 ïàðàìåòðà - êîîðäèíàòû ëåâîãîãî âåðõíåãî óãëà ïî ãîðèçîíòàëè è âåðòèêàëè, äàëüøå øèðèíà è âûñîòà, äî êîòîðîé ðàñòÿíóòü} bottom_img.Parent:= WizardForm; bottom_img.Stretch:= True; begin ProgressBar1 := TNewProgressBar.Create(wizardform); with ProgressBar1 do end; begin WizardForm.Caption:='Ïðîãðàììà óñòàíîâêè èãðû "Overlord II"'; WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.FinishedHeadingLabel.Hide; WizardForm.FinishedLabel.Hide; WizardForm.WizardBitmapImage.Width := 497; WizardForm.WizardBitmapImage.Height := 313; WizardForm.WizardSmallBitmapImage.Left:=0; WizardForm.WizardSmallBitmapImage.Width:=497; WizardForm.WizardSmallBitmapImage.Height:=58; WizardForm.PageDescriptionLabel.Width:=300; WizardForm.PageNameLabel.Width:=300; WizardForm.FileNameLabel.Visible:=False; WizardForm.ProgressGauge.Top:=ScaleY(100); WizardForm.StatusLabel.Top:=ScaleY(80); WLabel1 := TLabel.Create(WizardForm); WLabel1.Left := ScaleX(176); WLabel1.Top := ScaleY(16); WLabel1.Width := ScaleX(301); WLabel1.Height := ScaleY(54); WLabel1.AutoSize := False; WLabel1.WordWrap := True; WLabel1.Font.Size := 11; WLabel1.Font.Style := [fsBold]; WLabel1.Font.Color:= clwhite; WLabel1.Caption := WizardForm.WelcomeLabel1.Caption; WLabel1.Transparent := True; WLabel1.Parent := WizardForm.WelcomePage; WLabel2 :=TLabel.Create(WizardForm); WLabel2.Top := ScaleY(76); WLabel2.Left := ScaleX(176); WLabel2.Width := ScaleX(301); WLabel2.Height := ScaleY(234); WLabel2.AutoSize := False; WLabel2.WordWrap := True; WLabel2.Font.Color:= clWhite; WLabel2.Caption := WizardForm.WelcomeLabel2.Caption; WLabel2.Transparent := True; WLabel2.Parent := WizardForm.WelcomePage; WizardForm.WizardBitmapImage2.Width := 497; WizardForm.WizardBitmapImage2.Height := 313; FLabel1 := TLabel.Create(WizardForm); FLabel1.Left := ScaleX(176); FLabel1.Top := ScaleY(16); FLabel1.Width := ScaleX(301); FLabel1.Height := ScaleY(54); FLabel1.AutoSize := False; FLabel1.WordWrap := True; FLabel1.Font.Size := 11; FLabel1.Font.Style := [fsBold]; FLabel1.Font.Color:= clWhite; FLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption; FLabel1.Transparent := True; FLabel1.Parent := WizardForm.FinishedPage; FLabel2 :=TLabel.Create(WizardForm); FLabel2.Top := ScaleY(76); FLabel2.Left := ScaleX(176); FLabel2.Width := ScaleX(301); FLabel2.Height := ScaleY(53); FLabel2.AutoSize := False; FLabel2.WordWrap := True; FLabel2.Font.Color:= clWhite; FLabel2.Caption := '' #13#13 ''; FLabel2.Transparent := True; FLabel2.Parent := WizardForm.FinishedPage; begin PageNameLabel := TLabel.Create(WizardForm); with PageNameLabel do begin Left := ScaleX(10); Top := ScaleY(10); Width := ScaleX(300); Height := ScaleY(14); AutoSize := False; WordWrap := True; Font.Color := clblack; Font.Style := [fsBold]; Transparent := True; Parent := WizardForm.MainPanel; end; PageDescriptionLabel := TLabel.Create(WizardForm); with PageDescriptionLabel do begin Left := ScaleX(15); Top := ScaleY(25); Width := ScaleX(400); Height := ScaleY(30); AutoSize := False; WordWrap := True; Font.Color := clblack; Transparent := True; Parent := WizardForm.MainPanel; end; with WizardForm do begin PageNameLabel.Hide; PageDescriptionLabel.Hide; with MainPanel do begin with WizardSmallBitmapImage do begin Left := ScaleX(0); Top := ScaleY(0); Width := Mainpanel.Width; Height := MainPanel.Height; end; end; end; end; begin DesktopIcon:=TCheckBox.Create(WizardForm); with DesktopIcon do begin Parent:=WizardForm.SelectDirPage; Caption:='Äîáàâèòü ÿðëûê íà ðàáî÷èé ñòîë' Left:=ScaleX(0); Top := WizardForm.DirEdit.Top+35; Width := ScaleX(400); Height := ScaleY(15); TabOrder := 0; Checked := True end; end; begin dop := TCheckBox.Create(WizardForm); with Dop do begin Parent := WizardForm.SelectDirPage; Caption := 'Óñòàíîâèòü PunkBuster (àíòè-÷èò äëÿ èãðû ïî èíòåðíåòó)'; Left := ScaleX(0); Top := WizardForm.DirEdit.Top+55; Width := ScaleX(400); Height := ScaleY(15); TabOrder := 0; Checked := True; end; end; begin NeedSize :=3800; WizardForm.DiskSpaceLabel.Hide; NeedSpaceLabel := TLabel.Create(WizardForm); with NeedSpaceLabel do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(0); Top := ScaleY(202); Width := ScaleX(209); Height := ScaleY(13); end; FreeSpaceLabel := TLabel.Create(WizardForm); with FreeSpaceLabel do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(0); Top := ScaleY(220); Width := ScaleX(209); Height := ScaleY(13); end; WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption; WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0; end; end; end; procedure CurPageChanged(CurPageID: Integer); begin begin PageNameLabel.Caption := WizardForm.PageNameLabel.Caption; PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption; end; begin if CurPageID=wpSelectDir then begin WizardForm.NextButton.Caption:='Óñòàíîâèòü'; BTMImage2.Parent := WizardForm.SelectDirPage; end; if CurPageID = wpReady then begin BTMImage2.Parent := WizardForm.ReadyPage; end; if CurPageID = wpInstalling then begin BTMImage2.Parent := WizardForm.InstallingPage; GetNeedSpaceCaption; if FreeMB < NeedSize then WizardForm.NextButton.Enabled:=False end;end;end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssPostInstall then DelTree(ExpandConstant('{userdesktop}\DLL'), True, True, True); end;

[serg aka lain]

МИШАНЧИК,

не получается. »