Показать сообщение отдельно
  #1  
Старый 01.02.2017, 21:49
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию Прикрепить программу на панель менеджера задач Windows 7

Код:
uses ComObj;
 ...
  {fonction servant à épingler ou retirer un programme à la barre des tâches}
function PinToTaskbar(const aFileName: TFileName; const UnPin: Boolean = False):  Boolean;
const
  Verbs: array[Boolean] of string = ('taskbarpin', 'taskbarunpin');
var
  FDir, FName: string;
  FShellApp  : Variant;
begin
  Result := False;
  if FileExists(aFileName) then try
    FDir := ExtractFileDir(aFileName);
    FName := ExtractFileName(aFileName);
    FShellApp := CreateOleObject('Shell.Application');
    try
      FShellApp.NameSpace(Variant(FDir)).Parsename(Variant(FName)).invokeverb(Variant(Verbs[UnPin]));
      Result := True;
    except on E: Exception do
      begin
        MessageDlg(Format('Une erreur %s avec le message : %s'#13#10'est survenue', [E.ClassName, E.Message]), mtINFORMATION,
          [mbOk], 0);
      end;
    end;
  finally
    FShellApp := Unassigned;
  end;
end;

Пример для калькулятора (добавить):
Код:
PinToTaskbar('c:\windows\system32\calc.exe')

Удалить:
Код:
PinToTaskbar('c:\windows\system32\calc.exe', True)
Ответить с цитированием