Рабочий стол, рисование

[D-mon]

Рисуем прямоугольник на рабочем столе:

procedure TForm1.Button1Click(Sender: TObject);
var ScreenDC:HDC;
begin
 ScreenDC := GetDC(0);
 Rectangle(ScreenDC, 10, 10, 200, 200);
 ReleaseDC(0,ScreenDC);
end;

А как вывести таким способом картинку???

[Stilet]

Функцией BitBTN или StretchBTN.

[Квэнди]

var c: tcanvas;
r:trect;
begin
c := tcanvas.create;
c.brush.color := clblue;
c.font.color := clyellow;
c.font.name := 'fixedsys';
c.handle := getdc(getwindow(getdesktopwindow, gw_owner));
SystemParametersInfo(SPI_GETWORKARE A, 0, @r, 0);
c.Draw((r.Bottom div screen.MonitorCount)div 2,(r.Right div screen.MonitorCount )div 4,image1.Picture.Graphic);
c.free;

[Квэнди]

Этот код я писал чтобы картинка выводилась в центре монитора (вне зависимости от их кол-ва)

[D-mon]

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

Функцией BitBTN или StretchBTN.

А можно пример???

[JTG]

BitBTN или StretchBTN

Думаю имелось ввиду BitBlt/StrechBlt
Кстати всё-таки проще tcanvas пользоваться

пример - как-то так:

var
  ScreenDC:HDC;
begin
  ScreenDC := GetDC(0);
  BitBlt(ScreenDC, 1, 1, 1024, 768, image1.Canvas.Handle, 1, 1, SRCCOPY);
  ReleaseDC(0,ScreenDC);
end;

образно говоря BitBlt(<куда>, <х>, <у>, <ширина>, <высота>, <откуда>, <х>, <у>, <способ_вывода>)

читай MSDN там всё это есть

[D-mon]

Всем спасибо.

[GAGARIN-NEW]

procedure TForm1.Button20Click(Sender: TObject);
var
Picture: TPicture;
Desktop: TCanvas;
X, Y: Integer;
begin
Picture := TPicture.Create;
Desktop := TCanvas.Create;
Picture.LoadFromFile('c:/my.bmp');
Desktop.Handle := GetWindowDC(0);
X := 100; // по иксу
Y := 100; // по игрику
Desktop.Draw(X, Y, Picture.Graphic);
ReleaseDC(0, Desktop.Handle);
Picture.Free;
Desktop.Free;

end;