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

[Nordek]

ShadeUa, Скрипт еще раз скиньте, как-нибудь попробую.

[Nordek]

Цитата Dodakaedr:



Скрипт еще раз скиньте, как-нибудь попробую.

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

хорошо , я сейчас закину скрипт , и откуда я его свиснул , вы сможете помочь точно так же арелизовать с языками?

[Iska]

Цитата ShadeUa:



хорошо , я сейчас закину скрипт , и откуда я его свиснул , вы сможете помочь точно так же арелизовать с языками?

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

Если смогу то помогу, а если нет то извиняйте.

[Iska]

Цитата Dodakaedr:



Если смогу то помогу, а если нет то извиняйте.

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

https://yadi.sk/d/OPHiOIRpegLWV

вот скрипт , там мой основной и готовый скаченный с интернета , окуда я хотел своровать затею

[Nordek]

Цитата Dodakaedr:



Если смогу то помогу, а если нет то извиняйте.

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

Извините что так навяжчиво , у вас получилось что то с делать скриптом ?

[xryst]

Подскажите как поправить пример

Код:

Код: Выделить всё

[  code]
const
  INSTALLSTATE_DEFAULT = 5;
#ifdef UNICODE 
  #define A "W" 
 #else 
  #define A "A"
#endif
function MsiQueryProductState(szProduct: String): Integer;
external 'MsiQueryProductState{#A}@msi.dll stdcall';
function IsMsiProductInstall(ProductCode: String): Boolean;
begin
  Result := MsiQueryProductState(ProductCode) = INSTALLSTATE_DEFAULT;
end;
//к примеру определяем установлен ли Microsoft Visual C++ 2010  x86 Redistributable, ProductCode которого {196BB40D-1578-3D01-B289-BEFC77A11A1E}
procedure InitializeWizard();
begin
  if IsMsiProductInstall('{196BB40D-1578-3D01-B289-BEFC77A11A1E}') then
    MsgBox('vcredist 2010 installed for current user', mbInformation, MB_OK)
  else
    MsgBox('vcredist 2010 not installed', mbInformation, MB_OK);
end;

Нужно результатом работы получить, если Microsoft Visual C++ 2010 установлен, то продолжаем установку (можно и не показывать сообщение про это), если не установлен то отобразить сообщение что не установлен, и завершить процесс установки.

Сам пытался, но нечего путнего у меня не вышло

[Карась з Днiпра]

nik1967, попробую прописать в код, спасибо.

По поводу упаковщика. Можно подробнее, пожалуйста? Я очень далек от всего этого, но сделать нужно.

[Iska]

xryst, простого шифрования Вам недостаточно?

[idxvmfortuna_5@vk]

Цитата ShadeUa:



Извините что так навяжчиво , у вас получилось что то с делать скриптом ?

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

Вам в почту еще вчера ответил.




Цитата spaun55555:



Я прошу прощение, а может кто подсказать: в конце инсталятора стоит галочка "запустить...."

А что прописать чтобы еще была строчка "Перейти на сайт..."

В папке есть фал my site.url

Подскажите плиз

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

для не исполняемых файлов применяется флаг shellexec

файл my site.url не обязательно, но все же:


Пример

[spoiler]Код:

[/spoiler]

Код: Выделить всё

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
//[Files]
//Source: my site.url; DesDir: "{app}";
[Run]
Filename: "viewtopic.php?t=265648"; Description: "Посетить OsZone"; Flags: shellexec skipifsilent postinstall
;или через файл my site.url
//Filename: "{app}\my site.url"; Description: "Посетить my site"; Flags: shellexec skipifsilent postinstall unchecked

[Iska]

R.i.m.s.k.y., если речь про встроенный язык Pascal Scripting — то да, там такое есть. Например:

Код:

Код: Выделить всё

function InitializeSetup(): Boolean;
  var MyVar: Single;
begin
  MsgBox(FloatToStr(10.0 / 3.0), mbInformation, MB_OK);
  MyVar := 9.0 / 2;
  MsgBox(FloatToStr(MyVar),      mbInformation, MB_OK);
end;