Скрипты Inno Setup. Помощь и советы [часть 3]

[valyok666]

VASYAKRN, по подробнее что за маска нужна

[Rikill]

valyok666, не отвечай.
VASYAKRN, всё есть в справке.

[Sk.Faker]

Так поможет кто?
[InstallDelete]
Name: {app}; Type: filesandordirs
Не работает, он не удаляет ни одного файла

[VASYAKRN]

рікіл
в какой справке

[Wadia]

Подскажите пожалуйста, как переконвертировать текст в hex?
Пример: C:\Program Files\My Program -> 433A5C50726F6772616D2046696C65735C4D792050726F6772616D
C:\Program Files - путь может быть другой, поэтому и требуется конвертация.

[insombia]

del

[Dark_Delphin]

Всем привет!

Подскажите как изменить размер прогрессбара?

[insombia]

ntrx где именно в исдоне?

[Dark_Delphin]

insombia, да.

[insombia]

ntrx procedure CreateControls;
var PBTop:integer;
begin
PBTop:=ScaleY(50);
ISDoneProgressBar1 := TNewProgressBar.Create(WizardForm);
with ISDoneProgressBar1 do begin
Parent := WizardForm.InstallingPage;
Height := WizardForm.ProgressGauge.Height;
Left := ScaleX(0);
Top := PBTop;
Width := ScaleX(365);
Max := 1000; где то здесь по моему

[Dark_Delphin]

Как сделать вместо чёрного фона в инсталляторе фоновой рисунок на все страницах?

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

[Richter]

Всем доброго времени суток! Кто мог бы поделиться скриптами или сказать где можно найти скрипты (или закосы под них) R.G. Catalyst, Spieler ?

[insombia]

ntrx http://rghost.ru/private/20901171/f24aeaa115df9016763a7c2702b4f666

Richter Spieler (http://rghost.ru/2326841) catalyst (http://rghost.ru/23912451)

[Dark_Delphin]

Подскажите как в этом скрипте сделать что-бы анимация была Transparent?



[Setup]
AppName=gifctrl
AppVerName=gifctrl Ver 2.1
DefaultDirName={pf}\gifctrl
DefaultGroupName=gifctrl
OutputDir=.

[Files]
Source: gifctrl.dll; Flags: dontcopy solidbreak
Source: smile0.gif; Flags: dontcopy solidbreak

[code]
const
HALIGN_CENTER = 0;
HALIGN_LEFT = 1;
HALIGN_RIGHT = 2;

VALIGN_CENTER = 0;
VALIGN_TOP = 1;
VALIGN_BOTTOM = 2;

FIT_NONE = 0;
FIT_WIDTH = 1;
FIT_HEIGHT = 2;
FIT_BOTH = 3;

CLR_INVALID = $FFFFFFFF;


function NewGifbWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newgifwnd@files:gifctrl.dll stdcall';
function FreeGifWnd(hWndGif: HWND): Boolean; external 'freegifwnd@files:gifctrl.dll stdcall';
function FreeAllGifWnd(): Boolean; external 'freeallgifwnd@files:gifctrl.dll stdcall';
function GifWndSetParent(hWndGif: HWND; hWndParent: HWND): Boolean; external 'gifwndsetparent@files:gifctrl.dll stdcall';
function GifWndSetBounds(hWndGif: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'gifwndsetbounds@files:gifctrl.dll stdcall';
function GifWndLoadFromFile(hWndGif: HWND; HAlign, VAlign: Integer; BGColor: DWord; Fit: integer; GifFileName: PChar): Boolean; external 'gifwndloadfromfile@files:gifctrl.dll stdcall';

var
GIFHWND0: HWND;

function InitializeSetup(): Boolean;
begin
GIFHWND0 := 0;

Result := True;
end;

procedure DeinitializeSetup();
begin
FreeAllGifWnd();
end;


procedure InitializeWizard();
var
GifFileName: String;
Lbl: TNewStaticText;
begin
ExtractTemporaryFile('smile0.gif');


GIFHWND0 := NewGifbWnd(WizardForm.installingPage.Handle, ScaleX(5), ScaleY(120), 21, 21);
GifWndLoadFromFile(GIFHWND0, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\Smile0.gif'));


end;

[Vista-w]

ntrx, есть куча примеров скрипта, для наложения картинки на инсталл.
Поиском воспользуйся.
http://www.forum.oszone.ru/post-1242285-250.html

[insombia]

Vista-w в том примере что ты дал картинка не на всех страницах

[Dark_Delphin]

Я же дал скрипт и сказал что мне нужно.
Мне только на InstallingPage , только у меня не получается сделать транспарент.(

[Vista-w]

ntrx,
Я не пойму, как ты картинки хочешь сделать Transarent ?

[Dark_Delphin]

Vista-w, вот скрипт, и мне нужно что-бы эта анимация была как фон.

[Setup]
AppName=gifctrl
AppVerName=gifctrl Ver 2.1
DefaultDirName={pf}\gifctrl
DefaultGroupName=gifctrl
OutputDir=.

[Files]
Source: gifctrl.dll; Flags: dontcopy solidbreak
Source: smile0.gif; Flags: dontcopy solidbreak

[code]
const
HALIGN_CENTER = 0;
HALIGN_LEFT = 1;
HALIGN_RIGHT = 2;

VALIGN_CENTER = 0;
VALIGN_TOP = 1;
VALIGN_BOTTOM = 2;

FIT_NONE = 0;
FIT_WIDTH = 1;
FIT_HEIGHT = 2;
FIT_BOTH = 3;

CLR_INVALID = $FFFFFFFF;


function NewGifbWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newgifwnd@files:gifctrl.dll stdcall';
function FreeGifWnd(hWndGif: HWND): Boolean; external 'freegifwnd@files:gifctrl.dll stdcall';
function FreeAllGifWnd(): Boolean; external 'freeallgifwnd@files:gifctrl.dll stdcall';
function GifWndSetParent(hWndGif: HWND; hWndParent: HWND): Boolean; external 'gifwndsetparent@files:gifctrl.dll stdcall';
function GifWndSetBounds(hWndGif: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'gifwndsetbounds@files:gifctrl.dll stdcall';
function GifWndLoadFromFile(hWndGif: HWND; HAlign, VAlign: Integer; BGColor: DWord; Fit: integer; GifFileName: PChar): Boolean; external 'gifwndloadfromfile@files:gifctrl.dll stdcall';

var
GIFHWND0: HWND;

function InitializeSetup(): Boolean;
begin
GIFHWND0 := 0;

Result := True;
end;

procedure DeinitializeSetup();
begin
FreeAllGifWnd();
end;


procedure InitializeWizard();
var
GifFileName: String;
Lbl: TNewStaticText;
begin
ExtractTemporaryFile('smile0.gif');


GIFHWND0 := NewGifbWnd(WizardForm.installingPage.Handle, ScaleX(5), ScaleY(120), 21, 21);
GifWndLoadFromFile(GIFHWND0, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\Smile0.gif'));


end;

[insombia]

ntrx так нельзя чтобы анимация была фоном нужно картинку в формате bmp вставлять