(Вопрос по Inno Setup 5) Я извиняюсь за вопрос немножко не в тему. Меня интереcует написание скрипта на Pascal следующего характера: Перед запуском инсталлятора нужна проверка реестра на определённый ключ, и если он существует - должен запускаться мастер инсталляции, а если ключ не существует, то должна вылетать мессага, что прога не найдена - жмите OK чтобы покинуть мастер (ну или другой текст). Вобщем вы программеры - для вас скриптик или только секцию кода написать не составит труда. Поможете такому как мне?
mailto:gubei_vadim@list.ru

Извиняюсь за офтопик, но не знаю куда и кому написать следующий вопрос:
Многие инсталляторы создают логи, в которых можно засечь инсталляцию всех файлов и значений реестра. Но возникает проблема, когда надо перепаковать программу, в которой не было этого лога, например, его использование было отключено. С помощью какой программы-шпиона можно вычислить все происходящие события в Windows, т.е. например: какие файлы и когда были переименованы, установленны, перемещены; какие значения в реестр добавляются и т.п.? Чтобы правильно собрать инсталлятор.

FileMon, RegMon, а также различные отладчики типа W32dsm

С отладчиками чет не очень, но File Mon рулит, сенкс.
Вопрос следующий: Написал я скрипт, в котором при инициализации проверяется присутствие определенного ключа, и, если он существует, то выводится сообщение о том, не желает ли пользователь удалить уже установленное приложение "Yes/No" (это если инсталлятор запускается второй раз). При этом напрямую прописывается путь к деинсталлятору, например:
{win}\proga\unins00.exe
И через функцию Exec выполняется деинсталлятор, если пользователь выберет "Yes".
Вопрос в том, имеет ли Inno Setup возможность запускать приложения или выполнять другие файлы исходя из значений реестра? Например, если путь деинсталлятора прописан в папку с программой; ведь при инициализации это (если возможно) уже нужно делать через реестр же?

Может начинаю надоедать - вопрос другой, т.е. повторюсь.
Возможно ли проигрывание музыки XM или MOD в инсталляторе через соответствующую .dll-ку XM_Music.dll ? Вот она:
]]>http://make3d.narod.ru/xm_music/index.htm]]>
Если ссылка не рабочая, то попробуйте скачать XM_Music.dll отсюда:
]]>http://user.kem.ru/pro/delphi_utl.php]]>
Если будет время и настроение, то посмотрите, пожалуйста, можно ли с этим что либо сделать?

Будет время, гляну ваши вопросы.

function InitializeSetup(): Boolean;
begin
 Result:=True;
 If (not RegKeyExists(HKLM, 'SOFTWARE\Borland\Delphi\5.0')) and
  (not RegKeyExists(HKLM, 'SOFTWARE\Borland\Delphi\6.0')) and
  (not RegKeyExists(HKLM, 'SOFTWARE\Borland\Delphi\7.0')) then
 begin
  MsgBox('Not found Delphi on our computer', mbError, mb_Ok);
  Result:=False;
 end;
end;

Это пример, как проверить установлена ли в системе Delphi. В вашем случае, аналогично, надо проверить присуствие определенного ключа в реестре и если он есть, прочитать значение ключа, где указан путь к unins00.exe, затем получив путь к данному файлу, запустить его функцией InstShellExec, см. пример ниже.

Средствами InnoSetup проигрывание музыки в формате XM или MOD сделать большой гимор, если вообще возможно, практически не пробовал. Можно сделать для этого программку, которую запускать в InnoSetup, а еще проще вот вариант, с помощью которого можно запустить звуковой файл менее экзотического формата (*.wav, mp3 и т. п.):

function InitializeSetup(): Boolean;
var
  res:Integer;
begin
 Result:=True;
 InstShellExec('D:\mus.mp3', '', '', SW_HIDE, res);
end;

вообще не по теме вопрос

_dimka_
Вообще то тема называется Delphi и Pascal. В инсталляторе InnoSetup используются скрипты на языке Pascal, так что вполне в тему.

Zubr, спасибо большое. Вы как всегда на высоте!

Такой функции (InstShellExec) в пятой версии вроде как нет, но можно и так:



Но вот в чем требуемая фишка: хотелось бы, чтобы файл предварительно загружался во временную папку и сразу запускался из нее именно при инициализации (как сделать это в начале инсталляционного процесса я примерно знаю), а затем закрывался (или закрывалась, если это программа) после завершения инсталляции. Это возможно? Если да, то как? Если нет, то затея не удалась, да и особо не нужна она в принципе.

Вот это мне действительно нужно: я так и не разобрался:



