» Inno Setup (создание инсталяционных пакетов)

Gnom3

Цитата:

По правильному - давно пора создать отдельную тему - Репаки игр и программ, в которой все это дело обсуждать и узнавать.

Это врядли поможет. Разве создание темы "Inno Setup плюс внешние упаковщики" избавило нас от вопросов по упаковщикам? Нет не избавило...

Как редактировать "О Программе..."?

tyumenik

Цитата:

Как редактировать "О Программе..."?

Например [more=так]
Код: [Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code_]
function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL;
external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

const
WM_SYSCOMMAND = $0112;
MF_DELETE = $200;
MF_SEPARATOR = $800;
MF_BYPOSITION = $400;

var
Menu: TMenuItem;

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_SYSCOMMAND then
if Msg.wParam = Menu.Handle then
MsgBox('Здесь могла бы быть ваша реклама... ', mbInformation, MB_OK);;
end;

procedure InitializeWizard();
begin
// попытаемя удалить родное меню 'О программе'
if not AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem)) then
WizardForm.Position:= poScreenCenter;
// создаём сепаратор
AppendMenu(GetSystemMenu(Wizardform.Handle, False), MF_SEPARATOR, 0, '');
Menu:= TMenuItem.Create(WizardForm); // создаём ссылку на менюшку
// добавляем свой пункт в системное меню 'О программе'
AppendMenu(GetSystemMenu(Wizardform.Handle, False), MF_BYPOSITION, Menu.Handle, SetupMessage(msgAboutSetupMenuItem));
Application.OnMessage:= @AppOnMessage;
end;

Как сделать черным?

shidow
если только скин черный попробовать подключить - у FolderTreeView нет свойства колор.

Подскажите где взять такой скрипт? catalyst заранее спс

BUU такая прозрачность канает только на Семерке

Я знаю, просто такой скрипт хороший

BUU
http://rghost.ru/5859961

ни у кого нет такого скрипта (как у каталистов-прозрачный) только с исдон?

YURSHAT, где взять рестулзовскую версию???

Дай код 497х360 все страницы???

tyumenik

Цитата:

взять рестулзовскую версию???

неужели так трудно посмотреть шапку?
и навсякий что бы избежать последущих вопросов есть ДОКУМЕНТАЦИЯ

Цитата:

Дай код 497х360 все страницы???

Вообще-то это стандартное разрешение инсталлятора.

Библиотека для загрузки лого в самых разных форматах.
Поддерживаемые форматы:
BMP, GIF, JPEG, PNG, TIFF.
Автор библиотеки: R3Pa4eK

Скачать

R3Pa4eK, позволю себе заметить, что твоё творение напоминает botva2.dll. Только твоя библиотека весит 772 kb, а botva2.dll весит 35 kb.
Может быть как то урежешь в следующих версиях вес библиотеки?

Forslay
Мое творения быстрее напоминает ISLogo от VoLT'a . Насчет размера - я знаю. В следующих версиях буду использовать GDI+, при этом размер библиотеки уменьшится.

R3Pa4eK
еще и в аспак засунул. пологаю реальный размер около мегабайта. чтож вы все эти упаковщики используете.
п.с. ниче так длл. на юникоде работает. уменьшить размер и будет шикарно

R3Pa4eK
Честно говоря, а в чём смысл твоей dll? при таких гигантских размерах она ничего не умеет, а именно прозрачности нету, gif анимацию не воспроизводит. Да и вставить лого проще штатным способом инно без всяких dll пусть и в bmp формате, зато bmp файл для лого будет всяко меньше весить чем твоя dll, и плюс инно его сожмёт при упаковке очень не хило. И опять же зачем оно вообще надо, если есть botva2.dll написанная действительно грамотным программистом, а судя по твоим постам в ветке по программированию ты даже азов не знаешь, а занимешься тупо копи/пастами, и вообще зачем плодить клонов ведь ещё есть и fairy.dll. Тебе наверное тщеславие спать не даёт.

з.ы
Не воспринимай мой пост как наезд, ибо это просто мысли в слух о целесообразности ISLogo.dll.

troyan90

Цитата:

п.с. ниче так длл. на юникоде работает. уменьшить размер и будет шикарно

В чём шикарность то, просвети, а то может я чего упустил?

Цитата:

В чём шикарность то, просвети, а то может я чего упустил?

в том что будет доведена до ума. про функционал - совсем другой разговор. согласен есть fairy.dll и botva2.dll и смысла особа в длл нету. ну захотелось человеку написать чтото свое - пусть пишет))

народ подскажите как решить такую проблемку
Ссылка

zero 414
Дык, это скорей всего проблема в антивируснике. Отключи его и попробуй тоже самое.

все,решил проблему,это не из-за антивируса, в коде просто ошибка была

что бы файл копировался только при определенной установленной ОС надо использовать MinVersion ?

