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

[NewLamer&Programer]

есть код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 ACanvas:TCanvas;
 ScreenDC:HDC;
begin
with ACanvas do
  begin
  ScreenDC := GetDC(0);
  ACanvas:=TCanvas.Create();
  ACanvas.Handle:=ScreenDC;

  TextOut(500,500,DateToStr(Now));

  ReleaseDC(0,ScreenDC);
  ACanvas.Free;
  end;
end;

так я могу рисовать на рабочем столе (нашел в интернете), проблема в том что рисование происходит не только на рабочем столе, но и поверх всех окон, возможно ли как то рисовать ТОЛЬКО на рабочем столе? да и еще, TextOut делает вокруг текста белую рамку, возможно ли выводить текст без нее? (ну понятно белая по цвету Brush, но как сделать прозрачный цвет или типа того?)

[Stilet]

ТОЛЬКО на рабочем столе?

ScreenDC := GetDC(GetDesktopWindow);

Или

  deskWND:= FindWindow('ProgMan', nil);
  deskWND:= GetWindow(deskWND, GW_CHILD);
  deskWND:= GetWindow(deskWND, GW_CHILD);
ScreenDC := GetDC(deskWND);

возможно ли выводить текст без нее?

ACanvas.Brudh.Style:=bsNone;

[NewLamer&Programer]

Сообщение от Stilet

ScreenDC := GetDC(GetDesktopWindow);

вообще ничего не рисует

Сообщение от Stilet

  deskWND:= FindWindow('ProgMan', nil);
  deskWND:= GetWindow(deskWND, GW_CHILD);
  deskWND:= GetWindow(deskWND, GW_CHILD);
ScreenDC := GetDC(deskWND);

рисует, и вполне нормально, только я не понял что вы присваиваете? что за окно 'ProgMan'?
почему эта deskWND:= GetWindow(deskWND, GW_CHILD); строка 2 раза?
и вообще переменная deskWND имеет какой тип? попробовал и HDC и HWND оба раза и скомпилировалось и рисовало...

Сообщение от Stilet

ACanvas.Brudh.Style:=bsNone;

Incompatible types: 'TBrushStyle' and 'TFormBorderStyle'
п.с. оказывается bsClear, а не bsNone

[Stilet]

что за окно 'ProgMan'?

Это окно рабочего стола. Сложно обьяснить - забей это название в гугл, почитай о нем.

оказывается bsClear, а не bsNone

С потолка писал. Бывает.

[NewLamer&Programer]

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

[Kix.IV]

Он и должен висеть. Что бы его убрать просто обновите рабочий стол.

[NewLamer&Programer]

Сообщение от Kix.IV

Он и должен висеть. Что бы его убрать просто обновите рабочий стол.

как??? (програмно)

[Kix.IV]

http://kak-iskat.ru/?q=%D0%BE%D0%B1%...D%D0%BE+delphi

[NewLamer&Programer]

Сообщение от Kix.IV

http://kak-iskat.ru/?q=%D0%BE%D0%B1%...D%D0%BE+delphi

так остроумно... мне кажется ты дольше искал этот сайт, чем думал... а теперь смотрим что мы имеем: нет мне не нужно менять обои, и удалять ярлык и даже делать скриншот рабочего стола... да много так нашлось... но того что нужно нет остряк че... тут конкретная ситуация, а гугл туго соображает... тут нужен человек... и я умею пользоваться гуглом будь спокоен

п.с. нашел вот такие варианты, но они не работают почему то...

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

SendMessage(FindWindow('Progman','P rogram Manager'),WM_COMMAND,$A065,0);

[eoln]

http://yn0.ru/?q=InvalidateRect+Delphi Не проверял, но должно сработать