Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Переполнение стека https://www.cyberforum.ru/ delphi-beginners/ thread161989.html
Вот пробую писать программку по поиску в реестре битых ссылок на файлы но столкнулся с такой проблемой-переполнение стека.Как бы это побороть? procedure TRegistrySeach.Scan(Key: String); var ...
Объединение проектов. Delphi
Добрый день!Вопрос.Имеется n готовых приложений (у меня n=3).Необходимо создать большое приложение,включающее в себя все n приложений.Есть ли возможность сделать это,не создавая новый проект, не...
Delphi Изменение прозрачности чужого окна https://www.cyberforum.ru/ delphi-beginners/ thread161907.html
подскажите плиз как сделать чужое окно полу прозрачным, вообще трекбаром менять прозрачность другого окна
Delphi dll, работа с окном программы https://www.cyberforum.ru/ delphi-beginners/ thread161879.html
В дэлфи я пришёл 2 дня назад из-за необходимости создать dll. Создал dll Wizard, но так и не понял как обратиться к основному окну программы, в дереве объектов и инспекторе ничего же нет. Из другого...
Delphi подскажите исходник word в exe
Всем привет если создал тему не в том разделе приношу свои извенения Даже незаю с чего начать нужн исходник програмки суть в чем чтобы wordдовский документ (с картинками в wordе)добавляешь в...
Delphi Проверить нажатие наскольких клавиш! https://www.cyberforum.ru/ delphi-beginners/ thread161855.html
Делаю так в таймере пишу if <действие1> and (not button1click(self)) and (not button2click(self)) and (not button3click (self) and (not listbox1dblclick(self)) then ...но выдает ошибку что я не так...
Delphi Неактивная форма https://www.cyberforum.ru/ delphi-beginners/ thread161807.html
Уважаемые программисты! Столкнулся с такой проблемой: После сворачивания программы, она перестаёт быть активной, то есть кнопки не нажимаются, в Edit нельзя ничего ввести, ComboBox не открывается, с...
Удаление столбцов из эксель файла Delphi
Нужен хелп. :)Никак не получается удалить столбцы из эксель файла. Использую для удаления xl.columns.Select; xl.Selection.Delete; Но проиходит только выделение столбца в файле.(я его потом ...
Delphi Программа шутка 2 Помогите написать ) смысл такой: прога запускается и по экрану летит шарик (к примеру улыбающийся смайлик) когда он долетает до конца экрана рекошетит и их становится двое и при каждом сталкновении... https://www.cyberforum.ru/ delphi-beginners/ thread161752.html Delphi Динамический список статических очередей Помогите пожайлуста с задачкой. Само задание: Цель работы: разработка набора взаимосвязанных классов для реализации структуры данных «Динамический список статических очередей» как... https://www.cyberforum.ru/ delphi-beginners/ thread161712.html
Индикатор прогресса Delphi
Подскажите пожалуйста, как сделать в delphi так, что по мере выполнения определённой процедуры, заполнялся индикатор прогресса? Например заполнялся ProgressBar или Gauge
Delphi Добавление файлов в подменю popup Доброго времени суток!Хочу добавить файлы находящиеся в подпапке в папке с программой в подменю Popup'a чтобы при старте программы сканировалась только эта подпапка и файлы добавлялись в... https://www.cyberforum.ru/ delphi-beginners/ thread161636.html
{c0Der}
136 / 121 / 18
Регистрация: 20.02.2009
Сообщений: 434
Записей в блоге: 4
28.08.2010, 01:17 0

Размещение формы на рабочем столе - Delphi - Ответ 928824

28.08.2010, 01:17. Показов 1657. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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, но мне это делать лень...

Вернуться к обсуждению:
Размещение формы на рабочем столе Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.08.2010, 01:17
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.08.2010, 01:17

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru