Вверх ↑
Ответов: 574
Рейтинг: 1
#1: 2007-08-15 18:24:42 ЛС | профиль | цитата
oldTV, я почему задал такой вопрос. Просто в программе Delphi World, базе исходников Delphi, был код для скрытия рабочего стола, вот я и спросил "как". Делаю я эту программу не для прикола, шутки, распространения проги в нете и прочего... Это опять-таки улучшаю программу для магазина родителей. Ничего кроме программы там висеть не будет.

Dilma писал(а):
example->Windows->WinTools.sha


Спасибо, Дмитрий!

tsdima писал(а):
Скрыть рабочий стол (Desktop) нельзя

oldTV писал(а):
О чем я пытаюсь и сказать...


А это что тогда? Я скрыл. Вот:

Add(MainForm,2367494,14,63)
{
Left=20
Top=105
Width=147
Height=166
Font=[Arial,8,0,0,1]
link(onCreate,7131965:doFind,[(120,104)(120,76)])
}
Add(Button,10463612,133,98)
{
Left=45
Top=45
Font=[Arial,8,0,0,1]
Caption="Hide"
link(onClick,16602065:doWork1,[(184,104)(184,132)])
}
Add(WinTools,8455869,287,126)
{
link(Handle,7131965:Handle,[])
}
Add(Button,9440968,133,147)
{
Left=45
Top=75
Font=[Arial,8,0,0,1]
Caption="Show"
link(onClick,16602065:doWork2,[(184,153)(184,139)])
}
Add(ChanelToIndex,16602065,203,126)
{
link(onIndex,8455869:doVisible,[])
}
Add(FindWindow,7131965,287,70)
{
ClassName="Progman"
Caption="Program Manager"
}
Add(Label,6543902,21,7)
{
Left=50
Top=15
Width=43
Height=18
Font=[Arial,8,0,0,1]
Caption="Desktop"
}
карма: 0

0