Ну, вроде как функцию RegQueryStringValue надо использовать, так?
Ну, вроде считываем параметр деинсталлятора - 'UninstallString'.
Ну, вроде ResultStr - это и есть (значение) прямой путь к деинсталлятору (включая сам деинсталлятор *.exe).
А дальше не врубаюсь, помогите, пожалуйста...

Вот код решающий оба ваших вопроса:

function InitializeSetup(): Boolean;
var
  res:Integer;
  s, ResultStr:string;
begin
 ExtractTemporaryFile(music.mp3');
 s:=ExpandConstant('{tmp}')+'\music.mp3';
 ShellExec('play',  s,  '',  '',  SW_HIDE,  ewNoWait,  res);
 If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1', 'UninstallString', ResultStr) then
 begin
  If ResultStr<>'' then
  begin
   ResultStr:=RemoveQuotes(ResultStr);
   If MsgBox('Программа My Program уже установлена, удалить ее?', mbInformation, MB_OKCANCEL)=IDOK then
   InstExec(ResultStr, '', '', True, False, SW_SHOW, res)
   else
   begin
    Result:=False;
    exit;
   end;
  end;
 end;
 Result:=True;
end;

Спасибо Вам, будем пробовать.

Получилось, но всё равно немного переделал под пятую версию:



Вопрос следующий: как закрыть (или завершить процесс) программу, запущенную из временной папки перед завершением установки, используя средства Inno Setup? Это ведь лучше через процедуру DeInitializeSetup делать?
У меня после успешного решения данного вопроса сразу отпадает потребность воспроизведения *.xm и *.mod, т.к. уже найден конвертер этих файлов в EXE. На данный момент это последнее, что меня интересует. Поможете?

Если программка Temp_Program.exe не консольная, то можно передать ей сообщение WM_CLOSE, иначе проблема сложнее, средствами InnoSetup не получится.

procedure DeInitializeSetup();
var
  h:Longint;
begin
 h:=FindWindowByClassName('WMPlayerApp');
 If h<>0 then
 SendMessage(h, 16, 0, 0);
end;

Здесь 'WMPlayerApp' класс окна закрываемого приложения, чтобы его определить можно воспользоваться программой VIEWWIND.

Спасибо, очень интересно. Я вот не знаю даже: сама программка Temp_Program.exe не консольная, т.е. обычное Win32 приложение, которое напоминает классический интерфейс Winamp-а, но она создана консольным "Досовским" приложением, поэтому я теряюсь в точном ответе, т.к. не знаю, может ли считаться программа Win32, если она была создана Досовским/консольным приложением. Но судя по всем признакам (проверка PE анализаторами) - программка не консольная.
Получается, что дело остаётся "за малым". Какую-то программу VIEWWIND я нашёл через поисковик, но что-то сомневаюсь, что она может определить класс окна приложения. Сама по себе она консольная и даже не имеет описания, как ей пользоваться, даже не запускается через командную строку (возможно, это исходники. Поэтому я прошу Вас очень, - укажите, пожалуйста, ссылку, по которой можно скачать данную программу.

В вашем случае, если при проигрывании звукового файла, вы закрываете программку Temp_Program.exe и проигрывание прекращается, то все должно получиться.
Программу ViewWindow отправил вам на Email.

Спасибо большое. Очень хорошая программка.

Всё получилось, только есть один момент:

Код



Когда инсталлятор закрывается, программа Temp_Program.exe закрывается, но не удаляется, т.к. видимо не хватает времени для выгрузки из временной директории. Поэтому мне пришлось "схитрить", вставив соответствующее сообщение. Вопрос: можно ли заставить выгружаться временные файлы (в данном случае) при выходе инсталлятора без соответствующего сообщения, например, сделать задержку?

И ещё один, думаю, понравится.
Есть такая директива AppMutex. Эта директива используется для предотвращения установки новой версии программы, если программа выполняется в данный момент, и удаления запущенного в данный момент приложения. В ней нужно указать ограничители. Если ограничители присутствуют, инсталятор/деинсталятор выдаст сообщение: "[Setup или Uninstall] обнаружил, что [AppName] выполняется. Пожалуйста, завершите работу приложения, а потом нажмите ОК для продолжения или Cancel для отмены". Но для этого нужно добавление в программу/инсталлятор соответствующего кода. Например, вот код на Delphi:



А в секции Setup после этого прописать следующее:



Вот только не знаю как расписать код для создания Mutex.
Если Вам не сложно, напишите, пожалуйста, примерчик.

Попробуйте вместо функции MsgBox поставить функцию Sleep(500) - здесь аргумент 500 количество милисекунд задержки.

Есть смысл использовать данную директиву, если вы делаете инсталлятор для своей программы, в которой вы можете установить мутекс, как в Help написано CreateMutex(nil, False, 'MyProgramsMutexName'). В вашем случае так не получится, но можно исхитриться по другому, все через тот же класс окна:

function InitializeSetup(): Boolean;
var
  h:Longint;
begin
 Result:=True;
 h:=FindWindowByClassName('ClassWindowInstallProg');//ClassWindowInstallProg - класс окна программы, которую вы устанавливаете
 If h<>0 then
 begin
 //здесь вы можете выдать сообщение, что открыта программа
 SendMessage(h, 16, 0, 0);//закрытие программы
 //можно не закрывать программу, а выдать сообщение и закрыть инсталлятор
 Result:=False;//закрытие инсталлятора
 end;

end;

Спасибо большое. Думаю, разберусь с этим и всё будет правильно работать.
Zubr, а Вы настоящий Гуру в написании скрипта для инсталлятора (да и не только, наверное.

У меня созрел вопрос "косметического" характера:
Видел инсталляторы (Inno Setup), в которых в фоновое окно вставлено изображение, причём отличающееся от изображения, которое на панели мастера.
Я только знаю, как вывести в фоновое окно изображение мастера:

А как вывести внешнее изображение не знаю. Может Вы сталкивались с такой ситуацией?
И ещё один: при установке на панели выбора папки установки отображается количество требуемого дискового пространства. Как сделать, чтобы чуть выше отображалась информация о доступном пространстве на выбранном диске?

Вы уверены, что это было сделано в InnoSetup? В InnoSetup (4-ая версия) я такой возможности не нашел.

Не знаю, никогда не сталкивался с этим вопросом. Будет время посмотрю.

Извиняюсь, есть такая возможность.

[Setup]
WindowVisible=yes

[Files]
Source: "MyImage.bmp"; Flags: dontcopy

[code]
procedure InitializeWizard();
var
  BackgroundBitmapImage: TBitmapImage;
  BackgroundBitmapText: TNewStaticText;
  s:string;
  bitmap:TBitmap;
begin
  ExtractTemporaryFile(MyImage.bmp');
  s:=ExpandConstant('{tmp}')+'\MyImage.bmp';
  BackgroundBitmapImage := TBitmapImage.Create(MainForm);
  BackgroundBitmapImage.AutoSize := True;
  BackgroundBitmapImage.Bitmap.LoadFromFile(s);
  BackgroundBitmapImage.Left := 50;
  BackgroundBitmapImage.Top := 100;
  BackgroundBitmapImage.Parent := MainForm;
    BackgroundBitmapText := TNewStaticText.Create(MainForm);
  BackgroundBitmapText.Caption := 'TBitmapImage';
  BackgroundBitmapText.Left := BackGroundBitmapImage.Left;
  BackgroundBitmapText.Top := BackGroundBitmapImage.Top +    BackGroundBitmapImage.Height + 8;
  BackgroundBitmapText.Parent := MainForm;
end;

Здесь MyImage.bmp - внешнее изображение.

Сделать можно, но очень гиморно.

Спасибо большое. Я уже хотел в доказательство Вам скриншоты на мыло выслать . А со вторым вопросом напрягать Вас не буду.

Хорошо. А как можно замостить фоновую картинку так, чтобы при любом изменении разрешения экрана она оставалась растянутой до краёв, чтобы не выходила за пределы фонового окна и чтобы меньше его не была? В виденных мной инсталляторах именно так и было. Я 2 часа промучался, но так и не достиг требуемого результата.

Ну 2 часа это не много, бывает приходится мучиться 2 дня, а то и 2 недели
Вот код решающий ваш вопрос:

procedure InitializeWizard();
var
 BackgroundBitmapImage: TBitmapImage;
 s:string;
 bitmap:TBitmap;
begin
 ExtractTemporaryFile(MyImage.bmp');
 s:=ExpandConstant('{tmp}')+'\MyImage.bmp';
 BackgroundBitmapImage := TBitmapImage.Create(MainForm);
 BackgroundBitmapImage.Bitmap.LoadFromFile(s);
 BackgroundBitmapImage.Left := 0;
 BackgroundBitmapImage.Top := 0;
 BackgroundBitmapImage.Width:=MainForm.ClientWidth;
 BackgroundBitmapImage.Height:=MainForm.ClientHeight;
 BackgroundBitmapImage.Parent := MainForm;
 BackgroundBitmapImage.Stretch:=True;
end;

Просто класс! То что нужно.

Здраствуйте. Я в Inno Setup начал делать инсталляторы неда