[SatHan]

нет. перед копированием переключи раскладку клавиатуры на русский. »

теперь понял. Спасибо. как вариант учту, незнал. к Notepad++ просто привык, на нём работать удобнее. R.i.m.s.k.y., так бы сразу и сказал что находясь в компиляторе нужно раскладку клавиатуры переключить. а так эта инфа была для spice, да и не только к нему и к остальным тоже у меня такая пустяшная проблема не произошла б.

он у меня есть у меня ultra версия, в редакторе форм все на английском я не понимаю как с ним работать. »

всё равно какая версия хоть ультра хотя макси инно один, а насчёт русского для расширенной версии, та возьми ты со старой версии например 5.4.0 из шапки в соседней теме http://forum.oszone.net/showthread.p...99#post1201499 и всё станет понятно.

[Ivan_009]

Небольшой вопрос а можно вместо 1 шрифта загрузить например 2 своих шрифта в инсталлятор...

Snoopak96, Не работает все равно...

[Snoopak96]

Ivan_009,
скинь в лс весь проект.

[vint56]

Привет хотел попросить помощи дописать скрипт что не хватает для проверки места дело в том что у меня после смены языка пропадает данные размер игры и так далее.
вот скрин
вот сам скрипт http://rghost.ru/40204994

[Snoopak96]

vint56,

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

Код:

#define NeedSize 4380
#define NeedInstallSize 47890
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: Russian.isl; DestDir: {tmp}
Source: English.isl; DestDir: {tmp}


[_Code]
var
  SettingButton: TButton;
  Flag, SetParameters: Boolean;
  LangFile: String;
  SizePanel: TPanel;

  TotalSpaceLabel, FreeSpaceLabel,InstallSpaceLabel, NeedSpacelabel,
  TotalSpaceLabel2, FreeSpaceLabel2, NeedSpacelabel2, InstallSpaceLabel2: TLabel;
  FreeMB, TotalMB: Cardinal;

function NumToStr(Float: Extended): String;
begin
  Result:= format('%.2n', [Float]); StringChange(Result, ',', '.');
  while ((Result[Length(Result)] = '0')or(Result[Length(Result)] = '.'))and(Pos('.', Result) > 0) do
  SetLength(Result, Length(Result)-1);
end;

function MbOrTb(Float: Extended): String;
begin
  if Float < 1024 then Result:= NumToStr(Float)+' '+GetIniString('Messages', 'mb', '', LangFile) else
  if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' '+GetIniString('Messages', 'gb', '', LangFile) else
  Result:= NumToStr(Float/(1024*1024))+' '+GetIniString('Messages', 'tb', '', LangFile);
end;

procedure ObjectFunc(Sender: TObject);
var
  Drive: String;
