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

[Dodakaedr]

habib2302, у вас этот код закрепляет ярлык? У меня не хочет... function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to executable file
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar
var
hInst: THandle;
buf: array [0..255] of Char;
i, res: Integer;
strLnk, strVerb: String;
objShell, colVerbs: Variant;
begin
Result := False;
if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }

{ String resources }
if IsPin then
begin
if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
begin
while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
end;
res := 5386; { Pin to Tas&kbar }
end else res := 5387; { Unpin from Tas&kbar }

{ Load string resource }
hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
if hInst <> 0 then
try
for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
try
objShell := CreateOleObject('Shell.Application');
colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
begin
colVerbs.Item[i].DoIt;
Result := True;
Break;
end;
except
Exit;
end;
finally
FreeDLL(hInst);
end;
end;

[habib2302]

Dodakaedr, да. а вы не забыли еще прописать этот код
Procedure CurPageChanged(CurPageID: Integer);
Begin
Case CurPageID of
wpFinished:
begin
if IsTaskSelected('icons\taskbaricon') then
PinToTaskbar(ExpandConstant('{app}\{#MyAppExeName}'), True);
if IsTaskSelected('icons\startmenuicon') then
PinToStartMenu(ExpandConstant('{app}\{#MyAppExeName}'), True);
end;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
instPath: string;
begin
case CurUninstallStep of
usUninstall:
begin
PinToTaskbar(ExpandConstant('{app}\{#MyAppExeName}'), False);
PinToStartMenu(ExpandConstant('{app}\{#MyAppExeName}'), False);
end;
end;
end;

[Dodakaedr]

да. а вы не забыли еще прописать этот код »
Не забыл, но я понял что я забыл исправить...

[saneksanek]

Всем привет,может кто-то подсказать как в добавить в данный код еще одну аудиозапись.Как не старался выходит что они играют вместе да и только ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('volmax.png');
ExtractTemporaryFile('volmin.png');
ExtractTemporaryFile('volpb.png');
ExtractTemporaryFile('volpbt.png');
ExtractTemporaryFile('voldote.png');
ExtractTemporaryFile('1.mp3');

BASS_Init('{tmp}\1.mp3') //Запускаем музыку
//Можно добавить в инсталл несколько песен
//BASS_Init(ExpandConstant('{tmp}\*')) //Поиск по маске

//Создаем регулятор громкости
BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\volpbt.png', '{tmp}\voldote.png', 20, 320, 150, True);
end;
И еще вопроси,есть-ли у кого код для окна инсталлятора поверх всех окон

[Dinvin4ester]

Dodakaedr,
Cпасибо.

[Dinvin4ester]

http://i64.fastpic.ru/big/2014/0704/2f/62c94b03ea80abd9d7190e6b61a97b2f.png
Не видно % и табличка с языком по центру линии,как и это побороть ?

[YURSHAT]

Не видно % и табличка с языком по центру линии,как и это побороть ? »
Изменить координаты "таблички с языком" :)

как в добавить в данный код еще одну аудиозапись.Как не старался выходит что они играют вместе да и только »
Вы используете этот (http://krinkels.org/threads/bass.1907/) модуль? Если да, то извлекайте во временную папку оба трека и замените BASS_Init('{tmp}\1.mp3') на BASS_Init(ExpandConstant('{tmp}\*.mp3'))

И еще вопроси,есть-ли у кого код для окна инсталлятора поверх всех окон »
procedure InitializeWizard();
begin
WizardForm.FormStyle := fsStayOnTop;
end;

YURSHAT, как я понимаю должно быть так? »
Да. Я же привел пример :) В функции, параметр True - закрепляет ярлык, False - удаляет

[saneksanek]

YURSHAT, С музыкой разобрался теперь выходит другая проблема,при добавление "поверх все окон" становится кнопки от батвы прозрачными но кликабельными у басс модуля

[YURSHAT]

при добавление "поверх все окон" становится кнопки от батвы прозрачными но кликабельными у басс модуля »
Вообще в этом предложении сложно понять смысл, но у меня с FormStyle := fsStayOnTop все нормально рисуется
http://i64.fastpic.ru/thumb/2014/0705/d9/30aa45f6f4fe417ec73fc02d2687dfd9.jpeg (http://fastpic.ru/view/64/2014/0705/30aa45f6f4fe417ec73fc02d2687dfd9.png.html)

Если что альтернативный вариант
const
HWND_TOPMOST = -1;

SWP_NOSIZE = $1;
SWP_NOMOVE = $2;
SWP_SHOWWINDOW = $40;

function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y, cx, cy: Integer; uFlags: UINT): BOOL;
external 'SetWindowPos@user32.dll stdcall';

procedure InitializeWizard();
begin
SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;

[Dinvin4ester]

YURSHAT,
извините за тупой вопрос,но как изменить ?

[YURSHAT]

извините за тупой вопрос,но как изменить ? »
Хм, ну например вот так
http://i63.fastpic.ru/thumb/2014/0705/c5/27a7247a8f1cc4d93d013470e4f563c5.jpeg (http://fastpic.ru/view/63/2014/0705/27a7247a8f1cc4d93d013470e4f563c5.png.html)

[Dinvin4ester]

YURSHAT, +10 за найопку)
Так у меня не получается,скажите что поменять пожалуйста.

[Kashtan007]

Всем привет, как сменить рамку в установщике? Заранее спасибо!

[habib2302]

Kashtan007, https://yadi.sk/d/VLf-0U4IVyz59
при помощи SkinBuilder можно извлечь (экспортировать в формате .cjstyles) оформление из тем для Win XP и так же их можно применить.

[Kashtan007]

habib2302, спасибо. Так здесь же не только рамка а полностью дизайн установщика, как оставить только рамку?

P.S. Где взять SkinBuiler? Не могу найти(

[Dodakaedr]

скажите что поменять пожалуйста. »
langBtn:= TButton.Create(WizardForm);
with langBtn do begin
SetBounds(ScaleX(240),ScaleY(360),ScaleX(30),ScaleY(30)); //расположение кнопки
OnClick:= @LangBtnClick;
Parent:= WizardForm;
end;

ScaleX(240) - отступ слева
ScaleY(360) - отступ сверху
ScaleX(30) - ширина кнопки
ScaleY(30) - высота кнопки

P.S. Где взять SkinBuiler? Не могу найти( »
Пробуйте. Взял с Ultra сборки (http://rghost.ru/private/56743778/18730d49141b62f91c77bdeabb564566)

[habib2302]

Kashtan007, данная программа есть в сборке Inno Setup Ultra или в шапке Дополнительное ПО -> ISSkin
http://youtu.be/3AF6s59YaWQ

[Kashtan007]

habib2302, спасибо) Сейчас попробую свою рамку добавить.

[habib2302]

Kashtan007, пожалуйста

[Dinvin4ester]

Dodakaedr,
как всегда - спасибо.