Inno Setup (создание инсталяционных пакетов). Часть 3

[LexBell]

sergey3695, Ну, если будут у меня исходники botva2.dll, то могу посмотреть на причину такого смещения. Опять-же, если это смещение у текста заданного функцией а не нарисованного.

 

[sergey3695]

Gnom, у меня текст задан функцией (не нарисован!). Ну я так и думал, что в библиотеке дело. Ладно и так проживу, хотя хотелось бы исправить. Чтож спасибо за помощь (про кнопку спасибо, тоже знаю).

 

[Mickey1s]

Всем привет. Подскажите как переименовать папку через renamefile в IsDone чтобы не была такой ошибки?

 

[Olim98]

Здраствуйте! Пожалуйста подскажите, как можно на страницу выбора папки вставить чекбокс "создать ярлык на рабочем столе"?

 

[Mailchik]

Olim98, пример:

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

[Icons]
Name: "{commondesktop}\My Application"; Filename: "{uninstallexe}"; WorkingDir: "{app}"; Check: TestCheck;

[B][[/B]Code]
var
 TestCheckBox : TCheckBox;

function TestCheck: boolean;
 begin
 Result := TestCheckBox.Checked;
end;

procedure InitializeWizard;
 begin
 TestCheckBox := TCheckBox.Create(WizardForm);
 with TestCheckBox do begin
  Parent := WizardForm.SelectDirPage;
  Caption := 'Создать ярлык на рабочем столе';
  SetBounds(WizardForm.DiskSpaceLabel.Left, WizardForm.DirEdit.Top + ScaleY(40), ScaleX(300), Height);
 end;
end;

[HR][/HR]

Mailchik, я имел ввиду полноценный чекбокс создающий ярлык

А откуда мне знать, что вы имели в виду? Выражайте мысли яснее.
Поправил пример выше.

 

[Olim98]

Mailchik, я имел ввиду полноценный чекбокс создающий ярлык

 

[Snoopak96]

Olim98,

[Icons]
Name: {commondesktop}\Иконка для удаления; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckIcon;

[B][[/B]Code]
var
 TestCheckBox : TCheckBox;

function CheckIcon:boolean;
begin
  result:= TestCheckBox.Checked;
end;

procedure InitializeWizard;
 begin
 TestCheckBox := TCheckBox.Create(WizardForm);
 with TestCheckBox do begin
  Parent := WizardForm.SelectDirPage;
  Caption := 'Создать ярлык на рабочем столе';
  SetBounds(WizardForm.DiskSpaceLabel.Left, WizardForm.DirEdit.Top + ScaleY(40), ScaleX(300), Height);
 end;
end;

Mickey1s,
RenameFile(ExpandConstant('{app}\До'), ExpandConstant('{app}\После'));

renamefile в IsDone

Там вроде и нету такого

 

[Olim98]

А можно ли данный чекбокс сделать по умолчанию отмеченным и если он отмечен чтобы на странице готовности в разделе задачи появлялась данная задача

 

[vint56]

Olim98

Спойлер: пример

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
[Icons]
Name: {commondesktop}\Иконка для удаления; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckIcon;

var
DesktopIcon : TCheckBox;

function CheckIcon:boolean;
begin
result:= DesktopIcon.Checked;
end;


