[acer0072]

Уже закипел)) Вот такой простой вопрос. Есть exe файл, иконка не красивая)), хочу чтобы на рабочий стол выводился мой ярлык, с моим рисунком, но запускал он этот exe. Как реализовать? (в рестораторе не получилось поменять иконку)

P.S. вставил IconFilename: "{app}\icon.ico"; иконка появилась на ярлыке, но название ярлыка исчезло((

[kotyarko@fb]

Есть exe файл, иконка не красивая) »

Иконку екзешнику можно указать так:

Код:

[Setup]
SetupIconFile=Icon_Name.ico

Создание ярлыка ещё нужно?

[Dodakaedr]

Уже закипел)) Вот такой простой вопрос. Есть exe файл, иконка не красивая)), хочу чтобы на рабочий стол выводился мой ярлык, с моим рисунком, но запускал он этот exe. Как реализовать? (в рестораторе не получилось поменять иконку) P.S. вставил IconFilename: "{app}\icon.ico"; иконка появилась на ярлыке, но название ярлыка исчезло((

В справке про секцию [ICON] прочтите. И покажите полностью вашу строчку иконки.

[acer0072]

kotyarko@fb - exe не тот, что компилируется, а то что запускает приложение.

Dodakaedr

[Icons] Name: "{commondesktop}\"; Filename: "{#MyAppExeName}"; Check: IconsCheck; IconFilename: "{app}\icon.ico";

Вот так получилось, что изображение поменялось, а название ярлыка - нету.

[Nordek]

а название ярлыка - нету. »

Код:

[Icons]
Name: {commondesktop}\{#MyAppName}; Filename: {#MyAppExeName}; Check: IconsCheck; IconFilename: {app}\icon.ico;

[Dodakaedr]

Вот так получилось, что изображение поменялось, а название ярлыка - нету. »

Поняли ошибку? Потому что вы его не указали...

[acer0072]

Да, всем спасибо за помощь.

[Nightwishh]

Ребят, а не посмотрите код, всё ли правильно

Код:

#define NeedSize "2100"
#define NeedInstallSize "2590"

[Setup]
OutputDir=.
AppName=аываваыв
AppVerName=ывпывамвапмаывп
DefaultDirName={pf}\dfsdgxfgf

[CustomMessages]
MBCaption=Мб.
GBCaption=Гб.
TBCaption=Тб.
TotalSpaceCaption=Всего места на диске:
FreeSpaceCaption=Доступно места на диске:
InstallSpaceCaption=Требуется места для установки:
NeedSpaceCaption=Требуется места на диске:

[Code_]
var
  DirPathLbl, TotalSpaceLbl, FreeSpaceLbl, NeedSpaceLbl, InstallSpaceLbl: TLabel;

//==========***Начало- Необходимое место для установки***==========//
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) + ExpandConstant(' {cm:MBCaption}') else
  if Float/1024 < 1024 then Result:= NumToStr(Float/1024) + ExpandConstant(' {cm:GBCaption}') else
  Result:= NumToStr(Float/(1024*1024))+CustomMessage('TBCaption');
end;

procedure GetFreeSpaceCaption(Sender: TObject);
var
  FreeMB, TotalMB: Cardinal;
begin
  DirPathLbl.Caption:= MinimizePathName(WizardForm.DirEdit.Text, DirPathLbl.Font, DirPathLbl.Width);
  GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB);
  TotalSpaceLbl.Caption:= ExpandConstant('{cm:TotalSpaceCaption}')+MbOrTb(TotalMB);
  FreeSpaceLbl.Caption:= ExpandConstant('{cm:FreeSpaceCaption}')+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  if FreeMb < {#NeedInstallSize} then begin
    InstallSpaceLbl.Font.Color:= $0000ff; WizardForm.NextButton.Enabled:= False; end else begin
      InstallSpaceLbl.Font.Color:= $000000; WizardForm.NextButton.Enabled:= True;
  end;
end;
//==========***Конец- Необходимое место для установки***==========//

procedure InitializeWizard();
begin
  WizardForm.DirEdit.Visible:= False;
  WizardForm.DiskSpaceLabel.Visible:= False;

  DirPathLbl:= TLabel.Create(WizardForm);
  with DirPathLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(81), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Color:= clNone;
    Font.Name:= 'Arial';
    Font.Style:= [fsBold, fsItalic];
    Font.Size:= 9;
    Font.Color:= $ffffff;
    Transparent:= True;
  end;

  TotalSpaceLbl:= TLabel.Create(WizardForm);
  with TotalSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(128), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Color:= clNone;
    Transparent:= True;
  end;

  FreeSpaceLbl:= TLabel.Create(WizardForm);
  with FreeSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(144), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Color:= clNone;
    Transparent:= True;
  end;

  InstallSpacelbl:= TLabel.Create(WizardForm);
  with InstallSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(160), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Caption:= ExpandConstant('{cm:InstallSpaceCaption} ') + MbOrTb({#NeedInstallSize});
    Color:= clNone;
    Transparent:= True;
  end;

  NeedSpaceLbl:= TLabel.Create(WizardForm);
  with NeedSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(176), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Caption:= ExpandConstant('{cm:NeedSpaceCaption} ') + MbOrTb({#NeedSize});
    Color:= clNone;
    Transparent:= True;
  end;
  WizardForm.DirEdit.OnChange:= @GetFreeSpaceCaption;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectDir: begin
      GetFreeSpaceCaption(WizardForm.DirEdit);
    end;
  end;
end;

Пришлось изрядно полазить по чужим скриптам, чтобы слепить это. Там путь установки прописываеться в лейбл и данные о винтах!!!

[acer0072]

Ещё один вопросик. Вот кусок кода из скрипта

[Languages] Name: "en"; MessagesFile: "compiler:Default.isl"; Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"; [Run] Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch {language}"; MinVersion: 0.0,5.0;

Тут привязка языка интерфейса программы, я так понял, что к языку самого установщика. (взят с оригинального кода установщика), т.е. при выборе английского языка установки, ставится англ.язык и т.к.

Вопрос: как привязать к чекбоксам, чтобы выбирался нужный язык (русский и английский)

[kotyarko@fb]

Ребят, а не посмотрите код, всё ли правильно »

На вид - да. Вы просто решили спросить или у вас там что-то не работает и вы обратились за помощью?

Вопрос: как привязать к чекбоксам, чтобы выбирался нужный язык (русский и английский) »

Имеется ввиду язык интерфейса установщика?
А так, то {language} - это константа выбранного языка. То есть, если выбран язык "ru" - на месте константы подставится ru.