[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

serg aka lain · Отправлено: **20:24, 03-10-2009** | #**201**

Цитата Lancer2404:

А не подскажете какой ключ в реестре отвечает за добавление ярлыков в папку игры на windows vista? »

За это отвечает GameuxInstallHelper.dll

Lancer2404 · Отправлено: **20:58, 03-10-2009** | #**202**

А поподробнее можно а то я новичек в этом деле

Lancer2404 · Отправлено: **21:23, 03-10-2009** | #**203**

Спасибо.

serg aka lain · Отправлено: **21:25, 03-10-2009** | #**204**

Цитата Lancer2404:

А поподробнее можно а то я новичек в этом деле »

Можно, нужна сама библиотека "GameuxInstallHelper.dll".

Сам скрипт (Пример для юникод версии Inno):

Код:

[Setup] 
AppName=Call of Juarez - Bound in Blood 
AppVerName=Call of Juarez - Bound in Blood 
DefaultDirName={pf}\Call of Juarez - Bound in Blood 
OutputDir=userdocs:CoJ_Install. 
 
[Files] 
Source: "GameuxInstallHelper.dll"; DestDir: "{app}"; Flags: ignoreversion overwritereadonly; 
Source: "CoJBiBGame_x86.exe"; DestDir: "{app}"; Flags: ignoreversion; 
 
[code] 
 
const 
  PlayTask = 0; 
 
type 
  TGUID = record 
  Data1: Cardinal; 
  Data2, 
  Data3: Word; 
  Data4: array [0..7] of char; 
end; 
 
function GenerateGUID(var GUID: TGUID): Cardinal; 
 external 'GenerateGUID@files:GameuxInstallHelper.dll stdcall setuponly'; 
function AddToGameExplorer(Binary: String; Path: String; InstallType: Integer; var GUID: TGUID): Cardinal; 
 external 'AddToGameExplorerW@files:GameuxInstallHelper.dll stdcall setuponly'; 
function CreateTask(InstallType: Integer; var GUID: TGUID; TaskType: Integer; TaskNumber: Integer; TaskName: String; Binary: String; Parameters: String): Cardinal; 
 external 'CreateTaskW@files:GameuxInstallHelper.dll stdcall setuponly'; 
function RetrieveGUIDForApplication(Binary: String; var GUID: TGUID): Cardinal; 
 external 'RetrieveGUIDForApplicationW@{app}\GameuxInstallHelper.dll stdcall uninstallonly'; 
function RemoveFromGameExplorer(var GUID: TGUID): Cardinal; 
 external 'RemoveFromGameExplorer@{app}\GameuxInstallHelper.dll stdcall uninstallonly'; 
function RemoveTasks(var GUID: TGUID): Cardinal; 
 external 'RemoveTasks@{app}\GameuxInstallHelper.dll stdcall uninstallonly'; 
 
var 
  GUID: TGUID; 
 
procedure CurStepChanged(CurStep: TSetupStep); 
begin 
  if CurStep = ssInstall then 
    GenerateGUID(GUID); 
  if CurStep = ssPostInstall then 
  begin 
    AddToGameExplorer(ExpandConstant('{app}\CoJBiBGame_x86.exe'), ExpandConstant('{app}'), 3, GUID); 
    CreateTask(3, GUID, PlayTask, 0, 'Play', ExpandConstant('{app}\CoJBiBGame_x86.exe'), ''); 
  end; 
end; 
 
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin 
  if CurUninstallStep = usUninstall then 
  begin 
    RetrieveGUIDForApplication(ExpandConstant('{app}\CoJBiBGame_x86.exe'), GUID); 
    RemoveFromGameExplorer(GUID); 
    RemoveTasks(GUID); 
 
    UnloadDll(ExpandConstant('{app}\GameuxInstallHelper.dll')); 
  end; 
end;

Lancer2404 · Отправлено: **21:34, 03-10-2009** | #**205**

А вот я растягиваю картинку на весь экран,а при выборе компонентов,как сделать чтобы белого фона сзади не было?

414895494 · Отправлено: **10:15, 04-10-2009** | #**206**

Помогите мне пожалуйста. Объедините пожалуйста эти скрипты:

и вот этот

user_123 · Отправлено: **00:30, 05-10-2009** | #**207**

Цитата user_123:

Подскажите, как сделать, чтобы выводился запрос на удаление подкаталога {app}\log (по умолчанию не должен удаляться)при деинсталляции приложения?

Код:

function <...>(): Boolean;
begin
 if MsgBox(''+ ExpandConstant('{cm:removelogs}') +'', mbInformation, mb_YesNo) = idYes then
 begin
 <...>
 end;
end;

»

Отвечаю сам на свой вопрос.
Кое-что написал сам (по образцу (скачивал с вашего форума) некоторых скриптов):

Код:

procedure InitializeUninstallProgressForm();
begin
  if MsgBox(CustomMessage('MyCustomMessage'), mbConfirmation, MB_YESNO) = IDYES then
    DelTree(ExpandConstant('{app}\subdir'),True,True,True)
end;

Вроде бы работает... Но есть некоторые трудности... Перед тем как удалить программу, надо завершить её процесс... У меня не получается реализовать это в деинсталляторе через секцию code по Вашим образцам, istask.dll распаковывается в папку деинсталлятора... компилятор сообщает о синтаксических ошибках (я с образца всё верно переписал и оптимизировал под свою прогрмму)... В инсталляторе я сделал, работает нормально... Пробовал для деинсталлятора прописать по образцу инсталлятора - скомпилировалось без проблем, но при запуске деинсталятора появилась ошибка...

Закрытие программы я реализовал так:

Код:

[UninstallRun]
Filename: {sys}\taskkill.exe; Parameters: /f /im MyProg.exe /t; Flags: runhidden

Всё было бы замечательно, если бы это выполнялось ДО удаления {app}\subdir... Но после стандартного запроса об удалении программы.

Может, достаточно написать другую процедуру... подскажите, пожалуйста, какую...

GrizzlyMK · Отправлено: **17:42, 05-10-2009** | #**208**

Помогите сделать (Поиском пытался не чего не нашол или я просто нетак смотрел )
1. Как изменить размер окна инстолятора
2. Как селать чтобы фоновое изоброжение было на всех диологах

Serega · Конфигурация компьютера

Цитата 414895494:

Объедините пожалуйста эти скрипты »

Попробуйте сначала использовать утилиту InnoSetup Script Joiner, ссылка в шапке темы.

Цитата user_123:

по Вашим образцам, istask.dll распаковывается в папку деинсталлятора... компилятор сообщает о синтаксических ошибках »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Files]
; измените на своё место расположение dll'ки, у меня она расположена
; C:\Program Files\Inno Setup 5\Libraries\ISTask.dll
Source: compiler:Libraries\ISTask.dll; DestDir: {app}; Flags: ignoreversion
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Run]
Filename: {app}\MyProg.exe; Description: Запустить программу My Program?; Flags: postinstall nowait skipifsilent

