Панель задач - Win Api

M@rsel · 02.07.2007, 09:31

Как из панели задачь убрать кнопки чужих приложений?

Трофимов Александр · 02.07.2007, 14:05

Попробуй как с часами, хотя я в этом коде не разбирался:
procedure TForm1.Button1Click(Sender: TObject);
var
hn: HWnd;
begin
hn := FindWindowEx(FindWindowEx(FindWindo w('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil); //die Uhr
if hn <> 0 then
ShowWindow(hn, SW_HIDE); //Bye,bye,Baby
end;

JTG · 02.07.2007, 17:24

Так вроде.
ShowWindow(FindWindowEx(FindWindow( 'Shell_TrayWnd',NULL),HWND(0),'Butt on','ЗАГОЛОВОК'),SW_HIDE);
Ещё гляди у флёнова, там таких шуток выше крыши

M@rsel · 04.07.2007, 10:59

Большое Спасибо Всем.
З.Ы. блоге программистов оказывается тоже есть про панель задач. Извиняюсь за беспокойство и лишний вопрос.

02.07.2007, 09:31	#1
M@rsel Пользователь Регистрация: 19.12.2006 Сообщений: 18	Панель задач Как из панели задачь убрать кнопки чужих приложений?

02.07.2007, 17:24	#3
JTG я получил эту роль Старожил Регистрация: 25.05.2007 Сообщений: 3,694	Так вроде. ShowWindow(FindWindowEx(FindWindow( 'Shell_TrayWnd',NULL),HWND(0),'Butt on','ЗАГОЛОВОК'),SW_HIDE); Ещё гляди у флёнова, там таких шуток выше крыши пыщь

04.07.2007, 10:59	#4
M@rsel Пользователь Регистрация: 19.12.2006 Сообщений: 18	Большое Спасибо Всем. З.Ы. блоге программистов оказывается тоже есть про панель задач. Извиняюсь за беспокойство и лишний вопрос. Последний раз редактировалось M@rsel; 04.07.2007 в 11:03.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Панель задач	Черничный	Общие вопросы Delphi	2	18.08.2008 02:28
трей и панель задач	DeDoK	Общие вопросы Delphi	4	17.05.2008 20:18
Панель задач	Патрон	Общие вопросы Delphi	2	31.03.2008 22:54
панель задач	LORD-BY	Win Api	2	04.07.2007 01:47

02.07.2007, 14:05	#2
Трофимов Александр Форумчанин Регистрация: 03.11.2006 Сообщений: 321	Попробуй как с часами, хотя я в этом коде не разбирался: procedure TForm1.Button1Click(Sender: TObject); var hn: HWnd; begin hn := FindWindowEx(FindWindowEx(FindWindo w('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil); //die Uhr if hn <> 0 then ShowWindow(hn, SW_HIDE); //Bye,bye,Baby end;