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

[insombia]

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

[valyok666]

insombia, попробуй библиотеку IsPicture_0.01b

[insombia]

valyok666 где её взять?

[valyok666]

лови (http://rghost.ru/private/20901171/f24aeaa115df9016763a7c2702b4f666)

[T3X]

Скрипт от Лександер работает, но вот тыкать по кнопках немного сложно) надо наодить ровно на текст.

[insombia]

valyok666блин чето у меня не получается соединить этот скрипт с моим поможешь?

[Vitalli]

Здравствуйте!

Windows 7

Столкнулся с проблемой установки ярлыка в меню пуск. На предыдущих версиях Windows это была директория {userappdata}\Microsoft\Internet Explorer\Quick Launch. В Windows 7 все по другому, теперь это ярлык в директории "{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\", добавить сам ярлык проблем нет, еще нужно внести информацию в реестр HKCU; SubKey: Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband; ValueType: binary; ValueName: Favorites; ValueData:. А тут уже черт ногу сломит. В данном ключе имеется инфа о всех ярлыках закрепленных в панели задач, получается нужно вигрузить информацию из данного ключа, добавить свою инфу о ярлыке и все скопом внести на место. И тут я столкнулся с проблемой, как это сделать? Может есть способ проще, прошу помогите.

[valyok666]

insombia, ok токо сегодня не смогу завтра сделаю=)просто сейчас в гостях
а библиотека то что ты искал?

[insombia]

valyok666 я про неё первый раз вообще слышу :happy:

[Alloc]

Привет всем! Ответьте пожалуйста на такой вот, простой вопрос: как сделать так, что на странице установки в FilenameLabel отображалось только название файлов без полного пути?

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

[insombia]

Alloc наверно никак проще через исдоне сделать чтобы вообще не писалось название файлов а просто распаковка шла

[El Sanchez]

И тут я столкнулся с проблемой, как это сделать? »
Vitalli,

[Code]
const
LOAD_LIBRARY_AS_DATAFILE = $2;

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryExA@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Byte; nBufferMax: Integer): Integer; external 'LoadStringA@user32.dll stdcall';

//
function PinToTaskbarWin7(Filename: String): Boolean;
var
hInst: THandle;
buf: array [0..255] of byte;
i: byte;
strVerb, s: String;
objShell, colverbs: Variant;
begin
if not FileExists(Filename) then Exit;
if (GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF = 1) then
begin
hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
for i := 0 to LoadString(hInst, 5386, buf[0], 255)-1 do strVerb := strVerb + Chr(Buf[i]);
FreeDLL(hInst);
try
objShell := CreateOleObject('Shell.Application');
except
ShowExceptionMessage;
Exit;
end;
colVerbs := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename)).Verbs;
for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then
begin
colVerbs.Item[i].DoIt;
Result := True;
end;
end;
end;

procedure InitializeWizard();
begin
//Присобачим Блокнот на панель задач
if PinToTaskbarWin7('c:\windows\notepad.exe') then
MsgBox('ok', mbInformation, MB_OK)
else
MsgBox('no', mbInformation, MB_OK);
end;

[VASYAKRN]

Название: WHEELMAN
Автор: Vasyakrn
Описание: Разние изображение на всех страницах инсталятора + IsDone0.6
Скриншоты:
http://inno.at.ua/TMP/whellman.jpg
Ссылки:
Скачать (http://inno.at.ua/forum/6-34-1#76)


Название: Assassins Creed Revelations+ ISDone 0.6b
Автор: Vasyakrn
Описание: Отсуствует
Скриншоты:
http://inno.at.ua/TMP/ac4.jpg
Ссылки:
Скачать (http://inno.at.ua/forum/6-35-1)

Название: Assassins Creed Revelations+ ISDone 0.6b
Автор: Vasyakrn
Описание: Отсуствует
Скриншоты:
http://inno.at.ua/TMP/ac4.jpg
Ссылки:
Скачать (http://inno.at.ua/forum/6-7-1#77)

Название: Assasins Creed Brotherhood 1.2 ISDone 0.6
Автор: Vasyakrn
Описание: Закос под Stargame
Скриншоты:
http://inno.at.ua/TMP/stargame.jpg
Ссылки:
Скачать (http://inno.at.ua/forum/6-7-1#77)

[GARID]

Название: BlackGOLD
Автор: GARID

Внутри exe архива: bass.dll + Sound, ISSkin.dll + 2 cjstyles, + BlackGOLD.iss, ICO, MusicButton.bmp

Скриншот:
http://www.gaval.net/uploads/posts/2011-09/1316241810_blackgold.png

Скачать (http://www.mediafire.com/?99354wo4erkfr9o)

VASYAKRN
Очень полезная сайт, я иногда захожу :) удачи

[insombia]

VASYAKRN GARID не флудите и не кидайде сюда чужие скрипты!!!

GARID ты хоть бы подумал про людей у которых плоховатое зрение зачем инсталятор такой яркий?Что сложно обычний черный у кого то скопипастить?

[R.i.m.s.k.y.]

Столкнулся с проблемой установки ярлыка в меню пуск. На предыдущих версиях Windows это была директория {userappdata}\Microsoft\Internet Explorer\Quick Launch. В Windows 7 все по другому, теперь это ярлык в директории "{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\", добавить сам ярлык проблем нет, еще нужно внести информацию в реестр HKCU; SubKey: Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband; ValueType: binary; ValueName: Favorites; ValueData:. А тут уже черт ногу сломит. В данном ключе имеется инфа о всех ярлыках закрепленных в панели задач, получается нужно вигрузить информацию из данного ключа, добавить свою инфу о ярлыке и все скопом внести на место. И тут я столкнулся с проблемой, как это сделать? Может есть способ проще, прошу помогите. »
глянь в шапкеСтандартные папкам Windows - пример скрипта, позволяющий получить путь к стандартным папкам Windows

[Vitalli]

El Sanchez

Большое спасибо! Работает.

[VASYAKRN]

VASYAKRN GARID не флудите и не кидайде сюда чужие скрипты!!! »


Все ети 4 скрипта 100 процентов мои

[Dark_Delphin]

Всем привет)

У кого есть пример скрипта , что-бы сделать такое дерево выбора директории?

http://img171.imageshack.us/img171/9243/48595166.png

[insombia]

ntrx

var
TDV: TFolderTreeView;
TFV: TStartMenuFolderTreeView;

procedure TDVOnChange(Sender: TObject);
begin
WizardForm.DirEdit.Text:= AddBackslash(TDV.Directory)+'MyApp';
end;

procedure TFVOnChange(Sender: TObject);
begin
WizardForm.GroupEdit.Text:= AddBackslash(TFV.Directory)+'MyApp';
end;

procedure InitializeWizard();
begin
TDV:= TFolderTreeView.Create(WizardForm);
TDV.Top:= WizardForm.DirEdit.Top+28;
TDV.Width:= 417;
TDV.Height:= 100;
TDV.OnChange:= @TDVOnChange;
TDV.Parent:= WizardForm.SelectDirPage;


TFV:= TStartMenuFolderTreeView.Create(WizardForm);
TFV.Top:= WizardForm.GroupEdit.Top+28;
TFV.Width:= 417;
TFV.Height:= 100;
TFV.SetPaths(ExpandConstant('{userprograms}'),ExpandConstant('{commonprograms}'),ExpandConstant('{us erstartup}'),ExpandConstant('{commonstartup}'));
TFV.OnChange:= @TFVOnChange;
TFV.Parent:= WizardForm.SelectProgramGroupPage;
end;