[vadjliss]

как сделать что бы программа закрепилась на панели задач

[kotyarko@fb]

vadjliss, http://forum.oszone.net/post-1988566-926.html

[vadjliss]

что то не получается

[saurn]

что то не получается »

Что именно не получается?

Пример

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.5"


[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup


[Files]
Source: "{#compilerpath}Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion


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


{ Pin }
procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssPostInstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), True );
    end;
end;


{ UnPin }
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    case CurUninstallStep of
        usUninstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), False );
    end;
end;

[vadjliss]

saurn
благодарю теперь всё ок

[Bartron]

Удалил, всё равно помощи никакой...

[dimantv_wot@vk]

Как в компонентах сделать что бы при выборе компонента ставилась галочка или кружок не нажимания на них а нажимая на текст

[Ferling]

Многоуважаемые знатоки! Прошу Вас помочь мне внести исправления в мой скрипт и довести его до ума (это мой первый скрипт (делал программой inno setup compiler 5.5.8(а)), поэтому прошу строго не судить), он рабочий только на ХР, проверял на 8 и 10 не работает инсталлятор, он запускается, загружается Splash, затем должна включиться музыка, но она не включается, выводится это сообщение http://prnt.sc/afvdjr, на скриншоте в окне установки в самом низу после первой кнопки должны появится: вторая кнопка (отключения звука) и за ней третьей - регулятор громкости, но их нет, к сожалению моего микроума не хватает, чтобы довести до ума инсталлятор, поэтому еще раз прошу Вашей помощи, заранее благодарен, скрипт прилагаю (к сожалению он не вмещается здесь на форуме):

[dimantv_wot@vk]

Как Указать в скрипте путь для установке шрифтов в папку Windows

[Dodakaedr]

Как Указать в скрипте путь для установке шрифтов в папку Windows »

константа {fonts}

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

используйте расширенную версию inno setup

Ferling, попробуйте тоже расширенную версию inno setup