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

[Dinvin4ester]

Ребята,можно ли поменять цвет прогресс бара ?

[habib2302]

roman_kudin@vk, для начала нужно вырезать папку audio и поставить рядом с папкой {app}.

http://i.imgur.com/kucu9Hk.png (http://i.imgur.com/6KgVrpN.jpg)

далее добавьте эту строку в раздел [Files]:
Source: audio\*; DestDir: {app}\files; Flags: ignoreversion recursesubdirs createallsubdirs;

Dinvin4ester, http://forum.oszone.net/post-1693828-1893.html

[Dinvin4ester]

Еще мне надо вырезать с скрипта видео - http://sendfile.su/994651 ,просто в конце установки идет видео ненужное.. Если вам не сложно будет,то хотелось убрать его.
Спасибо.

[roman_kudin@vk]

спасибо, усовершенствовал немного первый код получилось то, что мне надо. Еще раз спасибо)

[habib2302]

Dinvin4ester, как-то так
https://yadi.sk/d/-xatyvr1Ut33i

[Dinvin4ester]

habib2302,
Спасибо,но получается стандартный инсталлятор(

[habib2302]

Dinvin4ester, sorry
https://yadi.sk/d/udm_jLu_UtBhC

[Dinvin4ester]

habib2302,
Спасибо,а с остальными,они одинаковые,просто разные ,там доп.по и т.д.Не могли бы вы и там убрать?

[habib2302]

Dinvin4ester, в смысле? удалить видео в других скриптах выбор озвучки по центру и На 2 ярлыка

[Dinvin4ester]

habib2302,
Ага.

[habib2302]

Dinvin4ester, https://yadi.sk/d/udm_jLu_UtBhC

[habib2302]

Всем привет. Я хочу сократить команды например для тихой установки. . . т.е убрать Components=
до AIDA64.v4.50.3000.exe /VERYSILENT /Components=AIDA64\P\3
после AIDA64.v4.50.3000.exe /VERYSILENT /AIDA64\P\3
и подскажите мне скрипт для закрепления ярлыка в меню "Пуск"

[Dodakaedr]

и подскажите мне скрипт для закрепления ярлыка в меню "Пуск" »
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "C:\Program Files\Inno Setup 5 Ultra\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{userstartmenu}\My Program"; Filename: "{app}\MyProg.exe"

[habib2302]

Dodakaedr, не то
ярлык должен закрепляться в меню пуск где выделено красным цветом

http://i.imgur.com/hWXAe49.png (http://i.imgur.com/lzxUfOI.jpg)

[Dodakaedr]

habib2302, оно так и есть http://savepic.net/5838841m.jpg (http://savepic.net/5838841.htm)

Или куда надо? Зразу как нажимаешь Пуск? Попробуйте это [Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "C:\Program Files\Inno Setup 5 Ultra\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{userprograms}\My Program"; Filename: "{app}\MyProg.exe"

[habib2302]

Зразу как нажимаешь Пуск »
Да. Обрати внимание на разделитель

http://i.imgur.com/de7Akho.png (http://i.imgur.com/XXeW70F.jpg)

[Dodakaedr]

Да »
{userstartmenu} & {commonstartmenu} это и есть корень меню Пуск.

[habib2302]

Dodakaedr, Вот скрин. Указал разделитель между недавно запущенными приложениями и между закрепленными ярлыками

http://i.imgur.com/FCa4H6V.png (http://i.imgur.com/SojttBL.jpg)

вот путь к закрепленным ярлыкам c:\Users\Xabib\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\

[Dodakaedr]

вот путь к закрепленным ярлыкам »
Пример от Mailchik:#define ExePath "{app}\bin\MyProg.exe"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
CreateUninstallRegKey=false

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}\bin;

[Tasks]
Name: PinToTaskBar; Description: {cm:cTaskBarTxt}; MinVersion: 0,6.0;
Name: PinToStartMenu; Description: {cm:cStartMenuTxt}; MinVersion: 0,6.0;

[Languages]
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "en"; MessagesFile: "compiler:Languages\English.isl"

[CustomMessages]
ru.cTaskBarTxt=Закрепить на панели задач
ru.cStartMenuTxt=Закрепить в меню "Пуск"
en.cTaskBarTxt=Pin to Taskbar
en.cStartMenuTxt=Pin to Start Menu

[ Code]
const
LOAD_LIBRARY_AS_DATAFILE = $2;

#define A = (Defined UNICODE) ? "W" : "A"

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

/////////////////////////////////////////////////////////////////////////
function PinToTaskbar(const szFilename: String; TaskBar, IsPin: Boolean): Boolean;
//szFilename: full path to executable file
//TaskBar: False - pin to StartMenu, True - pin to TaskBar
//IsPin: False - unpin from TaskBar/StartMenu, True - pin to TaskBar/StartMenu
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;
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;
if TaskBar then res := 5386 else res := 5381;
end else if TaskBar then res := 5387 else res := 5382;
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;

procedure CurPageChanged(CurPageID: integer);
begin
case CurPageID of
wpFinished: begin
if IsTaskSelected('PinToTaskBar') then
PinToTaskbar(ExpandConstant('{#ExePath}'), True, True);
if IsTaskSelected('PinToStartMenu') then
PinToTaskbar(ExpandConstant('{#ExePath}'), False, True);
end;
end;
end;

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

[habib2302]

спасибо. уже видел на форуме krinkels)))