Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
4 / 4 / 1
Регистрация: 08.02.2010
Сообщений: 34
1

Размещение формы на рабочем столе

27.08.2010, 18:52. Показов 1609. Ответов 1
Метки нет (Все метки)

Подскажите пожалуйста каким образом задать размещение не перемещаемой формы (пользователь не будет ее двигать, переносить или как либо еще манипулировать с ней) на рабочем столе !между обоями рабочего стола и его ярлыками.! то есть форма должна быть поверх обоев но ярлыки должны свободно находится на ней.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.08.2010, 18:52
Ответы с готовыми решениями:

Рисовалка на рабочем столе
Вот написал программку, что бы рисовать в форме, а теперь мне нужно сделать так, что бы то что я...

Рисуем на Рабочем столе
Помогите решить задачу на "Delphi". Есть программа, (код приведён ниже) суть которой заключается в...

Закрепить программу на рабочем столе
Здравствуйте. Не знаю как корректно задать вопрос, но все же. Как закрепить (если можно) программу...

Txt-файлы на рабочем столе
Задача: 1. Взять txt файлы с рабочего стола (любые, какие есть) 2. Спарсить содержимое 3....

1
{c0Der}
136 / 121 / 18
Регистрация: 20.02.2009
Сообщений: 434
Записей в блоге: 4
28.08.2010, 01:17 2
Лучший ответ Сообщение было отмечено Melfis как решение

Решение

Не думаю что этого можно достигнуть просто созданием окна.

Но могу привести пример создания своей кнопки на рабочем столе (или в любом другом окне):
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program Project1;
uses Windows{,XPman};
 
const btnm='Button'; clnm='DeskPanel'; bw=96; bh=22;
var clss:tWndClass; hInst,h,t:hWnd; ms:tMsg;
 
procedure InitCommonControls; external comctl32 name 'InitCommonControls';
 
procedure Halty;
begin
UnregisterClass(clnm,hInst);
halt;
end;
 
procedure BtnClick;
begin
if MessageBox(h,'Are u sure want 2 exit?','',
MB_YESNO or MB_ICONQUESTION)=idyes then Halty;
end;
 
function WindProc(hwnd,msg,wparam,lparam:integer):integer;stdcall;
begin
Result:=DefWindowProc(hwnd,msg,wparam,lparam);
case Msg of
$2:Halty;
$111:if HiWord(wParam)=0 then BtnClick;
end;
end;
 
begin
t:=FindWindow('Progman','Program Manager');
if t=0 then halt;
hInst:=GetModuleHandle(nil);
with clss do begin
Style:=CS_PARENTDC;
lpfnWndProc:=@WindProc;
hInstance:=hInst;
lpszClassName:=clnm;
end;
InitCommonControls;
RegisterClass(clss);
t:=FindWindowEx(t,0,'SHELLDLL_DefView',nil);
t:=FindWindowEx(t,0,'SysListView32','FolderView');
h:=CreateWindow(clnm,'Example by Markus_13',
WS_CHILD or WS_VISIBLE,
32,32,bw,bh,t,0,hInst,nil);
CreateWindow(btnm,'Exit',
WS_CHILD or WS_VISIBLE or BS_PUSHLIKE,
0,0,bw,bh,h,0,hInst,nil);
while(GetMessage(ms,h,0,0))do begin
TranslateMessage(ms);
DispatchMessage(ms);
end;
end.
З.Ы. если уж очень надо - можно поизучать/поэксперементировать со свойствами SysListView32, но мне это делать лень...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.08.2010, 01:17

Размещения окна на рабочем столе
Как сделать так, чтобы при открытии программы она открывалась в определённых координатах на рабочем...

Как создать файл на рабочем столе?
каким образом? Добавлено через 3 минуты как просто создать файл я знаю, а вот как именно на...

Расшарить диски на удаленном рабочем столе
Всем привет. Использую MSTSCLib_TLB для подключения. Код MsRdpClient21.Server :=Edit1.Text;...

Панель для ярлыков на рабочем столе
Всем привет хочу сделать такую панельку для ярлыков . Чтоб по нажатию на кнопку "Игры" выезжала...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.