[nik1967]

ChopMan,

Справочку внимательно изучаем

[Setup]: AppendDefaultDirName
Возможные значения:
yes или no
Значение по умолчанию:
yes

Описание:
По умолчанию при указании пути на странице Выбор папки назначения с помощью кнопки Обзор... (Browse...) инсталлятор автоматически добавляет в конце имя папки, указанной в директиве DefaultDirName, в которую будет установлена программа. Например, если DefaultDirName={pf}\My Program и пользователь выбрал в обзоре диск "Z:\", то программа установится в "Z:\My Program".

Если значение директивы no, то папка с указанным DefaultDirName именем в конечном каталоге создаваться не будет. На странице выбора появится кнопка "Создать папку" (Make New Folder).

[El Sanchez]

Можете обновить примеры для inno setup закрепления ярлыка на панели задач и в меню пуск? Те что есть не закрепляют на win10 pro.

PinToTaskbar

Код:

function PinToTaskbar(const FileName: string; IsPin: Boolean): Boolean;
// FileName : full path to executable file
// IsPin    : False - unpin from TaskBar, True - pin to TaskBar
var
  ShellApp: Variant;
  Verb: string;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  try
    if IsPin then
      Verb := 'taskbarpin' else
      Verb := 'taskbarunpin';
    ShellApp := CreateOleObject('Shell.Application');
    ShellApp.Windows.Item.Document.Application.NameSpace(ExtractFileDir(FileName)).ParseName(ExtractFileName(FileName)).InvokeVerb(Verb);
    Result := True;
  except
    ShowExceptionMessage;
  end;
end;

PinToStartMenu

Код:

