Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Убрать кнопку окна с панели задач


Olgerd ©   (2001-11-24 17:58:00) 

Вот у меня есть хэндл окошка, пытаюсь убрать его с панели задач, но ничего не получается:

h:=FindWindow("TWINDOWSCMD",nil);
AStyle:=GetWindowLong(h, GWL_EXSTYLE);
SetWindowLong(h,GWL_EXSTYLE,AStyle or WS_EX_TOOLWINDOW );


Olgerd   (2001-12-08 18:56:00) [1]

Большое спасибо, действительно работающий код.
Если кому интересно на Delphi это будет так:
var h: HWND;
begin
h:=FindWindow("Notepad", nil);
if GetWindowLong(h, GWL_HWNDPARENT)<>0 then SetWindowLong(h, GWL_HWNDPARENT, 0);
SetWindowLong(h, GWL_HWNDPARENT, GetDesktopWindow);
end;


Я думаю, тему можно считать закрытой.


VladD2   (2001-12-08 03:16:00) [2]

Да. Прийдется старому (ну, в меру) сишнику вмешаться. :)

Надо делать так (вы уж извенитя я таки на сях пример приведу... думаю разберетесь... мне так проще):

HWND hWnd = FindWindow(_T("Notepad"), NULL);
if(!hWnd)
return;
// Если окно уже имеет парента...
if(GetWindowLong(hWnd, GWL_HWNDPARENT))
// урать его, тем самым показав в таскбаре...
SetWindowLong(hWnd, GWL_HWNDPARENT, NULL);
else
// иначе ставим его парантом к DesktopWindow, тем самым убирая из таскбара.
SetWindowLong(hWnd, GWL_HWNDPARENT, (LONG)GetDesktopWindow());


PS

Очень интересное обсуждение данного вопроса было на www.rsdn.ru.


Olgerd   (2001-12-07 16:49:00) [3]

Да уж, хороши мастера!


Olgerd   (2001-12-02 19:22:00) [4]

Admin, наверное, правильно написал, жалко я посмотреть не успел ;)
Короче, Мастера! Вот задача:
Открываем блокнот, далее пишем код:

var h:HWND;
begin
h:=FindWindow("Notepad",nil); // получаем handle блокнота (у него класс "Notepad" - я проверял)

Внимание, вопрос! Как убрать кнопку блокнота с панели задач?(само окно, естественно должно остаться ;))


Admin   (2001-11-25 20:44:00) [5]

Удалено модератором


Olgerd   (2001-11-25 17:34:00) [6]

Убирать-то убирает, но я беру хэндл другого окна, например, блоконота, через FindWindow и она просто скрывает это окно.

З.Ы.
>NetBreaker666 © (25.11.01 14:28)
>Блин !
>
>ShowWindow(Application.Handle,0); //motherfucker
Как я понял, в качестве комментария автор этого кода написал своё имя.


NetBreaker666   (2001-11-25 14:28:00) [7]

Блин !

ShowWindow(Application.Handle,0); //motherfucker

Вот эта херня уберет только с панели задач.


Olgerd   (2001-11-25 12:57:00) [8]


AStyle:=GetWindowLong(hwndHandle, GWL_EXSTYLE);
SetWindowLong(hwndHandle,GWL_EXSTYLE,AStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Извращался я так над несколькими программами, но может потому что у меня Win2k, само окно становится TOOLWINDOW, убирается только иконка из кнопки в панели задач, а сама кнопка остаётся.


Suntechnic   (2001-11-25 06:25:00) [9]

> Olgerd © (25.11.01 06:01)
Я сказал не поставить, а убратьстиль WS_EX_APPWINDOW! Чувствуешь разницу? А поставить как раз и надо WS_EX_TOOLWINDOW. Т.е. начало у тебя было правильно описано, только убери стиль WS_EX_APPWINDOW.


Olgerd   (2001-11-25 06:01:00) [10]

>NetBreaker666 © (25.11.01 03:35)
ShowWindow(Handle, SW_Hide) - вообще скрывает окно и с панели задач тоже, естественно, но мне надо, чтобы окошко видимым оставалось...

>Suntechnic © (24.11.01 23:08)
AStyle:=GetWindowLong(hwndHandle, GWL_EXSTYLE);
SetWindowLong(hwndHandle,GWL_EXSTYLE,AStyle or WS_EX_APPWINDOW );

Так ничего не происходит.

Жду помощи.


NetBreaker666   (2001-11-25 03:35:00) [11]

Ну уж наверное понял !
Ламо сам ! (ShowWindow(Handle, SW_Hide) - уберает окно из Таск Бара, ни это ли надо ?????????)


Suntechnic   (2001-11-25 03:22:00) [12]

> NetBreaker666 © (25.11.01 01:29)
Ты хоть понял чего спрашивают?


NetBreaker666   (2001-11-25 01:32:00) [13]

FUCK !!!!!!!!
не ShowWindows, а ShowWindow !!!!!!


NetBreaker666   (2001-11-25 01:29:00) [14]

Нахрена так мудиться ?????
ShowWindows(Handle,0)


Suntechnic   (2001-11-24 23:08:00) [15]

Убери стиль WS_EX_APPWINDOW


Наверх

Титульная страница Поиск, карта сайта Написать письмо