[Gnom_aka_Lexander]

Imitri7, Както так, я думаю:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
 Source: DirBitmap.bmp; DestDir: {tmp}; Flags: dontcopy
 Source: DirBitmap2.bmp; DestDir: {tmp}; Flags: dontcopy
 Source: файл; DestDir: {Code:GetStimApp}; 

[CustomMessages]
 Enter=Укажите путь до вашего Steam профиля:

[_code]
 Var
 Label0, Label1, Label2: TLabel;
 NewEdit1, NewEdit2: TNewEdit;
 TestSystemButton: TNewButton;
 BitmapImage1: TBitmapImage;

 procedure SystemButtonOnClick(Sender: TObject);
 var s: String;
 begin
 BrowseForFolder('Укажите путь до вашего Steam профиля:', s, False);
 if s<>'' then NewEdit1.Text:= s;
 end;

function GetStimApp : String;
begin
Result:=NewEdit1.Text;
end;

procedure InitializeWizard();
 begin
 WizardForm.DirBrowseButton.Top := ScaleY(44);
 WizardForm.DirEdit.Top := ScaleY(44);
 WizardForm.SelectDirBrowseLabel.Top := ScaleY(150);

 ExtractTemporaryFile('DirBitmap.bmp');
 WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap.bmp'));
 WizardForm.SelectDirBitmapImage.Width:= 32
 WizardForm.SelectDirBitmapImage.Height:= 32
 WizardForm.SelectDirBitmapImage.Top:= WizardForm.SelectDirBitmapImage.Top
 WizardForm.SelectDirBitmapImage.Parent := WizardForm.SelectDirPage;

 BitmapImage1 := TBitmapImage.Create(WizardForm);
 with BitmapImage1 do
 begin
 Name := 'BitmapImage1';
 Parent := WizardForm.SelectDirPage;
 Left := WizardForm.SelectGroupBitmapImage.Left;
 Top := WizardForm.SelectGroupBitmapImage.Top + ScaleY(30) + ScaleY(44);
 Width := ScaleX(32);
 Height := ScaleY(32);
 ExtractTemporaryFile('DirBitmap2.bmp');
 Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap2.bmp'));
 end;

 Label0 := TLabel.Create(WizardForm);
 with Label0 do begin
 Name := 'Label0';
 Parent := WizardForm.SelectDirPage;
 Caption := ExpandConstant('{cm:Enter}');
 Transparent := False;
 Left := WizardForm.SelectStartMenuFolderLabel.Left
 Top := WizardForm.SelectStartMenuFolderLabel.Top + ScaleY(30) + ScaleY(44);
 Height := ScaleY(20);
 //AutoSize := true;
 end;
 NewEdit1 := TNewEdit.Create(WizardForm);
 with NewEdit1 do begin
 Name := 'NewEdit1';
 Parent := WizardForm.SelectDirPage;
 Top := WizardForm.DirEdit.Top + ScaleY(30) + ScaleY(44);
 Width := WizardForm.DirEdit.Width
 Height := ScaleY(20);
 Text := 'D:\Games\Steam\steamapps\steamprofile';
 TabOrder := 2;
 //Color:=clColor;
 end;
 TestSystemButton := TNewButton.Create(WizardForm);
 with TestSystemButton do begin
 Parent := WizardForm.SelectDirPage;
 Caption := 'Обзор...';
 Left:= WizardForm.GroupBrowseButton.left
 Top:=WizardForm.DirEdit.Top + ScaleY(30) + ScaleY(44);
 Width:=WizardForm.GroupBrowseButton.Width
 Height:=WizardForm.GroupBrowseButton.Height
 OnClick:=@SystemButtonOnClick
 end;
 end;

По крайней мере, в этом направлении смотри.

[Imitri7]

Лександер, не прокатило, пойду в справке искать

[El Sanchez]

не прокатило, пойду в справке искать »

Imitri7, думаю, из реестра нужно брать инфу о местоположении профиля, например:

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

Код:

[Files]
Source: {app}\file1.ext; DestDir: {code:GetSteamProfileDir|{reg:HKCU\Software\Valve\Steam,ModInstallPath|}}; Components: SteamProfileFiles
...
Source: {app}\fileN.ext; DestDir: {code:GetSteamProfileDir|{reg:HKCU\Software\Valve\Steam,ModInstallPath|}}; Components: SteamProfileFiles

[Components]
Name: SteamProfileFiles; Description: Steam Profile Files; Check: IsSteamProfileExists()

[code]
function GetSteamProfileDir(Param: String): String;
begin
    Result := ExtractFileDir(RemoveBackSlash(Param));
end;

function IsSteamProfileExists(): Boolean;
begin
    Result := DirExists(GetSteamProfileDir(ExpandConstant('{reg:HKCU\Software\Valve\Steam,ModInstallPath|}')));
end;

[superalex]

в папке maps есть папка cstrike, мне нужна чтобы эта папка с файлами и вложенными в нее папками была сохранена в установщики подскажите пожалуйста нужные настройки ?

[Files]
Source: "maps\*"; DestDir: "{app}\counter-strike source";Flags:ignoreversion;

[LinkOFF]

Доброго времени суток.У меня вопрос: что надо прописать в скрипте чтоб распаковать зашифрованный архив(с паролем)?
Архив freearc

[Rikill]

LinkOFF, смотри документацию либо к исдоне либо к модулю от Шегората

[boss911]

superalex

Код:

[Files]
Source: maps\*; DestDir: {app}\counter-strike source; Flags: ignoreversion recursesubdirs createallsubdirs

[superalex]

boss911 »

спасибо

[Raf-9600]

1. Как сделать чтоб файл устанавливался если выбран компонент "inMPQ\video\MPQ" и один (любой) из этих VideoD2\German VideoD2\Spanish VideoD2\French VideoD2\Italian ?
2. Ктонить подскажет код, скрывающий BeveledLabel на странице установки?

[Habetdin]

если выбран компонент "inMPQ\video\MPQ" и один (любой) из этих VideoD2\German VideoD2\Spanish VideoD2\French VideoD2\Italian »

Код:

[Files]
Source: File.ext; DestDir: {app}; Components: "inMPQ\video\MPQ" and ("VideoD2\German VideoD2\Spanish" or "VideoD2\French VideoD2\Italian"); Flags: ignoreversion

---

код, скрывающий BeveledLabel на странице установки »

Код:

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInstalling then
    WizardForm.BeveledLabel.hide;
  if CurPageID = wpInfoAfter then
    WizardForm.BeveledLabel.show;
  // на wpFinished по-умолчанию скрыто, как и на wpWelcome
end;