[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/...6b61a97b2f.png
Не видно % и табличка с языком по центру линии,как и это побороть ?

[YURSHAT]

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

Изменить координаты "таблички с языком"

как в добавить в данный код еще одну аудиозапись.Как не старался выходит что они играют вместе да и только »

Вы используете этот модуль? Если да, то извлекайте во временную папку оба трека и замените

Код:

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 все нормально рисуется


Если что альтернативный вариант

Код:

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,
извините за тупой вопрос,но как изменить ?