[studentvnau@vk]

Помогите если можете, искать уже обыскался страничку с ответом на вопрос о исправлении глюка с скролбарами, у меня была закладка, но виндовс скачал автообнову и полетел после этого... Теперь тоже найти немогу, если не трудно, скиньте ссылку на страницу, поиском искал, и так смотрел, никак не найду, выручите по человечески пожалуйста, не себе же делаем, людям А то сидят пока у меня без F.A.Q люди, а с этим глюком впиливать неохота. Заранее благодарен за помощь.

[saurn]

о исправлении глюка с скролбарами »

#2259

[studentvnau@vk]

Цитата studentvnau@vk: о исправлении глюка с скролбарами » #2259 »

Спасибо за совет. И ещё...
Сразу видно лицо человека (уж простите, лучше быть "крысой", чем г*вном...), подсказали всем, как людям, а оно... Короче, смотрите сами, и думайте... Кто захочет, тот поймёт...
И потом он умного из себя строит, выдавая чужие советы за свои умственные выводы... Эх, как же убоги такие люди...

[studentvnau@vk]

Цитата studentvnau@vk: о исправлении глюка с скролбарами » #2259 »

Кстати, не помогло.

[kotyarko@fb]

studentvnau@vk, согласен, некрасиво, как-то. Подправил.

[studentvnau@vk]

согласен, некрасиво, как-то. Подправил. »

Вот это уже поступок взрослого человека, нужно уметь признавать свои ошибки.

[Сантей]

El Sanchez, как правильно использовать создание ярлыка на панели задач Windows 7?

Код

Код:

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 to TaskBar, True - pin from 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;
    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;
    end else res := 5387;
    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;

Код я вставил, а вот как вызвать функцию не знаю

[saurn]

как правильно использовать создание ярлыка на панели задач Windows 7? »

Скрытый текст

Код:

// закрепить ярлык
procedure CurStepChanged( CurStep: TSetupStep );
begin
    case CurStep of
        ssPostInstall: PinToTaskbar( имя исполняемого файла, включая полный путь, True );
    end;
end;

// удалить ярлык
procedure CurUninstallStepChanged( CurUninstallStep: TUninstallStep );
begin
    case CurUninstallStep of
        usUninstall: PinToTaskbar( имя исполняемого файла, включая полный путь, False );
    end;
end;

[Dodakaedr]

как правильно использовать создание ярлыка на панели задач Windows 7? »

Закрепление ярлыка на панели задач и в меню Пуск

Скрытый текст

Код:

Procedure CurPageChanged(CurPageID: Integer);
Begin
  Case CurPageID of
     wpFinished:
        begin
      PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
      PinToStartMenu(ExpandConstant('{app}\MyProg.exe'), True);
    end;
  end;
end;

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

[studentvnau@vk]

Вопрос, как убрать фон у чекбоксов? при этом сами чекбоксы рисуются на WizardForm, инсталлятор на основе страниц, с png картинками вместо фона.