-
Posts
143 -
Joined
-
Last visited
Posts posted by Nowik1971
-
-
Спасибо уже сделал, добавил флаг, но мне надо чтобы потом dll и каритнку сплеша не могли потом тырнуть , вот как это реализовать еще не нашел...
к тому же мне не надо чтобы вводили пароль пользователи, а чтобы просто шифровался модпак.... короче просто не знаю как сделать подскажите кто такое делал.
-
Есть вопрос. Подскажите гуру как сделать чтобы заставка сплеша воспроизводилась если я шифрую установщик
Encryption=yes
Password=11111
Просто пишет ошибку что dll не найден в папке темп... короче не дает его прочитать после шифрования, если отключаю то все работает....
'Скриншот ошибки'
Короче проверял темп и видел, что если не шифровать все нужные файлы копируются, а если включить шифрование, то файлы для запуска заставки не копируются... перелопатил немного форумы, но так и не нашел решения... подходящего для меня..
-
Читаю и смеюсь...
Вахаха я то же улыбаюсь ведь конкретно ответил на вопрос КАК скрипты объединить? вот и сделал, тем более в инно это все на автомате делается... а чтобы работало вопроса не было!!!
Так спрашивали бы по делу, что-то интересное, а не то "как скрипты объединить". Берёшь и объединяешь. В 90% случаев нет ничего сверхъестественного в этом и сводится к подключению процедуры в главную.
вот и я ответил прямо на поставленный вопрос, его по делу не было...
Парни здесь велосипед изобретают, хотя в теме все почти есть... пытаются все что кусками в одно собрать, а учиться и не пробуют некоторые!....
каждому я давал полный исходник модпака, но им надо не так как надо , а по своему... вот поэтому и вопросы такие, даже исходник готового многостраничного пака им не нужен и поучить его не желают, просят все за них и под них сделать, так идите в платный раздел и вам там все наклепают за грины!
-
Весь топ почти перелопатил, уже в глазах рябит...
Подскажите как совместить скрипт бекап
; BackUpPage - отдельная страница для реализации резервного копирования файлов с выбором параметров; Автор: AtotIK
#include "SHFileOperation.iss";
var
BackupPage: TWizardPage;
DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;
const
BackupDescText =
'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.8.11", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.';
DeleteDescText =
'Установщик удалит все файлы в папках.';
MoveDescText =
'Установщик сделает резервную копию всех файлов в папках.';
NoneDescText =
'Установщик оставит всё как есть.';
function BackupCheck_1(): Boolean;
var
BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');
BackupDescLabel:=TLabel.Create(WizardForm);
BackupDescLabel.Parent:=BackupPage.Surface;
BackupDescLabel.Left:=0;
BackupDescLabel.Top:=0;
BackupDescLabel.Width:=BackupPage.SurfaceWidth;
BackupDescLabel.Height:=90;
BackupDescLabel.AutoSize:=False;
BackupDescLabel.Wordwrap:=True;
BackupDescLabel.Caption:=BackupDescText;
DeleteRadioButton:=TNewRadioButton.Create(WizardForm);
DeleteRadioButton.Parent:=BackupPage.Surface;
DeleteRadioButton.Checked:=False;
DeleteRadioButton.Top:=95;
DeleteRadioButton.Width:=BackupPage.SurfaceWidth;
DeleteRadioButton.Font.Style:=[fsBold];
DeleteRadioButton.Font.Size:=9;
DeleteRadioButton.Caption:='Удалить файлы'
DeleteDescLabel:=TLabel.Create(WizardForm);
DeleteDescLabel.Parent:=BackupPage.Surface;
DeleteDescLabel.Left:=18;
DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;
DeleteDescLabel.Width:=BackupPage.SurfaceWidth;
DeleteDescLabel.Height:=40;
DeleteDescLabel.AutoSize:=False;
DeleteDescLabel.Wordwrap:=True;
DeleteDescLabel.Caption:=DeleteDescText;
MoveRadioButton:=TNewRadioButton.Create(WizardForm);
MoveRadioButton.Parent:=BackupPage.Surface;
MoveRadioButton.Checked:=True;
MoveRadioButton.Top:=140;
MoveRadioButton.Width:=BackupPage.SurfaceWidth;
MoveRadioButton.Font.Style:=[fsBold];
MoveRadioButton.Font.Size:=9;
MoveRadioButton.Caption:='Сделать резервную копию файлов'
MoveDescLabel:=TLabel.Create(WizardForm);
MoveDescLabel.Parent:=BackupPage.Surface;
MoveDescLabel.Left:=18;
MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;
MoveDescLabel.Width:=BackupPage.SurfaceWidth;
MoveDescLabel.Height:=40;
MoveDescLabel.AutoSize:=False;
MoveDescLabel.Wordwrap:=True;
MoveDescLabel.Caption:=MoveDescText;
NoneRadioButton:=TNewRadioButton.Create(WizardForm);
NoneRadioButton.Parent:=BackupPage.Surface;
NoneRadioButton.Checked:=False;
NoneRadioButton.Top:=185;
NoneRadioButton.Width:=BackupPage.SurfaceWidth;
NoneRadioButton.Font.Style:=[fsBold];
NoneRadioButton.Font.Size:=9;
NoneRadioButton.Caption:='Ничего не трогать'
NoneDescLabel:=TLabel.Create(WizardForm);
NoneDescLabel.Parent:=BackupPage.Surface;
NoneDescLabel.Left:=18;
NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;
NoneDescLabel.Width:=BackupPage.SurfaceWidth;
NoneDescLabel.Height:=40;
NoneDescLabel.AutoSize:=False;
NoneDescLabel.Wordwrap:=True;
NoneDescLabel.Caption:=NoneDescText;
end;
function BackupCheck_2(): Boolean;
begin
If DeleteRadioButton.Checked then
begin
DelTree(ExpandConstant('{app}\res_mods\0.8.11'), True, True, True);
DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
CreateDir(ExpandConstant('{app}\res_mods\0.8.11'));
end;
end;
function BackupCheck_3(): Boolean;
begin
If MoveRadioButton.Checked then
begin
MoveDir(ExpandConstant('{app}\res_mods\0.8.11\'),ExpandConstant('{app}\res_mods\backup\0.8.11'));
MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm'));
CreateDir(ExpandConstant('{app}\res_mods\0.8.11'));
DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
BackupCheck_2();
BackupCheck_3();
end;
end;
procedure InitializeWizard();
begin
BackupCheck_1();
end;
и картинки при наведении[code=auto:0]#ifdef UNICODE#define A "W"
#else
#define A "A"
#endif
const
UNDEF_INDEX = -777;
ALPHA_BLEND_LEVEL = 255; // max=Byte=255
WS_EX_LAYERED = $80000;
WS_EX_TRANSPARENT = $20;
LWA_COLORKEY = 1;
LWA_ALPHA = 2;
GWL_EXSTYLE = (-20);
var
InfoPic: TBitmapImage;
LastIndex: Integer;
TempPath: String;
PicForm: TForm;
type
COLORREF = DWORD;
function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';
function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall';
procedure ShowPicHint(const PicFilePath: String);
var
pt: TPoint;
begin
if not GetCursorPos(pt) then Exit;
InfoPic.Bitmap.LoadFromFile(PicFilePath);
try
with PicForm do
begin
SetBounds(ScaleX(pt.x + 390), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height);
Show;
end;
finally
SetFocus(WizardForm.Handle);
end;
end;
procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
UndefPic: String;
begin
if Index = -1 then Exit;
if Index = LastIndex then Exit;
try
case TNewCheckListBox(Sender).ItemCaption[index] of
'1.Отражение броней(unKnown_bot).': UndefPic := '1-Забл броней урон.bmp';
'2.Радар (тылы).': UndefPic := 'Радар.bmp';
'3.Командирская камера (koshnaranek).': UndefPic := 'Командирская камера.bmp';
'4.Таймер сведения орудия в бою (Ekspoint).': UndefPic := 'таймер сведения.bmp';
'5.Винтик.': UndefPic := 'винтик.bmp';
else
begin
LastIndex := UNDEF_INDEX;
PicForm.Hide;
Exit;
end;
end;
if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
ShowPicHint(TempPath + UndefPic);
finally
LastIndex := Index;
end;
end;
procedure CompOnMouseLeave(Sender: TObject);
begin
PicForm.Hide;
LastIndex := -1;
end;
procedure InitInfo();
begin
WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
TempPath := AddBackslash(ExpandConstant('{tmp}'));
LastIndex := UNDEF_INDEX;
PicForm := TForm.Create(WizardForm)
with PicForm do
begin
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
InfoPic := TBitmapImage.Create(PicForm)
with InfoPic do
begin
Parent := PicForm;
AutoSize := True;
end;
end;
SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA);
end;
procedure InitializeWizard();
begin
InitInfo();
end;
по отдельности все работает! совместить не могу! ((
Вот так автоматом...
'совмещенный скрипт'
; --- Generated by InnoSetup Script Joiner version 3.0, Jul 22 2009, © Bulat Ziganshin . More info at http://issjoiner.codeplex.com/@gmail.com>; --- Source: 778.iss ------------------------------------------------------------
; BackUpPage - отдельная страница для реализации резервного копирования файлов с выбором параметров
; Автор: AtotIK
#include "SHFileOperation.iss";
[code=auto:0]
var
BackupPage: TWizardPage;
DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;
const
BackupDescText =
'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.8.11", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.';
DeleteDescText =
'Установщик удалит все файлы в папках.';
MoveDescText =
'Установщик сделает резервную копию всех файлов в папках.';
NoneDescText =
'Установщик оставит всё как есть.';
function BackupCheck_1(): Boolean;
var
BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');
BackupDescLabel:=TLabel.Create(WizardForm);
BackupDescLabel.Parent:=BackupPage.Surface;
BackupDescLabel.Left:=0;
BackupDescLabel.Top:=0;
BackupDescLabel.Width:=BackupPage.SurfaceWidth;
BackupDescLabel.Height:=90;
BackupDescLabel.AutoSize:=False;
BackupDescLabel.Wordwrap:=True;
BackupDescLabel.Caption:=BackupDescText;
DeleteRadioButton:=TNewRadioButton.Create(WizardForm);
DeleteRadioButton.Parent:=BackupPage.Surface;
DeleteRadioButton.Checked:=False;
DeleteRadioButton.Top:=95;
DeleteRadioButton.Width:=BackupPage.SurfaceWidth;
DeleteRadioButton.Font.Style:=[fsBold];
DeleteRadioButton.Font.Size:=9;
DeleteRadioButton.Caption:='Удалить файлы'
DeleteDescLabel:=TLabel.Create(WizardForm);
DeleteDescLabel.Parent:=BackupPage.Surface;
DeleteDescLabel.Left:=18;
DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;
DeleteDescLabel.Width:=BackupPage.SurfaceWidth;
DeleteDescLabel.Height:=40;
DeleteDescLabel.AutoSize:=False;
DeleteDescLabel.Wordwrap:=True;
DeleteDescLabel.Caption:=DeleteDescText;
MoveRadioButton:=TNewRadioButton.Create(WizardForm);
MoveRadioButton.Parent:=BackupPage.Surface;
MoveRadioButton.Checked:=True;
MoveRadioButton.Top:=140;
MoveRadioButton.Width:=BackupPage.SurfaceWidth;
MoveRadioButton.Font.Style:=[fsBold];
MoveRadioButton.Font.Size:=9;
MoveRadioButton.Caption:='Сделать резервную копию файлов'
MoveDescLabel:=TLabel.Create(WizardForm);
MoveDescLabel.Parent:=BackupPage.Surface;
MoveDescLabel.Left:=18;
MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;
MoveDescLabel.Width:=BackupPage.SurfaceWidth;
MoveDescLabel.Height:=40;
MoveDescLabel.AutoSize:=False;
MoveDescLabel.Wordwrap:=True;
MoveDescLabel.Caption:=MoveDescText;
NoneRadioButton:=TNewRadioButton.Create(WizardForm);
NoneRadioButton.Parent:=BackupPage.Surface;
NoneRadioButton.Checked:=False;
NoneRadioButton.Top:=185;
NoneRadioButton.Width:=BackupPage.SurfaceWidth;
NoneRadioButton.Font.Style:=[fsBold];
NoneRadioButton.Font.Size:=9;
NoneRadioButton.Caption:='Ничего не трогать'
NoneDescLabel:=TLabel.Create(WizardForm);
NoneDescLabel.Parent:=BackupPage.Surface;
NoneDescLabel.Left:=18;
NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;
NoneDescLabel.Width:=BackupPage.SurfaceWidth;
NoneDescLabel.Height:=40;
NoneDescLabel.AutoSize:=False;
NoneDescLabel.Wordwrap:=True;
NoneDescLabel.Caption:=NoneDescText;
end;
function BackupCheck_2(): Boolean;
begin
If DeleteRadioButton.Checked then
begin
DelTree(ExpandConstant('{app}\res_mods\0.8.11'), True, True, True);
DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
CreateDir(ExpandConstant('{app}\res_mods\0.8.11'));
end;
end;
function BackupCheck_3(): Boolean;
begin
If MoveRadioButton.Checked then
begin
MoveDir(ExpandConstant('{app}\res_mods\0.8.11\'),ExpandConstant('{app}\res_mods\backup\0.8.11'));
MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\xvm'));
CreateDir(ExpandConstant('{app}\res_mods\0.8.11'));
DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
end;
end;
procedure CurStepChanged1(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
BackupCheck_2();
BackupCheck_3();
end;
end;
procedure InitializeWizard1();
begin
BackupCheck_1();
end;
[setup]
; --- Source: 777.iss ------------------------------------------------------------
[Code]
[code=auto:0]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif
const
UNDEF_INDEX = -777;
ALPHA_BLEND_LEVEL = 255; // max=Byte=255
WS_EX_LAYERED = $80000;
WS_EX_TRANSPARENT = $20;
LWA_COLORKEY = 1;
LWA_ALPHA = 2;
GWL_EXSTYLE = (-20);
var
InfoPic: TBitmapImage;
LastIndex: Integer;
TempPath: String;
PicForm: TForm;
type
COLORREF = DWORD;
function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';
function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall';
procedure ShowPicHint(const PicFilePath: String);
var
pt: TPoint;
begin
if not GetCursorPos(pt) then Exit;
InfoPic.Bitmap.LoadFromFile(PicFilePath);
try
with PicForm do
begin
SetBounds(ScaleX(pt.x + 390), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height);
Show;
end;
finally
SetFocus(WizardForm.Handle);
end;
end;
procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
UndefPic: String;
begin
if Index = -1 then Exit;
if Index = LastIndex then Exit;
try
case TNewCheckListBox(Sender).ItemCaption[index] of
'1.Отражение броней(unKnown_bot).': UndefPic := '1-Забл броней урон.bmp';
'2.Радар (тылы).': UndefPic := 'Радар.bmp';
'3.Командирская камера (koshnaranek).': UndefPic := 'Командирская камера.bmp';
'4.Таймер сведения орудия в бою (Ekspoint).': UndefPic := 'таймер сведения.bmp';
'5.Винтик.': UndefPic := 'винтик.bmp';
else
begin
LastIndex := UNDEF_INDEX;
PicForm.Hide;
Exit;
end;
end;
if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
ShowPicHint(TempPath + UndefPic);
finally
LastIndex := Index;
end;
end;
procedure CompOnMouseLeave(Sender: TObject);
begin
PicForm.Hide;
LastIndex := -1;
end;
procedure InitInfo();
begin
WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
TempPath := AddBackslash(ExpandConstant('{tmp}'));
LastIndex := UNDEF_INDEX;
PicForm := TForm.Create(WizardForm)
with PicForm do
begin
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
InfoPic := TBitmapImage.Create(PicForm)
with InfoPic do
begin
Parent := PicForm;
AutoSize := True;
end;
end;
SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA);
end;
procedure InitializeWizard2();
begin
InitInfo();
end;
[setup]
; --- Dispatching code ------------------------------------------------------------
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
CurStepChanged1(CurStep);
end;
procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
end;
-
смотрю уже много модпакеров стало :), удачи вам в начинании :)
нет))) про такое -
В форме делаешь , а потом подключаешь скрипт который ты хотел и будет он на страинице вначале..... или где пожелаешь...
-
ты за базаром следи достал уже!!!!
Совсем обнаглел, я помогал тебе, а ты так выражаешься "Редиска!!!!" и в редакторе форм много что сделать можно, только справку почитай неуч!
Еще и плачешь почему тебе минусы ставят! Повзрослей и научись общаться, а точнее вопросы ставить как надо...
Хотя мне по барабану на тебя ведь неумности только и хлещуют из твоих уст!
К тому же я пояснил как сделать и что убрать, и правильно, а ты это даже и не заметил, хотя сделал так же...
-
Вы прежде чем так помогать друг другу хоть почитайте справку к Инно, так в тупую что-то делать вы совсем запутаетесь.... есть примеры и в гугле полно всего.... надо только правильно спросить, да и здесь помогут если в личку напишите или вопрос правильно сформулируете.... А на пальцах тыкать не есть зер гуд, немного и почитывать стоит из Хелпа инно
-
Да меняются цвета на них.... используя элемент TLabel... создаешь и меняешь... просто в стандартном НЕЛЬЗЯ сделать .... вот скрин
'Скрин примера изменения цвета'
-
Вот посмотри как у меня может что полезное и выберешь
-
а как сделать цвет шрифта у надписей (удалить файл , ни чего не трогать) будь доборы подскажите просто у меня фон инсталятора чёрный и этих надписей невидно
В форме инсталятора меняешь цвет шрифта помоему.... вот скрин, стрелками пояснил в какой секции, в общем поймешь...
'Скрин формы'
-
AntonVK, on 24 Oct 2016 - 18:42, said:
Добрый вечер!
По существу вопроса - на текущий момент мод не работает. В ангаре работает, в бою мышь не управляет танком, курсор отдельно. Как исправить, я сейчас не знаю. Сегодня я потратил весь день, чтобы разобраться - безрезультатно. Причём тут вообще бой, я не понимаю.
Сам код часов и калькулятора точно рабочий, как сделать правильную подгрузку - я хз. Опять всё поменялось, информации ноль, рабочих ангарных модов с подгрузкой флешки, именно в форме, которая мне интересна, тоже нет. Если не выйдет, ну ... ничего не поделаешь.
Я так понимаю, теперь флешка грузится и в боевой интерфейс и всё там портит. Кто-нибудь знает, как это избежать?
Для информации
- у меня один аккаунт
- в бою я был только сегодня, постоянно с нерабочей мышкой )
Если вдруг кто захочет потестить, вот сегодняшняя версия мода. Можно попробовать потестить без конфигов, по отдельности и т.п. Вдруг дело в калькуляторе, или в часах только.
Спасибо огромнейшее все работает как твои часы нормально и без сбоев... да и в шапке не нашел обновленного архива и конфигов.... в принципе конфиги заменил теми что у меня были и все в норме!!!
Кому надо вот конфиги разные 4 варианта для часов.
'Скриншоты конфигов'
-
мне конечно НАКАКАТЬ что мои посты минусят но только я не пойму какого х... и какой смыл??? я что, что то не по теме написал? или что то плохое или неадекватное написал? если я достал тут своими вопросами то просто посмотрел не ответил и вышел, думаю так поступит нормальный человек. ахириваю насколько люди гнилые!!!
Наверное надо советы послушать и довести сначала до рабочего состояния твой инсталятор, а затем его украшать...
Тогда и вопросов простых станет меньше и ответят по теме и репу плюсанут...
-
всем привет. подскажите возможно ли как то исправить неработоспособность unins000.exe? делал установщик скином ( .cjstyles ). именно скином почему то с этим проблема. советовали тут не работать скинами но всё же возможно ли это дело исправить? )) сперва одна ошибка а при нажатии ОК вторая
Я же говорил тебе весь код у тебя с ошибками и ты просто всего там напихал и поэтому такое... дело не в скине... в самом скрипте там наворочено аж просто ужас....
сделай как на первых страницах описано....
Просто ты там и скин и музыку и заставку и все ненужности смонтировал , а основное не правильно с ошибками сделал, вот поэтому и бекап не делает... и не деинсталируется....
В самом инно есть в справке почти все..., а ты собрал со всего простора инета то что хотел, но не правильно скомпоновал...
- 1
-
Матерь Божья!
вахаха
Ну, не ругайся я делал со старого модпака от какого-то хатсана там все через сральник и править не хотелось да тогда еще и не все понимал, а теперь пусть есть как есть, да и все работает... Тем более править слова орфографию исправлять за всеми... Хотя не трудно и имя чекбокса значение не имеет...
Заново перелопачивать просто нет смысла, там и твой код и еще чей-то.... короче все как мясорубке ФАРШ
-
Т
по сути то проще конечно если знать как всё это делать)))) для вас это дело как два пальца об асфальт так сказать а я явно эти два пальца сломаю пока так сделаю)) потому и хочу просто в код прописать)))
короче я хотел бы как на фото в это место прописать очистку кеша игры и хвм.
Так тебе уже ответили как и что написать вот на скриншоте я показываю... в форме надо чек прописать в нужном месте
'Скриншоты'
- 1
- 1
-
привет всем! я конечно понимаю что я вас достал уже своими детскими так сказать вопросами но всё же подскажите мне одну вещь))) я не пойму почему неделю назад используя тот же код для бекапа что и сейчас всё работало а сейчас выдает ошибку пока я не поменяю {#Patch}')); на 0.9.16 ? вот к примеру в этой строчке CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); ну и в остальных тоже.
А ты вот так меняешь?:
CreateDir(ExpandConstant('{app}\res_mods\0.9.16'));
так должно работать
- 1
-
Всем привет
Народ дайте если не трудно и не жалко скрип для очистка кеша и XVM заранее благодарен
Или просто скрипт для ручной очистки в прикрепленном файле
- 1
-
Да спасибо
В модпаке от Амвея есть скрипт с часами, настроек к нему нет, просто вывод времени под кнопкой перевода свободного опыта
Хоть что-то действительно, а то за временем плохо следить , может конечно и ВГ догадаются сделать сами такое, а то они просто дяди безрукие только деньги рвать с нас и могут...
-
походу часов не будет
-
ну, увы
если увижу кину
Спасибо! Тока я смотрю ты не автор мода, будем его ждать походу, а по инету и из типа вотспика с левыми своими скриптами я не ставлю, потом игру придется сносить....
-
все это старое и не работает уже попробовал прежде чем сюда написал, модуль флеша старый везде и не пашет в этом патче, а ХВМ не ставлю не нравится эта параша...
Короче жду автора и жду его готового адаптированного к этому патчу модика... уж больно хороший...!!! Да и нужный!!!
- 1
- 1
-
Где скачать под патч 0.9.16 просто где только не пробовал все старые версиии и в данном патче не работает....
Автор обнови пожалуйста часики очень нравятся и привык уже к ним да и за временем следить удобно....
Заранее огромнейшее спасибо!
-
ЛОМ, on 30 Jun 2016 - 02:27, said:
елки палки!! никак не могу найти. ведь было же где то. подскажите как сделать в установщике две страницы с выбором [Components]. слишком много на одну страницу.
В теме есть это и обсуждалось....
-
народ подскажите если не трудно как в данном скрипте увеличить окно установщика ? ту картинку что появляется до открытия установщика могу сделать и больше и меньше а вот сам установщик в размерах ну никак не могу.
;#define Video [Setup] AppName=My Program AppVersion=1.5 DefaultDirName={pf}\My Program WizardImageFile=Fon.bmp OutputBaseFilename=2 [Files] Source: compiler:Dll Pack\IsPicture_for_all.dll; Flags: dontcopy Source: Fon.bmp; Flags: dontcopy #ifdef Video Source: XVID\fon.avi; Flags: dontcopy #endif [Code] //----------------------------------------- procedure Initialize(AhWnd,BhWnd:hWnd);external 'Initialize@{tmp}\IsPicture_for_all.dll stdcall delayload'; // Здесь указываем хендлы окон, на данный момент, лучше пока указывать // WizardForm.Handle - первым и MainForm.Handle вторым. //----------------------------------------- procedure XvidVideo(fn:String;Seth:string);external 'XvidVideo@{tmp}\IsPicture_for_all.dll stdcall delayload'; // Эта процедура загружает фоновое avi-видео. // Seth - задаем координаты через пробел в одинарных кавычках // пример: XvidVideo(ExpandConstant('{tmp}\fon.avi'), '351 201 236 132'); //----------------------------------------- procedure Deinitialize;external 'Deinitialize@{tmp}\IsPicture_for_all.dll stdcall delayload'; // отменяет свзывание форм между собой, выгружает видео. //----------------------------------------- function NewFont(Height:Integer;thickness,italic,underline,strikeout:DWORD;name:String):hWnd;external 'NewFont@{tmp}\IsPicture_for_all.dll stdcall delayload'; // Создает шрифты для замены стандартных. Необходима для борьбя с артефактами сглаживания. // Height, // высота шрифта // thickness, // насыщенность шрифта // italic, // курсив // underline, // Подчеркнутый // strikeout, // Зачеркнутый // name // имя шрифта //----------------------------------------- procedure SplashWnd(FileName:PAnsiChar;Time,width,height:Integer);external 'SplashWnd@{tmp}\IsPicture_for_all.dll stdcall delayload'; // Создает Splash-заставку // Прозрачность, пока, не поддерживается // FileName, // имя файла // Time, // скорость появления в миллисекундах // width, // ширина // height, // высота procedure EndSplash(Time1,Time2:Integer);external 'EndSplash@{tmp}\IsPicture_for_all.dll stdcall delayload'; // Закрываем Splash-заставку // Time1, // выжидание до закрытия в миллисекундах // Time, // скорость закрытия в миллисекундах //----------------------------------------- //----------------------------------------- function GetSystemMetrics(nIndex:Integer):integer; external '[email protected] stdcall delayload'; const TfonColor = $000008; // Цвет фона $000008 - не изменять! TfontColor = $ffffff; // Цвет тeкста #ifdef Video #include "XVID\xvid.iss" #endif #include "WizardFormResise.iss" Var Font1,Font2:hWnd; function InitializeSetup(): Boolean; begin ExtractTemporaryFile('IsPicture_for_all.dll'); ExtractTemporaryFile('fon.bmp'); SplashWnd(ExpandConstant('{tmp}\fon.bmp'),1500,ScaleX(600),ScaleY(420)); #ifdef Video XvidInstall; ExtractTemporaryFile('fon.avi'); #endif EndSplash(1500,1000); Result:=True; end; procedure InitializeWizard(); begin Font1:= NewFont(16,600,0,0,0,'Comic Sans MS'); Font2:= NewFont(24,900,0,0,0,'Tahoma'); #ifdef Video if CanUseXvid then begin WizardForm.AutoScroll := False; WizardForm.ClientWidth:= ScaleX(600); WizardForm.ClientHeight:=ScaleY(420); WizardForm.Center; end WizardFormResise; #endif WizardForm.WizardSmallBitmapImage.Hide; WizardForm.WizardBitmapImage2.Hide; WizardForm.DirEdit.AutoSelect:=False; //----------------------------------------- //----------------------------------------- //---------------// не изменять!\\---------------\\ // задаем цвет всем элементам,которые нам нужны. WizardForm.WelcomePage.Color:=TfonColor;// не изменять! WizardForm.FinishedPage.Color:=TfonColor; WizardForm.InnerPage.Color:=TfonColor; WizardForm.DirEdit.Color:=TfonColor; WizardForm.ReadyMemo.Color:=TfonColor; WizardForm.MainPanel.Color:=TfonColor; //---------------// не изменять!\\---------------\\ //----------------------------------------- //----------------------------------------- //---------------//Применяем шрифт\\---------------\\ WizardForm.Font.Handle:=Font1; WizardForm.WelcomeLabel1.Font.Handle := Font2; WizardForm.FinishedHeadingLabel.Font.Handle := Font2; WizardForm.PageNameLabel.Font.Handle := Font1; WizardForm.Font.Color:=TfontColor; //---------------//Применяем шрифт\\---------------\\ //----------------------------------------- //----------------------------------------- // Приделываем прозрачность к SelectDirBitmapImage // иначе, придется любоваться на красивый серый // квадратик вокруг изображения папки :) WizardForm.SelectDirBitmapImage.BackColor := clNone; WizardForm.SelectDirBitmapImage.ReplaceColor := clBtnFace; //----------------------------------------- // скрываем изображение с финишной страницы WizardForm.WizardBitmapImage.Parent := MainForm; WizardForm.WizardBitmapImage.SetBounds(0, 0, WizardForm.ClientWidth, WizardForm.ClientHeight); //----------------------------------------- //----------------------------------------- // Запускаем в работу все, что приготовили: // указываем формы, с которыми будет работать длл-ка, //----------------------------------------- Initialize(WizardForm.Handle,MainForm.Handle); //----------------------------------------- // мультимедийные возможности - Фоновое видео //----------------------------------------- #ifdef Video if CanUseXvid then XvidVideo(ExpandConstant('{tmp}\fon.avi'), '351 201 236 132'); #endif //----------------------------------------- end; procedure DeinitializeSetup(); begin //----------------------------------------- // Не забываем про Deinitialize // если не хотим разнообразных ошибок при выходе. //----------------------------------------- Deinitialize; //----------------------------------------- #ifdef Video XvidUnInstall; #endif end;
Через встроенный редактор формы в Инно все делается растягивается и сжимается вся форма и что в ней!
- 1
Создание инсталляторов для модпаков на базе Inno Setup
in Modding General Discussion
Posted · Edited by Nowik1971
пробуй вскрывай если сможешь и пароль сюда прямо напиши... https://yadi.sk/d/G_DyPR6txP9j4, но мне надо чтобы и длл шифровались и картинки....
Зашифровать от взлома.... распаковщиком...