[katya74]

Обновилась, все работает, в принципе меня и предыдущая версия устраивала вполне, огромное спасибо.

[Сrack]

Обновление в GPInst.exe! »

Пока все без проблем работает.

Предложение по улучшению редактора:
Лист программ можно увеличить на несколько строчек, там снизу есть свободное место.
А в перспективе, я уже предлагал, возможность растягивать окно редактора и что бы лист программ увеличивался, что бы можно было развернуть на весь экран. А то, имея FullHD монитор, я вижу всего 9 строчек.

Не просьба, просто к сведению:
Иконки программ искажаются, происходит это из-за того, что загружаются иконки большого размера, а потом уменьшаются до 16х16. Хотя в большинстве приложений многоразмерные иконки, и лучше выдергивать именно маленькую иконку 16x16.

[opel431]

Лист программ можно увеличить на несколько строчек, там снизу есть свободное место. »

Боже мой, и все молчали. Я, тоже хорош, даже не обратил внимание на то, что "свернул" высоту списка для удобства редактирования формы - при добавление элементов для установки "до" основного приложения и к редактору не вернулся.

Иконки программ искажаются, происходит это из-за того, что загружаются иконки большого размера, а потом уменьшаются до 16х16. Хотя в большинстве приложений многоразмерные иконки, и лучше выдергивать именно маленькую иконку 16x16. »

Они и так выдергиваются из списка доступных иконок. Размер при создании установлен (icon := TIcon.Create; icon.SetSize(16, 16)).

[opel431]

Финальная (исправленная и в некоторой части ( "A call to an OS function failed") пересмотренная) версия для теста!

[AlexM22204]

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

[aleskaput]

Замутил набор твиков на базе GPInst_v2_2, работает! СП

[Painkiller]

opel431, нашёл ошибку . Ошибка появляется когда пытаешься удалить группу

[Mr.Merak]

---------------------------
Editgpi
---------------------------
Column parameter out of range.
---------------------------
ОК
---------------------------

Где-то вроде писали уже, не могу найти. Что там нужно добавить в GPInst.lst чтобы с новой версией работало?

opel431, у EditGPI.exe иконка самого exe отлична от той что в в заголовке окна

[Painkiller]

Mr.Merak, у меня финальная версия для теста

[Сrack]

Они и так выдергиваются из списка доступных иконок. Размер при создании установлен (icon := TIcon.Create; icon.SetSize(16, 16)). »

У меня в CheckDevice.exe иконка 16x16 отличается рисунком от более крупных иконок, поэтому я сразу понял, почему иконки искажаются.
На Delphi пишете?

Что бы вытащить именно маленькую иконку, я делал так:

Код:

uses ShellApi;

Var
 icon:TIcon;
 SIC, LIC  : HIcon;
 OpPatch:PChar;
begin
  OpPatch:='E:\CHDevice\CHDevice\CheckDevice.exe';

  icon := TIcon.Create;
  icon.SetSize(16, 16);

  ExtractIconEx(OpPatch,0, LIC, SIC, 1);
  // SIC - это маленькая иконка 16х16
  icon.Handle:=SIC;
  Image1.Picture.Icon:=icon;
end;