[valyok666]

Devils Night, Зимний инсталл под новый год

[nik1967]

Интересует вопрос: Как сделать вот что, идёт запуск инсталятора, инсталятор проверяет наличие трёх файлов 1.exe, 2.dll, 3.ocx в папке C:\Program Files\MyProg и наличие ключа в реестре HKEY_LOCAL_MACHINE\SOFTWARE\MyProg (в этом ключе есть ещё ветки, ну это не важно, главное HKEY_LOCAL_MACHINE\SOFTWARE\MyProg), суть в том что, если инсталятор это всё обнаруживает, то продолжаются дальнейшие действия, если нет, то выводит окно с сообщением типа "не найдены необходимые компоненты", и при нажатии ОК инсталятор закрывается, возможно ли такое сделать? »

А почему нет?

Код:

[Setup]
AppName=MyProg
AppVerName=MyProg
DefaultDirName={pf}\MyProg

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

[_Code]
function InitializeSetup: Boolean;
begin
    Result:=true;
  if not ((RegKeyExists(HKLM, 'SOFTWARE\MyProg')) 
    and (FileExists('C:\Program Files\MyProg\1.exe')) 
    and (FileExists('C:\Program Files\MyProg\2.dll')) 
    and (FileExists('C:\Program Files\MyProg\3.ocx'))) 
then 
begin
    MsgBox('Не найдены необходимые компоненты.', mbInformation, MB_OK);
    Result:=false; 
  end;
end;

Только этот пример будет работать, если точно известно местонахождение MyProg и ветки реестра HKEY_LOCAL_MACHINE\SOFTWARE\MyProg.
Если MyProg установлено в другом месте и если используется х64 винда, нужен другой пример

[Gnom_aka_Lexander]

и если используется х64 винда, нужен другой пример »

Вовсе нет. Инно сама определит разрядность и подставит подключ в проверке, это она умеет

[Sotonisto]

Всем доброго времени суток!
Мне нужен простенький скрип (можно и с доп. dll), котрый при нажатии (не при наведении, а именно нажатии) на кнопку в обычном инсталляторе воспроизводил указаный звук (например, какой-то click.wav и пр.) и больше ничего. Как я уже говорил, хочется простой (насколько это можно) скрипт. Заранее благодарен.

[nik1967]

Лександер, Саша, я про C:\Program Files (х86) и просто C:\Program Files в х64

[Gnom_aka_Lexander]

Саша, я про C:\Program Files (х86) и просто C:\Program Files в х64 »

Это инно, тоже умеет Хотя - идеальны вариант - сделать классически - проверять ветку реестра, брать из нее путь до папки установки, и проверять в ней наличие нужных файлов. В скрипте Юршата так и сделано.

[valyok666]

Sotonisto, Вот держи там пример

[R.i.m.s.k.y.]

Devils Night

Только этот пример будет работать, если точно известно местонахождение MyProg и ветки реестра HKEY_LOCAL_MACHINE\SOFTWARE\MyProg. Если MyProg установлено в другом месте и если используется х64 винда, нужен другой пример »

там не другой пример, там проверка isWin64 и ключи реестра разные могут быть, надо смотреть конкретную прогу, ключи могут быть в 64-х разрядном разделе HKLM64, или в подразделе syswow64, см пример пониже. Но одновременно hklm64\syswow64 быть не может, это я для затравки написал

Код:

[Setup]
AppName=MyProg
AppVerName=MyProg
DefaultDirName={pf}\MyProg

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

[_Code]
function InitializeSetup: Boolean;
begin
    Result:=true;
if not iswin64 the begin
  if not ((RegKeyExists(HKLM, 'SOFTWARE\MyProg')) 
    and (FileExists('C:\Program Files\MyProg\1.exe')) 
    and (FileExists('C:\Program Files\MyProg\2.dll')) 
    and (FileExists('C:\Program Files\MyProg\3.ocx'))) 
then 
begin
    MsgBox('Не найдены необходимые компоненты.', mbInformation, MB_OK);
    Result:=false; 
  end;
end; //not iswin64
if iswin64 the begin
  if not ((RegKeyExists(HKLM64, 'SOFTWARE\SYSWOW64\MyProg')) 
    and (FileExists('C:\Program Files\MyProg\1.exe')) 
    and (FileExists('C:\Program Files\MyProg\2.dll')) 
    and (FileExists('C:\Program Files\MyProg\3.ocx'))) 
then 
begin
    MsgBox('Не найдены необходимые компоненты.', mbInformation, MB_OK);
    Result:=false; 
  end;
end; //iswin64
end;

[nik1967]

Да знаю я, парни. Я про ЭТО: FileExists('C:\Program Files\MyProg\1.exe')
А если прога установлена в D:\Program Files\MyProg?
На счёт этого Саша верно писал:

Хотя - идеальны вариант - сделать классически - проверять ветку реестра, брать из нее путь до папки установки, и проверять в ней наличие нужных файлов.

брать из нее путь до папки установки

А еже ли нет пути установки?

[Devils Night]

А почему нет? Только этот пример будет работать, если точно известно местонахождение MyProg и ветки реестра HKEY_LOCAL_MACHINE\SOFTWARE\MyProg. »

Да, именно так и должно быть.
R.i.m.s.k.y., ну вобще мне на X86 было нужно. Но это даже лучше.
nik1967, R.i.m.s.k.y., Спасибо вам огромное ребят .

А если прога установлена в D:\Program Files\MyProg? »

Да всё равно где она установлена, главное чтобы находились файлы 1.exe, 2.dll, 3.ocx, хотя файлы могут быть другими и наличие пути с файлами может быть C:\WINDOWS\system32.

Хотя - идеальны вариант - сделать классически - проверять ветку реестра, брать из нее путь до папки установки »

Вот это как раз и ненужно, проверка только ключа, даже если он пуст, т.е в HKEY_LOCAL_MACHINE\SOFTWARE\MyProg нет не каких параметров и дополнительных веток, самое главное только наличие HKEY_LOCAL_MACHINE\SOFTWARE\MyProg.

P.S Проверил, работает так как нужно, т.е если отсутствует хотя бы один компонент, то установка не продолжается.
В общем вопрос решён.