[kotkovets]

никто не думал над тем, как удалять этот ярлык при деинсталляции? »

изменить идентификатор 5386 на 5387, далее уже ясно как:

Код:

or i := 0 to LoadString(hInst, 5387, buf[0], 255)-1 do strVerb := strVerb + Chr(Buf[i]);

В русскоязычной оси 5386 - Закрепить на &панели задач
В русскоязычной оси 5387 - Открепить от &панели задач

[Gnom_aka_Lexander]

может антивирь не дает в shell32.dll »

не антивирь

уверен, что на этой? »

уверен, раскладываел ее на составляющие:

Код:

for i := 0 to 
LoadString(hInst, 5386, buf[0], 255)-1 
do 
strVerb := strVerb + Chr(Buf[i]);

на выделенном виснет навсегда

[El Sanchez]

на выделенном виснет навсегда »

Лександер, ок, а без Chr?:

Код:

...
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external  LoadStringA@user32.dll stdcall';
...
buf: array [0..255] of char;
...
for i := 0 to LoadString(hInst, 5386, buf[0], 255)-1 do strVerb := strVerb + Buf[i];
...

[Gnom_aka_Lexander]

El Sanchez, так-же:

читать дальше »

Компилю на юникоде, замена вызова LoadStringA на LoadStringW вообще дает ошибку невозможно загрузить длл
Возможно. косяк системы - Скрипт Кастомного шрифта, у меня тоже не работает - виснет на оповещении системы.
ПРичем, это косяк не инно - пробовал делать длл, и вызывать функцию из нее - результат аналогичный.

[Serega]

El Sanchez, извиняюсь, но немного подправил ваш скрипт Закрепить ярлык на панели задач в Windows 7 (вариант №2).
Сделал в виде примера с кнопками...

Подробнее

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
AppCopyright=Copyright © El Sanchez
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes

[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[Code]
const
  BUF_SIZE = 1024;
  LOAD_LIBRARY_AS_DATAFILE = 2;

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryExA@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: UINT; lpBuffer: PChar; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';


function GetDllResourceStr(const Index: Integer): string;
var
  hLibrary: THandle;
  iSize: Integer;
begin
  Result := '';
  hLibrary := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
  if hLibrary <> 0 then
  try
    SetLength(Result, BUF_SIZE);
    iSize := LoadString(hLibrary, Index, PChar(Result), BUF_SIZE);
    if iSize > 0 then
      SetLength(Result, iSize)
    else
      Result := '';
  finally
    FreeDLL(hLibrary);
  end;
end;

function AddTaskbarWin7(const FileName: string): Boolean;
var
  i: Integer;
  strVerb: string;
  objShell, colVerbs: Variant;
begin
  strVerb := GetDllResourceStr(5386);
  if not FileExists(Filename) or (strVerb = '') then Exit;
  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;
        Break;
      end;
end;

function DelTaskbarWin7(const FileName: string): Boolean;
var
  i: Integer;
  strVerb: string;
  objShell, colVerbs: Variant;
begin
  strVerb := GetDllResourceStr(5387);
  if not FileExists(Filename) or (strVerb = '') then Exit;
  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;
        Break;
      end;
end;

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

procedure DelButtonClick(Sender: TObject);
begin
  // Удялим Блокнот из панели задач
  if DelTaskbarWin7('c:\windows\notepad.exe') then
    MsgBox('ok', mbInformation, MB_OK)
  else
    MsgBox('no', mbInformation, MB_OK);
end;

procedure InitializeWizard();
begin
  if (GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF = 1) then
    begin
      with TButton.Create(WizardForm) do
        begin
          Parent := WizardForm;
          SetBounds(ScaleX(16), ScaleY(327), ScaleX(75), ScaleY(25));
          Caption := 'Добавить';
          OnClick := @AddButtonClick;
        end;

      with TButton.Create(WizardForm) do
        begin
          Parent := WizardForm;
          SetBounds(ScaleX(128), ScaleY(327), ScaleX(75), ScaleY(25));
          Caption := 'Удалить';
          OnClick := @DelButtonClick;
        end;
    end;
end;

[El Sanchez]

Serega, Лександер, спасибо за багрепорт, пофиксил скрипт для ANSI/Unicode:

читать дальше »

Код:

[code]
const
    LOAD_LIBRARY_AS_DATAFILE = $2;

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif
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 PinToTaskbarWin7(Filename: String; IsPin: Boolean): Boolean;
//Filename: 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;
    strVerb: String;
    objShell, colVerbs: Variant;
begin
    if not FileExists(Filename) then Exit;
    if IsPin then Res := 5386 else Res := 5387;
    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);
        if hInst <> 0 then
        try
            for i := 0 to LoadString(hInst, Res, buf[0], 255)-1 do strVerb := strVerb + Buf[i];
            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;
                Break;
            end;
        finally
            FreeDLL(hInst);
        end;
    end;
