Показать сообщение отдельно
  #2  
Старый 27.09.2017, 16:11
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Shaft
...видимо нужно еще какое то действие...
Да ещё видимо в реестре на ветке HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\Taskband нужно отметить изменения и пути до ярлыка

А самое обидное, это вот
Цитата:
Сообщение от Реймонд Чен
The Resourcefulness of Annoying People
Сейчас Windows не так открыта, как была когда-то. В ранние, простые дни Windows была спроектирована в более доверительной манере. Были документированы внутренние форматы данных, а программы могли влиять на систему самым широким образом. Предполагалось, что разработчики программ будут использовать эту силу со всей ответственностью и для блага пользователя. В конце концов, если программа злоупотребляла доверием пользователя, то, как тогда считалось, компания бы быстро потеряла всех своих клиентов. У разработчиков, следовательно, был стимул относиться к пользоватю с уважением. Тогда было тогда.
...

...Есть и другие примеры вещей, для которых Microsoft не стала делать программное управление из опасений, что эта сила будет использована во зло. Например, нет никакого интерфейса для работы с иконками Панели задач от другой программы, или для добавления или удаления панели (band) в Панели задач. Представьте себе хаос, который мог бы возникнуть, если мы бы позволили совершенно любой программе манипулировать этими высокочувствительными компонентами пользовательского интерфейса...


З.Ы. Нашёл вариант закрепления через скрипт.vbs (в архиве), 2.lnk - это ярлык на файл.exe, вызов происходит из-под ShellExecute
Код:
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
h: hwnd;
begin
 ShellExecute(h, 'open', 'c:\4.vbs', 'c:\2.lnk', nil, SW_HIDE);
end;
повторный запуск ярлык открепляет, проверил, работает
Вложения
Тип файла: zip 4.zip (436 байт, 11 просмотров)
Ответить с цитированием