[Code]
// функции используемые при деинсталляции
// RunTask@{app}\ISTask.dll - название функции (в данном случае, если программа работает)
// и путь dll'ки где она расположена...
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';
function KillTask(ExeFileName: string): Integer;
  external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  if RunTask('MyProg.exe', False) then
    begin
      // прячем форму
      UninstallProgressForm.Visible:= False;
      if MsgBox('Обнаружена запущенная программа My Program. Завершить?', mbConfirmation, MB_YESNO) = IDYES then
        begin
          KillTask('MyProg.exe');
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          // показываем форму
          UninstallProgressForm.Visible:= True;
        end
      else
        begin
          MsgBox('Завершите работу программы My Program, затем снова запустите программу удаления.', mbInformation, MB_OK);
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          Abort;
        end;
    end
  else
    begin
      UnloadDll(ExpandConstant('{app}\ISTask.dll'));
    end;
end;

Цитата GrizzlyMK:

Как изменить размер окна инстолятора »

WizardForm.ClientHeight - высота;
WizardForm.ClientWidth - ширина.

Цитата GrizzlyMK:

Как селать чтобы фоновое изоброжение было на всех диологах »

Посмотрите в архиве темы, этот вопрос уже поднимался.

Krekerpro · Отправлено: **21:04, 05-10-2009** | #**210**

Доброго времени суток,хотелось бы узнать,как реализовать вот это

???