[SatHan]

у значков в панели задач (куда функция El Sanchez-а их закрепляет нет имени) »

это наверно то когда наводишь и показывается имя ярлыка? Так это наверно комментарий (подсказка) а не название ярлыка. а у панели не замечал чтоб ещё название было.

[Aleksoid1978]

Johny777
Да это обычный ярлык на самом деле, только "закрепленный" на панели задач.
вот все мои "значки" с панели

видим имя ярлыка для Оперы(она сама его так сделала при установке)
и вот как показывается на панели задач.

[Johny777]

SatHan,
только что прикрепил
PinToTaskbarWin7('C:\hl2.exe') - просто положил экзешник в C
всплыла подсказка "Half-Life 2"


хех
даже винда знает об этой игре!

и вот как показывается на панели задач. »

аналогично

[SatHan]

даже винда знает об этой игре! »

у игр и приложений обычно должно так быть, ещё кроме "производитель", "дата" - в свойства эксешника посмотри, есть?

[Johny777]

"производитель", "дата" - в свойства эксешника посмотри, есть? »

есть цифровая подпись продлённая до конца этого года
дата есть
вот
изучай

[MogilShik2007]

Johny777, спасибо, а не подскажешь как прикрутить огонь на последнюю страницу?

[Aleksoid1978]

Нашел косяк в скрипте Закрепления на панели задач - если в х64 битной системе и файл расположен по пути "C:\Program Files\..." - то значок программы закреплаяется, но если запустить программу - создается еще один значок, уже запущенной задачи на панели задач, если закрепить из пути "C:\Program Files (x86)\..." - то все ок. Разрядность программы при этом не имеет значения.

P.S. - как верно закрепить нашел, вот кусок

Код:

			  if IsWin64 and (Pos (ExpandConstant ('{pf64}\'), Filename) = 1) then begin
  				sVBSFile := GenerateUniqueName (GetTempDir, 'mpc_be.vbs');

  				SaveStringToFile (sVBSFile, \
  					'Set oShell=CreateObject("Shell.Application")'  + #13 + \
  					'Set oVerbs=oShell.NameSpace("' + ExtractFileDir (Filename) + '").ParseName("' + ExtractFileName (Filename) + '").Verbs' + #13 + \
  					'For Each oVerb In oVerbs'											+ #13 + \
  					'  If (oVerb="' + strVerb + '") Then'						+ #13 + \
  					'    oVerb.DoIt'														    + #13 + \
  					'    Exit For'															    + #13 + \
  					'  End If'															        + #13 + \
  					'Next'																, False);
  
  				ExecAsOriginalUser (ExpandConstant ('{win}\Sysnative\cscript.exe'), '"' + sVBSFile + '" /B', '', SW_HIDE, ewWaitUntilTerminated, i);
  				DeleteFile (sVBSFile);
  			end

Закрепляется нормально, но вот открепиться нормально не может.

P.S. - все разобрался.

[Ivan_009]

Как наложить кнопки свернуть и закрыть через ботву...Подскажите кто знает...

[Johny777]

изменил код из шапки "поиск по маске" под свои нужды
кому пригодится забирайте:

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

Код:

[Setup]
AppName=Reg_Path_Demo
AppVerName=Reg_Path_Demo
DefaultDirName={pf}\Reg_Path_Demo


[  code]
function FindFileByMask(Path, Mask: string): Boolean;
var
  FSR: TFindRec;
  FindResult: Boolean;
begin
  Result:= False;
  if Path[Length(Path)] <> '\' then Path:= Path + '\';
  FindResult:= FindFirst(Path + Mask, FSR);
  try
    while FindResult do
    begin
      if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
      begin
        Result:= True;
        Exit;
      end;
      FindResult:= FindNext(FSR);
    end;
  finally
    FindClose(FSR);
  end;
end;


procedure InitializeWizard();
begin
  /// использование
  ///FindFileByMask(...........путь к папке...........,маска(расширение))
  if FindFileByMask(ExpandConstant('{pf}\Inno Setup 5'), '*.dll') = True then MsgBox('ok', mbInformation, MB_OK);
end;

Ivan_009,
извиняй
ботву не знаю

[vint56]

Как наложить кнопки свернуть и закрыть через ботву...Подскажите кто знает...
http://rghost.ru/40324331