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

← →
Le! (2003-08-29 08:59) [0]

Народ как поместить рисунок на рабочий стол!

← →
[lamer]Barmaglot (2003-08-29 09:08) [1]

FAQ?
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622498&n=15

← →
Le! (2003-08-29 09:21) [2]

Нет. не в этом смысле!
а как поместить картинку поверх рабочего стола! всмысле рисовать на нем!

← →
jel (2003-08-29 09:26) [3]

Получать DC рабочего стола (GetDC(0)) и рисовать используя функции API. После всего не забыть освободить DC.

← →
Le! (2003-08-29 09:30) [4]

Нет!
как рисовать на нем я знаю!
а как туда целую картинку налепить?

← →
jel (2003-08-29 09:32) [5]

Так же, но использовать BitBlt.

← →
Le! (2003-08-29 09:35) [6]

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

← →
jel (2003-08-29 09:41) [7]

Покажи код, какие ошибки выдает и где, тогда можно будет предметно говорить.

← →
Спрашивающий_ (2003-08-29 09:45) [8]

procedure TForm1.RxSpeedButton1Click(Sender: TObject);
var
C:TCanvas;
S:String;
h: THandle;
begin
C:= TCanvas.Create;
h := FindWindow("ProgMan", nil);
C.Handle := GetWindowDC(h);
with C do begin
C.Pen.Color:=1;
c.FillRect(ClipRect);
MoveTo( 0,Screen.Height div 2 );
LineTo(Screen.Width-3,Screen.Height div 2 ) ;
end;
ReleaseDC(h, C.Handle);
C.Free;
end;

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