FindWindow

[Comer_Jus]

как с помощью FindWindow
найти рабочий стол
функция ищет окно с заданным именем
а Desktop ?

[BOBAH13]

Как это не удивительно, взято совсем из не известного источника MSDN:

GetDesktopWindow

[Comer_Jus]

ещё один вопросик (для чего собственно и задавался первый вопрос)

как с помощью PrintWindow получить снимок рабочего стола

var hSrcWnd:HWND;
     hDC1:HDC; 
     hSrcDC:HDC;
     hBmp:HBITMAP ;
    SW,SH:Integer;
    Bitmap:TBitmap;
begin
  SW:=Screen.Width;
  SH:=Screen.Height;
  Bitmap:=TBitmap.Create;

  hSrcWnd := FindWindow(nil, PChAR('Form1'));
  hDC1:= GetDC(hSrcWnd);

  hSrcDC:=CreateCompatibleDC(hDC1);
  hBmp := CreateCompatibleBitmap( hDC1, SW, SH );

  SelectObject(hSrcDC, hBmp);
  PrintWindow(hSrcWnd, hSrcDC, 0);
  //BitBlt(hDC1,0,0,SW,SH,hSrcDC,0,0,SRCCOPY);

  Bitmap.Handle:=hbmp;
  Bitmap.SaveToFile('ScreenShot.bmp');

  DeleteObject(hBmp);
  DeleteDC(hSrcDC);
  ReleaseDC(hSrcWnd, hDC1);

  Bitmap.Free

размер Bitmap'a я сразу забил как у Decktop'a ну да это мелочи
а суть в том что окно он фоткает
а когда подставляю hSrcWnd := GetDesktopWindow;
то получаю квадрат малевича
где я ошибся подскажите?

так не работает

hSrcWnd := GetDesktopWindow;
hDC1      := GetDC( GetDesktopWindow );

и так тоже

hSrcWnd := Hwnd_Desktop ;
hDC1      := GetDC( Hwnd_Desktop );

в обоих вариантах получаю пустой Bitmap

такое чувство что функция PrintWindow работает только с окнами
(что как бы и понятно из её названия)

знаю что получить копию экрана легко можно и другими способами
но в данном случае интересна PrintWindow

[Stilet]

Comer_Jus

Я может и не в тему, но лично я предпочитаю делать снимки так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var    dc:HDC;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if not BitBlt(Canvas.Handle,0,0,Width,Height,dc,Mouse.CursorPos.X,
 Mouse.CursorPos.Y,SRCCOPY) then RaiseLastWin32Error;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
dc:=GetDC(GetDesktopWindow);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ReleaseDC(GetDesktopWindow,dc);
end;

end.

При этом коже поводи мышой по экрану, форма будет получить его снимок

[Comer_Jus]

это всем извесный способ
интересует имеено получение скриншота
с помощью функции PrintWindow
(возможно или нет)

[N!ckeL]

Это не с помощью PrintWindow, пока писал появилось верхнее сообщение. Но в результате всё равно получится canvas...

var
 c:tcanvas;
 dc:hdc;
begin
 dc:=getdc(0);
 c:=tcanvas.create;
 c.handle:=dc;
 image1.Canvas.CopyRect(rect(0, 0, image1.Width, image1.Height), c, rect(0, 0, screen.Width, screen.Height));
 releasedc(0, dc);
 c.Free;
end;

[Comer_Jus]

интересует реализация задачи средством функции PrintWindow
и ни как иначе

[Рамиль]

Помогите пожалуйста! Кто-нибудь знает как получить доступ к Экрану(отбражение рабочего стола) чтобы можно было получать цвета попиксельно?