| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кнопка на рабочем столе [D7, Win2k, WinXP]
sesh © (2004-09-02 10:26:00)Кто знает как поместить кнопку на рабочий стол?
Belaev Andrey (2004-09-02 12:26:00) [1]Советую что - то на подобие этого :
Var
Win, Btn, DC : Cardinal;
PosX, PosY : Cardinal;
Const
PX = 100;
PY := 27;
begin
DC := GetDC(0);
Win := WindowFromDC(DC);
PosX := (GetSystemMetrics(SM_CXSCREEN) - PX) div 2;
PosY := (GetSystemMetrics(SM_CYSCREEN) - PY) div 2;
Btn := CreateWindowEx(0, 'Button', 'Caption', WS_VISIBLE or WS_PUSHLIKE, PosX, PosY, PX, PY, Win, 0, hInstance, nil);
///////
end;
Алхимик (2004-09-02 11:57:00) [2]
> [2] sesh (02.09.04 10:39)
> Не, так не подходит :(
Кнопка на рабочем столе оказывается? Оказывается. Значит подходит.
Либо формулируй вопрос правильно.
sesh (2004-09-02 10:39:00) [3]Не, так не подходит :(
Алхимик (2004-09-02 10:32:00) [4]Можно нарисовать и в виде обоев на рабочий стол кинуть. :)
Либо HTML на рабочий стол положить.
| |