procedure InitializeWizard;
begin
DesktopIcon := TCheckBox.Create(WizardForm);
with DesktopIcon do begin
Parent := WizardForm.SelectDirPage;
Caption := 'Создать ярлык на рабочем столе';
SetBounds(WizardForm.DiskSpaceLabel.Left, WizardForm.DirEdit.Top + ScaleY(40), ScaleX(300), Height);
Checked:=true;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpReady then
begin
if DesktopIcon.Checked then
WizardForm.ReadyMemo.Lines.Add(#9 + 'Добавить ярлык на Рабочий стол');
end;
end;[/SPOILER]

 

[Mickey1s]

Snoopak96, наверно не так выразился

RenameFile(ExpandConstant('{app}\До'), ExpandConstant('{app}\После'));

Так и делал, ошибка всё равно была.
P.S. Забил на переименовку, но все равно спасибо за помощь.

 

[vint56]

Mickey1s

Спойлер: пример

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

[Files]
Source: C:\Users\Vitaly\Desktop\FreeArc-console-0.67-alpha-win32\*; DestDir: {app}\Rename; Flags: ignoreversion recursesubdirs createallsubdirs

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then begin
RenameFile(ExpandConstant('{app}\Rename'), ExpandConstant('{app}\temp'));
end;
end;[/SPOILER]

 

[Mickey1s]

vint56, спс.

А есть у кого пример как сделать вот так..?

Спойлер

 

[LexBell]

Mickey1s, GetSteam v1.1 [05.07.2011] от Krinkels достаточное количество возможностей предоставляет.

 

[Mickey1s]

Gnom, там все так сложно я еще новичок, приведи пример как на скриншотах пожалуйста

 

[Adil]

Всем добрый день, Я хотел сделать новую кнопку, что написать в его параметр
onclick, что бы был равен WizardForm.NextButton.Onclick?

 

[Mailchik]

Adil,

procedure TestClick(Sender : TObject);
 begin
  WizardForm.NextButton.OnClick(nil);
end;

 

[Mickey1s]

Mailchik, привет можешь помочь? посмотри пост выше

 

[Mailchik]

Mickey1s, пример:

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

[B][[/B]Code]
var
 TestCheckListBox: TNewCheckListBox;

procedure TestClickCheck(Sender: TObject);
var
ResultStr: string;
 begin
 if TestCheckListBox.Checked[1] then begin
  WizardForm.DirEdit.Enabled := False;
  WizardForm.DirBrowseButton.Enabled := False;
  if RegQueryStringValue(HKLM, 'SOFTWARE\Valve\Steam', 'InstallPath', ResultStr) then
   WizardForm.DirEdit.Text := ResultStr + '\steamapps\common\' + '{#SetupSetting('AppName')}';
 end else begin
  WizardForm.DirEdit.Enabled := True;
  WizardForm.DirBrowseButton.Enabled := True;
  WizardForm.DirEdit.Text := ExpandConstant('{#SetupSetting('DefaultDirName')}');
 end;
end;

procedure InitializeWizard;
 begin
 TestCheckListBox := TNewCheckListBox.Create(WizardForm);
 with TestCheckListBox do begin
  Parent := WizardForm.SelectDirPage;
  BorderStyle := bsNone;
  Color := WizardForm.SelectDirPage.Color;
  WantTabs := True;
  SetBounds(WizardForm.DiskSpaceLabel.Left, WizardForm.DirEdit.Top + ScaleY(30), ScaleX(300), Height);
  OnClickCheck := @TestClickCheck;
  AddRadioButton('Взломанная версия', '', 0, True, True, nil);
  AddRadioButton('Steam-версия', '', 0, False, True, nil);
 end;
end;

 

[Mickey1s]

Mailchik, спасибо:-[

 

[RameR]

Всем, добрый день, вечер!
Помогите с чекбоксом: если чекбокс "кликнутый", то ветка реестра вносилась бы в реестр. Если нет, то не вносилась
вот ветка:
[Registry]
Root: HKLM; SubKey: SOFTWARE\Ubisoft\Assassin's Creed 3; ValueType: string; ValueName: Language; ValueData: Russian; Flags: uninsdeletevalue uninsdeletekeyifempty
Думаю так делают выбор языка продукта)!
Хотел делать без выбора, но тут наткнулся, что от определенной ветки в реестре зависит язык продукта!
И тут осенило...
Надумал еще один чекбокс, то есть их два:
1) "кликнутый" выше под названием "RUS версия"
2) "некликнутый" под названием "ENG версия"
А главное: При снятии галочки с 1ого - она автоматом ставилась на 2ом (реестр без изменений) и при выборе на 2ом, галочка автоматом убиралась с 1ого (реестр тоже без изменений)! То есть они взаимосвязаны.
Возможно ли это?
Тройной салют в вашу честь))Спасибо