Скрипты Inno Setup. Помощь и советы [часть 3]

[insombia]

VASYAKRN сам делай себе это это не сложно это раз во вторых нужно не писать сделайте такое readymemo а нужно писать сделайте пожалуйста такое readymemo кому не сложно и все

[LinkOFF]

Как в скрипте isdone к надписи 100% добавить Завершено:100%

[Rikill]

LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
тут исправь на
LabelPct1.Caption := 'Прошло'+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';

[LinkOFF]

Rikill, а можно как-нибудь сделать чтоб когда выбераешь язык установки были разные слова в зависимости от языка

[No4noylis]

LinkOFF, конечно

[CustomMessages]
russian.Pct1Caption=Прошло
english.Pct1Caption=Passed

Ну и соответственно:

LabelPct1.Caption := ExpandConstant('{cm:Pct1Caption}') +IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';

[insombia]

VASYAKRN ..... я не знаю хватит уже доставать со своими дурацкими вопросами тебе никто не ответит!!! ты бы хоть свои посты редактировал задал вопрос мне а пишешь кому не сложно

[LinkOFF]

LinkOFF, конечно
читать дальше »
------- »

Не получилось
insombia
http://inno.at.ua/TMP/18.08.bmp
сделайте
пожалуйста такое readymemo кому не сложно
http://inno.at.ua/TMP/12.7z »

пустая трата времени

[Rikill]

LinkOFF, ты ошибку какбе говори не разводи флуд, что именно не получилось? Всё клещами надо вытаскивать...

[Imitri7]

to all
решил задачу, это выбор папки и присвоение NewEdit1 этот адрес

[Files]
Source: DirBitmap.bmp; DestDir: {tmp}; Flags: dontcopy
Source: DirBitmap2.bmp; DestDir: {tmp}; Flags: dontcopy

[CustomMessages]
ru.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;

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;


но по прежнему остается задача : установка файлов по этому пути
как это реализовать?

[No4noylis]

Imitri7, а так не получится?

[Setup]
DefaultDirName=D:\Games\Steam\steamapps\steamprofile

[Imitri7]

No4noylis, ты не правильно понял, мне нужно чтобы в обе папки файлы распаковывались

[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 на странице установки?