Metro 2033

Скрипт Metro 2033 1.13

Нет прав для скачивания
Обзор Обновления (4) Отзывы (2) История Обсуждение
Вроде как-то так для кнопки:
procedure ButtonClicks(hBtn: HWND);
var

ErrorCode: Integer;

begin

if IsWin64 then
ShellExec('open', ExpandConstant ('{src}\EXE_64.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

if not IsWin64 then
ShellExec('open', ExpandConstant ('{src}\EXE_32.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;
 
Последнее редактирование:
How to create x64 shortcut in the desktop? (App exe 2)
Как создать x64 ярлык на рабочем столе? (Приложение 2 EXE)[Google translate):bad:

[Iconos]
; Daai ÷ EE NOIE
Nombre: "{userdesktop} \ {#} AppName"; Nombre del archivo: "{app} \ {#} AppExe"; WORKINGDIR: {app}; IconFilename: "{app} \ {#} AppExe";
; Iaith 'Ione'
Nombre: "{grupo} \ {#} AppName"; Nombre del archivo: "{app} \ {#} AppExe"; WORKINGDIR: {app}; IconFilename: "{app} \ {#} AppExe";
Nombre: "{grupo} \ Óäàëèòü EADO"; Nombre del archivo: "{app} \ unins000.exe"; WORKINGDIR: {app};
 
Код: 
#define AppExe32 "32.exe"
#define AppExe64 "64.exe"

[Icons]
; Desktop
Name: "{userdesktop}\{#AppName}"; Filename: "{app}\{#AppExe32}"; WorkingDir: {app}; IconFilename: "{app}\{#AppExe32}"; Check: not IsWin64
Name: "{userdesktop}\{#AppName}"; Filename: "{app}\{#AppExe64}"; WorkingDir: {app}; IconFilename: "{app}\{#AppExe64}"; Check: IsWin64
; Group
Name: "{group}\{#AppName}"; Filename: "{app}\{#AppExe32}"; WorkingDir: {app}; IconFilename: "{app}\{#AppExe32}"; Check: not IsWin64
Name: "{group}\{#AppName}"; Filename: "{app}\{#AppExe64}"; WorkingDir: {app}; IconFilename: "{app}\{#AppExe64}"; Check: IsWin64
Name: "{group}\Delete app"; Filename: "{app}\unins000.exe"; WorkingDir: {app};
 
Последнее редактирование:
Nemko написал(а):
Вроде как-то так для кнопки:
procedure ButtonClicks(hBtn: HWND);
var

ErrorCode: Integer;

begin

if IsWin64 then
ShellExec('open', ExpandConstant ('{src}\EXE_64.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

if not IsWin64 then
ShellExec('open', ExpandConstant ('{src}\EXE_32.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;
Нажмите для раскрытия...
Можно немного упростить ...
Код: 
[code]
procedure ButtonClicks(hBtn: HWND);
var ErrorCode: Integer;
begin
if not IsWin64 then
  ShellExec('open', ExpandConstant ('{src}\EXE_32.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode) else
  ShellExec('open', ExpandConstant ('{src}\EXE_64.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
 
Пользователь Nemko обновил ресурс Metro 2033 новой записью:

Metro 2033 1.13

  • Переписана большая часть кода (убрано много недочетов)
  • Подправлена графика (подправлена и сжата + убрана ненужная)
  • Добавлены модули для разгрузки текста и также немного упорядоченно.
Нажмите для раскрытия...

Узнать больше об этом обновлении...
 
Всё работает, но при первой компиляции были ошибки:
1.PNG
Решилось удалением строки:
WFOldProc:=SetWindowLong(WizardForm.Handle, -4, CallbackAddr('WFProc'));
в Frame.iss
2.PNG
Решилось удалением строки:
OnMouseDown:= @WizardFormOnMouseDown;
в WizardForm.iss
Удалать строки, конечно не выход, но решения я не знаю, т.к. не разбираюсь в INNO, а инсталлятор нужен чисто для себя.
Ну и в самом инсталляторе, кодировка названий кнопок сбилась,
3.PNG
но думаю я это решу сменой кодировок скрипта или шрифтом.

Версия INNO 5.5.9 (u)
Windows 7 HP (x64) Rus
 
Последнее редактирование:
Nemko, спасибо, теперь всё заработало как нужно.
Хорошего нового года!
 
Небольшой баг. Когда запускаешь установщик из папки, появляется сплаш заставка, а затем установщик после сплаша поверх окна с папкой не открывает его. Нужно вручную свернуть папку до рабочего стола и только тогда установщик будет виден.

bezymyannyjj.jpg


Поверх Inno Setup скрипта работаёт ок!
 
Последнее редактирование:
Can anyone change the color of the font? I tried everything but no luck. But this is my first try with Inno Setup, so I might be too stupid.

Google Translate:
Может ли кто-нибудь изменить цвет шрифта? Я пробовал все, но не повезло. Но это моя первая попытка с Inno Setup, поэтому я могу быть слишком глупым.
 
KlimperKalle,
Код: 
; Настройка цвета / color settings
#define HelloColor          "$fbfbfb"
#define HelloColorShadow    "$1415bd"
#define FolderNormal        "$fbfbfb"
#define FolderShadow        "$1415bd"
#define OverTextColor       "$fbfbfb"
#define ButtonNormal        "$fbfbfb,$1415bd,$fbfbfb,$8a390e"
#define ButtonClosed        "$fbfbfb,$1415bd,$fbfbfb,$8a390e"
#define PercentsColor       "$fbfbfb"
#define FinishingDone1      "$fbfbfb"
#define FinishingDone2      "$fbfbfb"
#define FinishingError1     "$1415bd"
#define FinishingError2     "$1415bd"
 
Nemko,
strange, I tried it there also but still all Text are gray but button text. button font color will change if I edit values in #define.
Maybe something with my Inno Setup is wrong. Thanks anyway

Странно, я попробовал и там, но все же текст - серый, но текст кнопки. цвет шрифта кнопки изменится, если я отредактирую значения в #define.
Возможно, что-то с моей установкой Inno неправильно. Спасибо, в любом случае

::EDIT::
Solved. I was using 'Unicode Compiler' but I have to use 'Ansi Compiler'. Thanks for help

Решаемые. Я использовал «Unicode Compiler», но мне нужно использовать «Ansi Compiler». Спасибо за помощь
 
Последнее редактирование:
Люди подскажите почему не работает инсталлятор появляется Splash а потом ничего кроме иконки на миню пуска Windows 10 x64
 

Вложения

вин 10х64, инно 5.5.1ее2(u), работает отлично.
Этот скрипт только под рассширенную всерсию и полностью адекватно он будет работать только на юникоде, нужно это как-то в шапке отобразить.

На 5, даже последних версий, расширенная встает корректно, как-нибудь руки дойдут, пересоберу свою сборку последний раз.
Подозреваю, что поверх 6 версии старая расширенная встает уже криво.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху