Рисовалка на рабочем столе

[Downloads]

Где можно найти пример с исходниками для рисовалки на рабочем столе, позволяющая рисовать на рабочем столе. Прямо на окнах, поверх любой запущенной программы

[ych_del]

var C: TCanvas;
begin
   C := TCanvas.Create;
   C.Handle := GetDC(0);

Как рисовать на канвасе, я надеюсь, объяснять не надо?

[KWN, lnc]

я вот делал так. (лови исходник)

[Downloads]

KWN, lnc, огромное спасибо! а как все таки сделать - так чтобы без окна!
вот как через

var C: TCanvas;
begin
   C := TCanvas.Create;
   C.Handle := GetDC(0);

можно исходник?

[ych_del]

Если по простому - то как-то так:

1. В dpr пишем Application.ShowMainForm := False;
2. В основной форме (будем считать, что она зовется Form1), пишем в OnCreate такое:

procedure TFrom1.FormCreate(Sender: TObject);
var C: TCanvas;
begin
   C := TCanvas.Create;
   C.Handle := GetDC(0);
// Рисуем всякое
   FreeAndNil(C);
end;

Как-то примерно так.

[Stilet]

а как все таки сделать - так чтобы без окна!

А собственно с какой целью интересуешся?
Проблема в том что первая же перерисовка рабстола сотрет твои потуги.
Может лучше настроить рабстол как ActiveDesctop, и разместить на нем скажем flash анимашку?

Как-то примерно так.

А я бы даже так предложил

  with TCanvas.Create do begin
    Handle:=GetDC(0);
    MoveTo(0,0); LineTo(100,100);
    Free;
 end;

Без лишних переменок.

[Downloads]

уважаемые программисты, можно вас попросить исходник! я просто не совсем понимаю как реализовать все это! сделайте скидочку

[FaTaL]

Проблема в том что первая же перерисовка рабстола сотрет твои потуги.

Есть же такие программы, например снег падает на кона и ложиться и при перерисовки не исчезает, пока саму программу не закроешь. Как интересно они реализованы?

[Аватар]

Скорее всего ловит перерисовку и каждый раз по-новой свое дело делает

[Stilet]

Скорее всего ловит перерисовку

Я тоже склонен думать что такие программы хуком на сообщение перерисовки рабстола садятся...
Впрочим... Active Decktop пока еще не отменяли. Когда-то я видел анимашку на флешке на рабстоле.