Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c