Доступ к рабочему столу

← →
PycUS (2002-10-12 04:13) [0]

Однажды была прога, которая писала стиххи прямо на раб. столе.
Сейчас хочу сделать что-то подобное... подскажите как получить доступ , за пример особое спасибо!

← →
PVOzerski (2002-10-12 04:47) [1]

WinAPI-функция GetDesktopWindow возвращает хэндл окна рабочего стола.

← →
pirat (2002-10-12 05:13) [2]

А можно его взять =0 и тогда GetDC вернет контекст всего ионитора, то есть самое "поверх"

← →
DeMoN-777 (2002-10-12 05:14) [3]

Может это и изврат, но можно сделать фому прозрачной, скрыть с панели задач, и сделать её положение всегда снизу. А например на лэйбле этой формы выводить всё что тебе надо.

← →
PycUS (2002-10-12 05:25) [4]

DeMoN-777 © дааа это точно изврат можно же найти что-то по легче
А вот pirat"a я совсем не понял

← →
PVOzerski (2002-10-12 05:27) [5]

2DeMoN-777:
А потом как добраться мышью до My Computer или Recycle? :^) Это из разряда приколов:
как сделать desktop ни на что не реагирующим. Или перенаправлять все сообщения, идущие на
Вашу форму, на DeskTop?

← →
DeMoN-777 (2002-10-12 05:33) [6]

>PVOzerski © (12.10.02 05:27)

Не знаю =)
Согласен что это изврат......

← →
PycUS (2002-10-12 05:43) [7]

А может меня еще и winamp поучите запускать?

← →
PVOzerski (2002-10-12 05:58) [8]

2PycUS (12.10.02 05:43):
Посмотрите ShellExecute, CreateProcess... А может, WinAMP как OLE-сервер умеет работать?

← →
PycUS (2002-10-12 06:15) [9]

А можно подвесить комп простым кулькулятором !

← →
PVOzerski (2002-10-12 06:29) [10]

>А может меня еще и winamp поучите запускать?

>А можно подвесить комп простым кулькулятором !
Сорри, но какой вопрос - такой ответ. BTW, вопрос о WinAmp звучал не вполне
бессмысленно, особенно в контексте самого 1-го (кто Вас знает, может, Вы что-то вроде
караоке с субтитрами по десктопу сделать хотите :^) ). Так что не надо обижаться (и за
флейм с DeMoN-777 тоже - в конце концов, отмести неудачное решение тоже небесполезно).

← →
pirat (2002-10-12 11:45) [11]

Я имею ввиду такую фичу что GetDC(0) вернет всю поверхность экрана,как если бы она былы самым верхним неперекрывающимся окном.
Кста, рабочий стол - это что? Это TListView. Следовательно мы можем выковырять его хэндл и рисовать на нем.

← →
PycUS (2002-10-14 10:20) [12]

Хотелось бы маленький примерчик

← →
REA (2002-10-14 10:26) [13]

А есть ActiveDesktop и тогда стол - это HTML. Хм. Плугин наверно можно к эксплореру написать какой-то.

← →
PVOzerski (2002-10-14 10:52) [14]

>Кста, рабочий стол - это что? Это TListView
Сильно сказано! Неужели и правда Explorer написан с использованием VCL? :^) Увы, стандартные классы VCL тут использовать тяжко...

Извольте получить работающий (NT4) пример моего варианта:

procedure TForm1.Button1Click(Sender: TObject);
var
h:tHandle;
L:tStaticText;
begin
h:=GetDesktopWindow;
L:=tStaticText.Create(nil);
L.ParentWindow:=h;
L.Top:=100;
L.Left:=100;
L.Visible:=true;
L.Caption:="Hello Desktop!";
end;

← →
Геннадий (2002-10-14 19:34) [15]

Этот пример создаёт надпись НАД Рабочим столом. И в TaskBare для него появляется иконка. Ему автоматически создаётся окно. А вот как эту надпись поместить ПОД иконки Рабочего стола и без иконки в Панели задач?

← →
Dr_Mike (2002-10-15 02:06) [16]

Рисну повторить уже сказанное - рабочий стол - это List View по своей сути, так что достаточно получить его дескриптор, и рисуйте что хотите.
(посмотрите в хелпе Win SDK темы по List View Controls)

...а что касается упреков pirat"у, то просто человек по привычке Т в начале приписал ;-))

← →
PycUS (2002-10-16 00:02) [17]

>Dr_Mike ©
>(посмотрите в хелпе Win SDK темы по List View Controls)
Покапался но ничего не нашел , можно простейший пример дальше сам докумекаю

← →
Dm9 (2002-10-16 01:27) [18]

>Хотелось бы маленький примерчик

procedure TForm1.Button2Click(Sender: TObject);
var C : TCanvas;
begin
C := TCanvas.Create;
C.Handle := GetDC (0);
C.TextOut (100, 100, "Text");
C.Ellipse (200, 200, 300, 300);
C.Free;
end;

Только оно при перерисовке стирается.

← →
Dm9 (2002-10-16 01:29) [19]

Насчёт html-а на рабочем столе - интересная идея, но никак руки не доходят написать программу...

← →
PycUS (2002-10-16 10:14) [20]

>Dm9 (16.10.02 01:27)
Пример конечно неплохой, но опять таки просто как прозрачное окно
А надо положить его именно под иконки рабочего стола

← →
Dm9 (2002-10-16 15:59) [21]

Тогда, наверное, только менять обои (если интересно, кину примерчик) - другого способа я не вижу

← →
Геннадий (2002-10-16 22:41) [22]

DivX способен выводить показываемый фильм на Рабочий стол. Причём именно под значки. Я не думаю, что он для каждого кадра создаёт графический файл, а затем выставляет его в качестве обоев стола. Он тогда бы ужасно тормозил.

Так вот - сделать так, значит, возможно. НО КАК ?

← →
PycUS (2002-10-17 11:20) [23]

Да... остается только two beer or not two beer
>Геннадий © (16.10.02 22:41)
>DivX способен выводить показываемый фильм на Рабочий стол. Причём >именно под значки.
Да у меня была видюха с TV-in она изображение с видика тоже ложила под значьки...

← →
Dm9 (2002-10-17 18:07) [24]

То ли это бред, то ли я где-то читал, что вместо обоев на desktop можно поместить любую программу...

Доступ к рабочему столу Найти похожие ветки