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

[nik1967]

Shift85, в большинстве случаев [SOURCE="inno"]function WrapCallback(callback:TCallback; paramcount:integer):longword;
external 'wrapcallback@files:ISDone.dll stdcall delayload';[/SOURCE] можно заменить на
[SOURCE="inno"]function CallbackAddr(ProcNameOrFuncName: String): Integer;[/SOURCE]

 

[sergey3695]

Shift85, про первый вопрос уже было, поищи.
Про второй: можешь и тем и тем пользоваться, можешь чем-то одним.

 

[Shift85]

При использовании скина как сделать,чтобы при выходе инсталл плавно закрывался без дополнительной формы аеро ( на Win7)...

И как сделать DirEdit прозрачным,чтобы его можно было выделять... Transparent:=True не пашет...

with WizardForm.DirEdit do begin
Left := ScaleX(90);
Top := ScaleY(100);
Width := ScaleX(380);
//BorderStyle:= bsNone;
//Height := ScaleY(25);
Font.Name:= 'Verdana';
Font.Size:= 9;
Color := clBlack;
Font.Color:= clWhite;
Font.Style := [];
Parent:=WizardForm;
end;

Заранее спасибо...

 

[urban]

При использовании скина как сделать,чтобы при выходе инсталл плавно закрывался без дополнительной формы аеро ( на Win7)...

Спойлер

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

const 
   AW_BLEND = $00080000;  
   AW_HIDE = $00010000;  
 
function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): Boolean; 
 external 'AnimateWindow@user32 stdcall'; 
 
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); 
begin 
  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_OKCANCEL) = IDOK then 
  begin 
    Confirm := False; 
    AnimateWindow(WizardForm.Handle, 2500, AW_BLEND or AW_HIDE); 
    Cancel := True; 
  end else 
  Cancel := False; 
end;[/spoiler]
оно?

 

[Shift85]

оно

Типа вроде да...

 

[Shift85]

оно

Собственно это для аннимации со скином не дружит...

Нашел другое решение убрать эту форму аеро ( на Win7) при выходе из инсталла...

Если кому интересно то вот:

#ifdef UNICODE
#define S "U"
#else
#define S "A"
#endif

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

[Files]
Source: "Files\ISSkin{#S}.dll"; Flags: "DontCopy";
Source: "Files\Tiger.cjstyles"; Flags: "DontCopy";

function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL;
  external 'ShowWindow@user32.dll stdcall';

//Skin
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
  external'LoadSkin@{tmp}\isskin{#S}.dll stdcall delayload';

procedure UnloadSkin;
  external 'UnloadSkin@{tmp}\isskin{#S}.dll stdcall delayload';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('ISSkin{#S}.dll');
  ExtractTemporaryFile('Tiger.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Tiger.cjstyles'), '');
  Result:= True;
end;

procedure DeinitializeSetup();
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  Sleep(150);
  UnloadSkin();
end;[/QUOTE]

P.S Актуально кто использует скинирование инсталла...

 

[Shift85]

Можно ли сделать слайд шоу в окне инсталла без isSlideShow.dll через какую нибудь другую библиотеку...

P.S isSlideShow.dll с некоторыми скинами не дружит например: Tiger...

 

[urban]

Shift85, можно,но будет не именно в самом окне инсталла,а поверх типо,но оно будет не красиво

 

[Shift85]

можно,но будет не именно в самом окне инсталла,а поверх

z10yded как то сделал ведь...:o или я ошибаюсь...

 

[Edison007]

Можно ли сделать слайд шоу в окне инсталла без isSlideShow.dll через какую нибудь другую библиотеку

Можно, например, с помощью botva.dll

 

[Zee387]

Можно ли сделать слайд шоу в окне инсталла без isSlideShow.dll через какую нибудь другую библиотеку...

P.S isSlideShow.dll с некоторыми скинами не дружит например: Tiger...

There, I created this example for people who want slides without the use of isslideshow but it is not animated.

 

[Shift85]

Zee387, How to adjust the time display...

 

[Zee387]

In this script, line 159

InitSlideshow(ExpandConstant('{src}\Database'),'.jpg',5000,0,0,1060,560);

it is in milliseconds so if you need let's say 15 seconds you need to multiply the required time in seconds by 1000 then it will be 15000

 

[Shift85]

Zee387, Thank you very much. :up: And how to set the number of slides.

 

[Zee387]

you don't, you just place the images you want but they must be numbered in a sequence from 1 to infinity then everything will be take care of.
the only thing you can change is the directory of the images.

 

[PlaymatE]

подскажите как сделать чтобы иконку было видно в "Удаление программ" ?

 

[Shift85]

PlaymatE, Пример также в меню пуск и в папке установки сменить иконку:

http://rghost.ru/53438806

 

[nik1967]

PlaymatE, из русской справки

[Setup]: UninstallDisplayIcon
Описание:
Определяет значок (.exe или .ico файл), который будет отображаться на странице Установка и удаление программ Панели управления. Имя файла должно начинаться с константы, задающей каталог.

Если в файле несколько значков, вы можете добавить окончание ",n", где n – индекс значка.

Если директива не указана или пустая, Windows выберет значок сама и он может вам не понравиться.

Например:
UninstallDisplayIcon={app}\MyProg.exe
UninstallDisplayIcon={app}\MyProg.exe,1

От себя добавлю, что лучше пользоваться файлом .ico желательно 256х256

 

[Shift85]

У кого нибудь имеется пример работы модуля прогресс бара от South.Tver делениями совместно с ISDone...
Поделитесь пожалуйста...

 

[PlaymatE]

Можно как убрать из названия версии в "удаление программ" ?
http://imgur.com/4L2bN39