end;

procedure InitializeWizard();
begin
    PinToTaskbarWin7('c:\windows\notepad.exe', True);
end;

[Serega]

El Sanchez, вы не много не поняли, а именно вы составляете название по одному символу, хотя достаточно вызвать функцию LoadString один раз и затем обрезать лишнее...
Посмотрите функцию GetDllResourceStr в моём сообщении выше.

[XXXler]

Второй вопрос - никто не думал над тем, как удалять этот ярлык при деинсталляции? »

дык вроде если закреплять ярлык созданный через [Icons], деинсталятор сам его удаляет

есть еще один подводный камень - т.к. сам инсталятор 32bit и создаваемый OLE тоже выполняется в 32bit-контексте, закрепить программу из нативной x64 папки по нормальному не удаётся - ярлык закрепляется, но запущенная программа отображается отдельной кнопкой, которую можно/нужно закрепить вручную

[Gnom_aka_Lexander]

Serega, проблема тут, теперь:

читать дальше »

ПРимер El Sanchez, заработал.
Общий пример както так:

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
AppCopyright=Copyright © El Sanchez
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes

[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[*Code]
const
  LOAD_LIBRARY_AS_DATAFILE = $2;

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

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

var
  AddBtn : TButton;
  Pined:Boolean;

function PinToTaskbarWin7(Filename: String; IsPin: Boolean): Boolean;
//Filename: 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;
    strVerb: String;
    objShell, colVerbs: Variant;
begin
    if not FileExists(Filename) then Exit;
    if IsPin then Res := 5386 else Res := 5387;
    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);
        if hInst <> 0 then
        try
            for i := 0 to LoadString(hInst, Res, buf[0], 255)-1 do strVerb := strVerb + Buf[i];
            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;
                Break;
            end;
        finally
            FreeDLL(hInst);
        end;
    end;
end;

procedure AddDelClick(Sender: TObject);
begin
  case Pined of
    False:
    begin;
      // Присобачим Блокнот на панель задач
      PinToTaskbarWin7('c:\windows\notepad.exe', True);
      AddBtn.Caption := 'Удалить';
      Pined:=True;
    end;
    True:
    begin;
      // Уберем Блокнот на панель задач
      PinToTaskbarWin7('c:\windows\notepad.exe', False);
      AddBtn.Caption := 'Добавить';
      Pined:=False;
    end;
   end;
end;

procedure InitializeWizard();
begin
  if (GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF = 1) then
    begin
      AddBtn:= TButton.Create(WizardForm);
      with AddBtn do
        begin
          Parent := WizardForm;
          SetBounds(ScaleX(16), ScaleY(327), ScaleX(75), ScaleY(25));
          Caption := 'Добавить';
          OnClick := @AddDelClick;
        end;
      Pined:=False;
    end;
end;

дык вроде если закреплять ярлык созданный через [Icons], деинсталятор сам его удаляет »

Покажи мне, неумному, как это будет через секцию [Icons] выглядеть?

[El Sanchez]

Serega, проблема тут, теперь: читать дальше » »

Лександер, для юникода сменить тип переменной i на integer.

El Sanchez, вы не много не поняли, а именно вы составляете название по одному символу»

Serega, реализация мне понятна, но я выбрал цикл.

хотя достаточно вызвать функцию LoadString один раз и затем обрезать лишнее... »

for i := 0 to LoadString(hInst, Res, buf[0], 255)-1 do »

В циклах со счетчиком начальные/конечные значения переменной цикла вычисляются один раз, поэтому LoadString не будет работать вхолостую.