[Admin]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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;

Пример для калькулятора (добавить):

Код:

1	PinToTaskbar('c:\windows\system32\calc.exe')

Удалить:

Код:

1	PinToTaskbar('c:\windows\system32\calc.exe', True)

[M.A.D.M.A.N.]

Для Windows 8/10 актуально?

[Admin]

Сообщение от M.A.D.M.A.N.

Для Windows 8/10 актуально?

Полагаю что да, но не тестил.