01.02.2017, 21:49
|
|
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия 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)
|