begin
case Sender of
  WizardForm.DirEdit: begin
  Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
  
  TotalSpaceLabel.Caption := GetIniString('Messages', 'TotalMBLabel', '', LangFile)+MbOrTb(TotalMB);
  FreeSpaceLabel.Caption := GetIniString('Messages', 'FreeSpaceLabel', '', LangFile)+MbOrTb(FreeMB);
  InstallSpacelabel.Caption := GetIniString('Messages', 'TotalNeedSpaceLabel', '', LangFile)+MbOrTb({#NeedInstallSize});
  NeedSpaceLabel.Caption := GetIniString('Messages', 'NeedSpaceLabel', '', LangFile)+MbOrTb({#NeedSize});
  WizardForm.NextButton.Enabled:=(FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
  //if (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize}) then FreeSpaceLabel2.Font.Color:=$FFFFFF else FreeSpaceLabel2.Font.Color:=$0000FF;
end;
end;
end;

function InitializeSetup:boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\Russian.isl')) then ExtractTemporaryFile('Russian.isl');
  if not FileExists(ExpandConstant('{tmp}\English.isl')) then ExtractTemporaryFile('English.isl');
  Result:=True;
end;

procedure HideShowOnClick(Sender: TObject);
begin
  if Flag = False then begin
  LangFile:= ExpandConstant('{tmp}\Russian.isl');
  Flag:= True;
  SettingButton.Caption:= 'Ru';
end else begin
  LangFile:= ExpandConstant('{tmp}\English.isl')
  Flag:= False;
  SettingButton.Caption:= 'En';
end;
  WizardForm.NextButton.Caption := GetIniString('Messages', 'ButtonNext', '', LangFile);
  WizardForm.BackButton.Caption := GetIniString('Messages', 'ButtonBack', '', LangFile);
  WizardForm.CancelButton.Caption := GetIniString('Messages', 'ButtonCancel', '', LangFile);
  WizardForm.DirBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
  WizardForm.GroupBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
  
  TotalSpaceLabel.Caption := GetIniString('Messages', 'TotalMBLabel', '', LangFile)+MbOrTb(TotalMB);
  FreeSpaceLabel.Caption := GetIniString('Messages', 'FreeSpaceLabel', '', LangFile)+MbOrTb(FreeMB);
  InstallSpacelabel.Caption := GetIniString('Messages', 'TotalNeedSpaceLabel', '', LangFile)+MbOrTb({#NeedInstallSize});
  NeedSpaceLabel.Caption := GetIniString('Messages', 'NeedSpaceLabel', '', LangFile)+MbOrTb({#NeedSize});
end;

procedure InitializeWizard();
begin
  SettingButton:= TButton.Create(WizardForm);
  SettingButton.SetBounds(ScaleX(10),ScaleY(325), ScaleX(30), ScaleY(30))
  SettingButton.Caption:= 'Ru';
  SettingButton.OnClick:= @HideShowOnClick;
  SettingButton.Parent:= WizardForm;
  Flag:=True;

  TotalSpaceLabel:= TLabel.Create(WizardForm);
  with TotalSpaceLabel do begin
  Parent := WizardForm.SelectDirPage;
  AutoSize:=True;
  Transparent := True;
  SetBounds(ScaleX(0), ScaleY(120), ScaleX(0), ScaleY(0));
  Font.Size:= 8;
end;

  FreeSpaceLabel:= TLabel.Create(WizardForm);
  with FreeSpaceLabel do begin
  Parent := WizardForm.SelectDirPage;
  AutoSize:=True;
  Transparent := True;
  SetBounds(ScaleX(0), ScaleY(140), ScaleX(0), ScaleY(0));
  Font.Size:= 8;
end;

  InstallSpacelabel:= TLabel.Create(WizardForm);
  with InstallSpacelabel do begin
  Parent := WizardForm.SelectDirPage;
  AutoSize:=True;
  Transparent := True;
  SetBounds(ScaleX(150), ScaleY(120), ScaleX(0), ScaleY(0));
  Font.Size:= 8;
end;

  NeedSpaceLabel:= TLabel.Create(WizardForm);
  with NeedSpaceLabel do begin
  Parent := WizardForm.SelectDirPage;
  AutoSize:=True;
  Transparent := True;
  SetBounds(ScaleX(150), ScaleY(140), ScaleX(0), ScaleY(0));
  Font.Size:= 8;
end;
  WizardForm.DirEdit.OnChange:=@ObjectFunc;
end;

procedure Showcomp(CurPageID: Integer);
begin
case CurPageID of
  wpSelectDir:
begin
  ObjectFunc(WizardForm.DirEdit);
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  ShowComp(CurPageID);
If Flag then begin
  LangFile:= ExpandConstant('{tmp}\Russian.isl');
end else begin
  LangFile:= ExpandConstant('{tmp}\English.isl')
  WizardForm.NextButton.Caption := GetIniString('Messages', 'ButtonNext', '', LangFile);
  WizardForm.BackButton.Caption := GetIniString('Messages', 'ButtonBack', '', LangFile);
  WizardForm.CancelButton.Caption := GetIniString('Messages', 'ButtonCancel', '', LangFile);
  WizardForm.DirBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
  WizardForm.GroupBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
case CurPageID of
  wpWelcome:
begin
end;
  wpFinished:
begin
  SettingButton.Hide;
  WizardForm.NextButton.Caption := GetIniString('Messages', 'ButtonFinish', '', LangFile);
end;
end;
end;
end;

Можно упростить - но мне лень

[Johny777]

накатайте мне кто-нибудь пожалуйста пример считывания ини файла в массив строк (Array of String) и последующей загрузкой данных ключей из секций, но уже из переменной

те не каждый раз обращаться к файлу как в коде над моим сообщением

[R.i.m.s.k.y.]

Johny777, а зачем тебе парсить инишник если есть встроенные функции?

Код:

/// в начале считали, например в InitializeSetup
if FileExists(ExpandConstant('{pf}\MPC-HC\mpc-hc.ini')) then RenderType := StrToInt( GetIniString('Settings', 'DSVidRen', '0', ExpandConstant('{pf}\MPC-HC\mpc-hc.ini')) );
// в конце записали на шаге isDone
if FileExists(ExpandConstant('{pf}\MPC-HC\mpc-hc.ini')) then SetIniString('Settings', 'DSVidRen', IntToStr(RenderType), ExpandConstant('{pf}\MPC-HC\mpc-hc.ini'));
//в промежутке инишник дергать не надо

[SatHan]

подскажите ответ на такой вопрос
имеются три игры которые расположены в C:\Program Files\Games в папках Game_X таких папок три где X цифра.

код#

Код:

[Setup]
AppName=Extende
AppVersion=1.0
AppVerName=Extende 1.0
DefaultDirName={pf}\Games
DefaultGroupName=Extende
AllowNoIcons=yes
OutputDir=.
OutputBaseFilename=ExtSetup
Compression=lzma
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Components]
Name: game_1; Description: Game_1; Flags: dontinheritcheck; Types: full
Name: game_2; Description: Game_2; Flags: dontinheritcheck; Types: full
Name: game_3; Description: Game_3; Flags: dontinheritcheck; Types: full

[Files]
Source: Game_1\*; DestDir: {app}\Game_1; Flags: ignoreversion recursesubdirs createallsubdirs; Components: game_1
Source: Game_2\*; DestDir: {app}\Game_2; Flags: ignoreversion recursesubdirs createallsubdirs; Components: game_2
Source: Game_3\*; DestDir: {app}\Game_3; Flags: ignoreversion recursesubdirs createallsubdirs; Components: game_3

каждый компонент на каждую игру.

Что нужно сделать а главное как сделать чтоб если один из ключей в реестре

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

Код:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game1_is1]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game2_is1]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game3_is1]

не найден то и компонент становился скрытым?

[R.i.m.s.k.y.]

SatHan,

Код:

[Components]
Name: game_1; Description: Game_1; Flags: dontinheritcheck; Types: full; Check: RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game1_is1');
Name: game_2; Description: Game_2; Flags: dontinheritcheck; Types: full; Check: RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game2_is1');
Name: game_3; Description: Game_3; Flags: dontinheritcheck; Types: full; Check: RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game3_is1');

_____________

Johny777, я в таких случая тупо инициализирую в память на начальном шаге все нужные переменные, благо их немного

[SatHan]

R.i.m.s.k.y., не работает, пишет "Directive or parameter "Check" expression error: Can only call Function "ExpandConstant" within parameter lists".

Нашёл для себя вот такой вариант

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

Код:

[Setup]
AppName=Extende
AppVersion=1.0
AppVerName=Extende 1.0
DefaultDirName={pf}\Games
DefaultGroupName=Extende
AllowNoIcons=yes
OutputDir=.
OutputBaseFilename=ExtSetup
Compression=lzma
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Components]
Name: game_1; Description: Game_1; Flags: dontinheritcheck; Types: full; Check: CheckRegGame1
Name: game_2; Description: Game_2; Flags: dontinheritcheck; Types: full; Check: CheckRegGame2
Name: game_3; Description: Game_3; Flags: dontinheritcheck; Types: full; Check: CheckRegGame3

[Files]
Source: Game_1\*; DestDir: {app}\Game_1; Flags: ignoreversion recursesubdirs createallsubdirs; Components: game_1
Source: Game_2\*; DestDir: {app}\Game_2; Flags: ignoreversion recursesubdirs createallsubdirs; Components: game_2
Source: Game_3\*; DestDir: {app}\Game_3; Flags: ignoreversion recursesubdirs createallsubdirs; Components: game_3

[Icons]
Name: {group}\{cm:UninstallProgram,Extende}; Filename: {uninstallexe}

[#code]
Function CheckRegGame1: Boolean;
begin
if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game1_is1') then
Result:= True;
end;

Function CheckRegGame2: Boolean;
begin
if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game2_is1') then
Result:= True;
end;

Function CheckRegGame3: Boolean;
begin
if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Game3_is1') then
Result:= True;
end;

только теперь проблема в следующем
когда не одного компонента нет (не найдены ключи в реестре) то инсталятор всё равно запускается. Гуру подскажите как сделать чтоб если не одного компонента нет (не найдены ключи в реестре) то инсталятор не запускался а выдавал сообщение что "на компьютере не найдено установлено игр"?