понимаю что я туповат но кто-нибудь может сделать как на этом скрине
http://i22.fastpic.ru/big/2011/0531/ef/48ce1e425445e871369e08e346583eef.png
Скрипт
http://rghost.ru/8768071
З.Ы. черным можно не делать)
но хотелось бы увидеть как оно работает)

Подскажите как сделать чекбокс на странице инсталляции при выборе которого прогресс бар переходил в левый нижней угл а при снятие обратно

у меня установка игры доходит до 18,5% и дальше проценты идут в обратную сторону, и появляется такая ошибка
http://i22.fastpic.ru/big/2011/0531/db/81beea9d8a25b06944d1ca41d8355bdb.jpg
подскажите, что сделать
вот скрипты и некоторые файлы
http://narod.ru/disk/14619817001/dirt%203.rar.html
и еще, где в скрипте изменения сделать, чтоб текст друг на друге не был

PavZver
[more=Компонентлист]
Код: procedure InitializeWizard();
begin
WizardForm.ComponentsList.Left := ScaleX(24); //Отступ сверху
WizardForm.ComponentsList.Top := ScaleY(77); //Отступ слева
WizardForm.ComponentsList.Color := clBlack; //Цвет фона
WizardForm.ComponentsList.Font.Color := clWhite; //Цвет шрифта
WizardForm.TypesCombo.Hide;//Скрыть комбобокс выбора типа установки
end;

shidow
Пробуй этот код: [more][Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.

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

[Files]
Source: {sys}\*.dll; DestDir: {app}; Flags: external;

[code]
function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@user32.dll stdcall';

var
MyCheck: TCheckBox;
MyCheckLabel: TLabel;

procedure MyCheckOnClick(Sender: TObject);
begin
if MyCheck.Checked = False then
MyCheck.Checked:= True else
MyCheck.Checked:= False;
end;

procedure StandartForm();
begin
with WizardForm do
begin
ClientWidth := ScaleX(497);
ClientHeight := ScaleY(360);
Center;
Bevel.Show;
Bevel1.Show;
MainPanel.Show;
with InnerNotebook do
begin
Left := ScaleX(40);
Top := ScaleY(72);
Width := ScaleX(417);
end;
with StatusLabel do
Width := ScaleX(417);
with FileNameLabel do
begin
ScaleY(16);
Width := ScaleX(417);
end;
with ProgressGauge do
begin
Top := ScaleY(42);
Width := ScaleX(417);
end;
with CancelButton do
begin
Left := ScaleX(412);
Top := ScaleY(327);
end;
end;
with MyCheck do
Top := ScaleY(208);
with MyCheckLabel do begin
Top := ScaleY(209);
Left := ScaleX(20);
end;
end;

procedure MyNewForm();
begin
with WizardForm do
begin
ClientWidth := ScaleX(395);
ClientHeight := ScaleY(120);
Left := GetSystemMetrics(16) - ClientWidth - ScaleX(8);
Top := GetSystemMetrics(17) - ClientHeight - ScaleY(8);
Bevel.Hide;
Bevel1.Hide;
MainPanel.Hide;
with InnerNotebook do
begin
Left := ScaleX(10);
Top := ScaleY(10);
Width := WizardForm.ClientWidth - ScaleX(20);
end;
with StatusLabel do
Width := InnerNotebook.Width;

with FileNameLabel do
begin
Top := ScaleY(20);
Width := InnerNotebook.Width;
end;
with ProgressGauge do
begin
Top := ScaleY(40);
Width := InnerNotebook.Width;
end;
with CancelButton do
begin
Left := WizardForm.ClientWidth div 2 - CancelButton.Width div 2;
Top := WizardForm.ClientHeight - CancelButton.Height - ScaleY(10);
BringToFront;
end;
end;
with MyCheck do
Top := WizardForm.CancelButton.Top -7;
with MyCheckLabel do begin
Top := WizardForm.CancelButton.Top -6;
Left := ScaleX(20);
end;
end;

procedure GetWizardForm(Sender: TObject);
begin
if MyCheck.Checked then
MyNewForm()
else
StandartForm();
end;

procedure InitializeWizard();
begin
MyCheck := TCheckBox.Create(WizardForm);
with MyCheck do
begin
Top := ScaleY(208);
Width := ScaleX(15);
OnClick := @GetWizardForm;
Parent := WizardForm.InstallingPage;
end;
MyCheckLabel := TLabel.Create(WizardForm);
with MyCheckLabel do begin
AutoSize:=False;
Left := ScaleX(20);
Top := ScaleY(209);
Width := ScaleX(150);
Transparent:=True;
//Font.Name:= 'Tahoma'
//Font.Size:= 8;
Font.Color:=clRed;
Caption := 'Компактный размер';
Parent:= WizardForm.InstallingPage;
OnClick:= @MyCheckOnClick;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
MyCheck.Checked := False;
end;
[/more]