[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, ты не правильно понял, мне нужно чтобы в обе папки файлы распаковывались