function PinToStartMenu(const FileName: string; const IsPin: Boolean): Boolean;
// FileName : full path to exe- or lnk-file
// IsPin    : False - unpin from StartMenu, True - pin to StartMenu
var
  ShellApp, FolderItem: Variant;
  Verb, LnkName: string;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  try
    ShellApp := CreateOleObject('Shell.Application');
    FolderItem := ShellApp.Windows.Item.Document.Application.NameSpace(ExtractFileDir(FileName)).ParseName(ExtractFileName(FileName));
    if GetWindowsVersion < $06020000 then // below Windows 8
    begin
      if IsPin then
        Verb := 'startpin' else
        Verb := 'startunpin';
      FolderItem.InvokeVerb(Verb);
      Result := True;
    end
    else  // Windows 8 and above
    begin
      if not FolderItem.IsLink then
      begin
        LnkName := FolderItem.ExtendedProperty('FileDescription');
        if LnkName = '' then
          LnkName := ExtractFileName(FileName);
        LnkName := ExpandConstant('{commonprograms}\') + ChangeFileExt(LnkName, '.lnk');
        if IsPin then
          Result := not FileExists(LnkName) and
            FileExists(CreateShellLink(LnkName, '', FileName, '', '', '', 0, SW_SHOWNORMAL))
        else
          Result := DeleteFile(LnkName);
      end
      else
      begin
        LnkName := ExpandConstant('{commonprograms}\') + ExtractFileName(FolderItem.Path);
        if IsPin then
          Result := not FileExists(LnkName) and
            FileCopy(FolderItem.Path, LnkName, False)
        else
          Result := DeleteFile(LnkName);
      end;
    end;
  except
    ShowExceptionMessage;
  end;
end;

[ROMKA-1977]

Здраствуйте. Помогите пож. разобратся с ярлыком деинсталятора в меню пуск.

Всегда указывал так:
[Icons]
Name: {group}\{cm:UninstallProgram,{#MyName}}; Filename: {uninstallexe}; Check: CheckError

Ярлык деинсталятора в меню пуск Win 7 отображался. Установив прогу в Win 10 ярлык деинсталятора не отображается. Заметил что такая же проблема и в инсталяторах других разработчиков.
Запустив установку в Win 10 в режиме совместимости с Win 7 всё нормально, рабочий ярлык на своём месте.

Прописал следующее:
[Icons]
Name: {group}\Деинсталлировать {#MyName}; Filename: {uninstallexe}; Check: CheckError

После этого всё норм, рабочий ярлык на своём месте.
В чем же проблема в первом случае ?

[ErikPshat]

{cm:UninstallProgram,{#MyName}}; »

Наверное лучше писать так:

Код:

{cm:UninstallProgram} {#MyName};

[ErikPshat]

Ребята, нубский вопрос...
Как средствами Inno Setup создать новый пустой текстовой файл?

Я знаю только один хак создания через лист:

Код:

var
  List: TStringList; txt: string; res: Integer;
begin
  txt:= ExpandConstant('{tmp}\file.txt');
   List:= TStringList.Create;
   List.Add('Добавляем первую строку в файл');
   List.SaveToFile(txt);
   List.Free;
end;

Может быть можно просто написать эту строку отдельно, как самостоятельную:

Код:

SaveToFile(file.txt);

Но по-моему к этому должна предшествовать какая-та трансляция.

[El Sanchez]

Всегда указывал так: [Icons] Name: {group}\{cm:UninstallProgram,{#MyName}}; Filename: {uninstallexe}; Check: CheckError »

ROMKA-1977, если UninstallProgram вынесен во внешний файл, то проверьте его кодировку, должна быть UTF-8. Либо CheckError возвращает False на Win 10.

Наверное лучше писать так: »

ErikPshat, там все правильно написано, читайте справку.

Как средствами Inno Setup создать новый пустой текстовой файл? »

ErikPshat,

Код:

SaveStringToFile(ExpandConstant('{tmp}\file.txt'), '', False);

[ErikPshat]

El Sanchez, о да, спасибо, проверил работает.
Если указано False, тогда перезаписывает файл, а если указать True, тогда записывает строку в конец файла.

А я перелопатил в документации весь хэлп и почему-то пропустил эту команду. Оказывается она там есть )))
Спасибо ещё раз!

[ErikPshat]

Подскажите пожалуйста, как проверить наличие записи в INI-файле?

У меня в секцию [CONFIG] записывается ключ "InstallDirectory" с путём в параметре. И я делаю отдельную функцию на его считывание:

Код:

function InsDir(Default:String):String;
  Begin
    Result:= GetIniString('CONFIG','InstallDirectory','',ExpandConstant('{tmp}\config.ini'));
  end;

А теперь мне нужно проверить, присутствует ли ключ с параметром. Если да, то я его считываю. Если нет, то я беру данные из другого ключа. Ну типа как-то так:

Код:

if (ExpandConstant('{code:InsDir}') > 0) then begin DIR:= ExpandConstant('{code:InsDir}') end else
if (ExpandConstant('{code:NewDir}') > 0) then begin DIR:= ExpandConstant('{code:NewDir}') end;

То есть, я не знаю с чем сравнивать. Правильно ли будет узнавать наличие ключа, потому что он больше нуля?
Мне нужно на переменную DIR назначить существующий ключ.

[ROMKA-1977]

{cm:UninstallProgram} {#MyName}; »

В данном вами примере инсталятор берёт полное название ярлыка из файла Russian.isl и получается в итоге - Деинсталлировать %1MyName
Может есть какойто метод оптимизации секции [Icons] не прибегая к подробному тексту - Name: {group}\Деинсталлировать {#MyName}; Filename: {uninstallexe}; Check: CheckError
Уточняю проблему - это только но win 10 и подобное не только у моих инсталяшек

[ErikPshat]

ROMKA-1977, вам выше совет дал El Sanchez, вы читали?
То есть, вы вписали ключ MyName в файл Russian.isl и теперь хотите вывести его в секции [Icons]?
А почему бы в шапке не написать через

Код:

#define   MyName  "Моё Название"

а потом выводить куда захочешь?
Или в секцию CustomMessage через en. и ru.

Кстати, нужно бы параметры в кавычки брать, а у вас без кавычек. Просто в Inno Setup иногда запятая всё решает.
Из меня правда плохой советчик, кто бы мне самому подсказал, но у меня в секции [Icons] всегда так:

Код:

[Icons]
Name: "{group}\{cm:UninstallProgram,{#MyName}}"; Filename: "{uninstallexe}"; Check: "CheckError";