[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
Скриншоты:

Ссылки:
Скачать


Название: Assassins Creed Revelations+ ISDone 0.6b
Автор: Vasyakrn
Описание: Отсуствует
Скриншоты:

Ссылки:
Скачать

Название: Assassins Creed Revelations+ ISDone 0.6b
Автор: Vasyakrn
Описание: Отсуствует
Скриншоты:

Ссылки:
Скачать

Название: Assasins Creed Brotherhood 1.2 ISDone 0.6
Автор: Vasyakrn
Описание: Закос под Stargame
Скриншоты:

Ссылки:
Скачать

[GARID]

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

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

Скриншот:


Скачать

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]

Всем привет)

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

[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;

[Dark_Delphin]

Ага. Спасибо.