[YURSHAT]

YURSHAT, Подскажи пожайлуста, какой размер у .bmp должен быть чтобы вставить в инсталятор и растянуть на всю станицу ?.. »

497 * 360

Ну я то не знаю, насколько это сложно в написании поэтому и спросил - тут же народ больше осведомлён в инсталляторах, мож поможет. Но если нет, так нет. »

У меня есть такая фича, будет в новой версии моего скрипта (NFS Undercover). Как только доделаю свой скрипт (пару деньков) сразу выложу фичу со временем. Так что немного подождите

Я не говорю, что это не возможно, но действительно, писанины очень много... »

Ну, не сильно то и много

[Tukash]

так такой скрипт в фриарковский встроен вроде?О_о

[Serega]

может подскажете где можно поискать пример »

Скрипт InnoSetup для распаковки архивов FreeArc

[Chelluga]

через пару деньков выложу такой скрипт »

Большое Вам человеческое спасибо

Serega И Вам спасибо.

[Tukash]

Serega
не поможешь мне с моей траблой? 2 часа убил, Инно не принимает стиль из визардформ десинджер, просто игнорирует его... он на 100 странице, заранее спасибо!

[mash]

Эх, Serega, я подумал об этом и читал инструкцию. Вписал скрипт точь в точь как на сайте, вложив Office2007.cjstyles и ISSkin.dll в так сказать {app}. Ну не проходит скин с этой версией. Я не спец конечно по Inno, но вроде бы все что я делаю мне понятно, но не получается хоть тресни, не думаю что со скинами не тестилась версия 5.3.7 unocode. Целый день сижу и так и сяк кручу, не получается, досадно, ужас.
Может еще надо вписывать в какую то секцию, я вписал как на сайте, только в две секции [Files] и [code].
В секции [code] сейчас у меня вот так:
[code]

Код:

// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

// Importing ShowWindow Windows API from User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';
function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Office2007.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Office2007.cjstyles'), 'NormalBlack.ini');
  Result := True;
end;
procedure DeinitializeSetup();
begin
  // Hide Window before unloading skin so user does not get
  // a glimpse of an unskinned window before it is closed.
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

[Serega]

2 часа убил, Инно не принимает стиль из визардформ десинджер, просто игнорирует его »

Так название этой процедуры (RedesignWizardForm;) нужно просто добавить в InitializeWizard, пример:

Код:

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[Tukash]

Serega
Блииин ошибку выдает на RedesignWizardForm ругаеться, наверно не туда вставляю ее, это в самый верх надо???

[YURSHAT]

Блииин ошибку выдает на RedesignWizardForm ругаеться, наверно не туда вставляю ее, это в самый верх надо??? »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

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


[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030104401000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740366010B436C69656E74576964746803EF010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746803F7010E4578706C696369744865696768740388010D506978656C73506572496E636802600A54657874486569676874020D00F10A544E6577427574746F6E0A4E657874427574746F6E044C656674021F0557696474680373010C4578706C696369744C656674021F0D4578706C6963697457696474680373010000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000


[Code_]
procedure RedesignWizardForm;
begin
  with WizardForm.NextButton do
  begin
    Left := ScaleX(31);
    Width := ScaleX(371);
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[Tukash]

YURSHAT
спс!