скриншот окна программы

[Pein95]

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

[Пепел Феникса]

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

[Хамяг]

SetForegroundWindow, GetWindowPlacement, BitBlt

попробуйте через эти функции.

[mihali4]

Как сделать BMP снимок с экрана?

Код от Alar (весь экран):

var 
ScreenDC:HDC; 
Canvas:TCanvas; 
Image1:TImage; 
Begin 
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create(); 
Canvas.Handle:=ScreenDC; 
Image1 := TImage.Create(nil); 
Image1.Width := Screen.Width; 
Image1.Height := Screen.Height; 
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image 1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); 
ReleaseDC(0,ScreenDC); 
Canvas.Free; 
end;

Попробуйте, заменив

ScreenDC := GetDC(0);

на

ScreenDC := GetDC(Form4.Handle);

Можете даже отдельный компонент скриншотить, задав, например,

ScreenDC := GetDC(Form4.Panel1.Handle);

З.Ы. Не забудьте заменить Screen.Width на Form4.Width и т.д.

[Pein95]

спс за код буду пробовать)

[Человек_Борща]

SetForegroundWindow
или как-то так. В любом случаее нужное окно выдвинуть окно вперёд.
т.к. скрин не отрисованнного окна зделать невозможно.

[Pein95]

ну собственно сделал я скрин нужного мне окна загрузил его в Image, как мне теперь нажать на тот елемент что мне нужно? зарание спасибо за ответ) делаю скрин вот таким кодом:

procedure ScreenShot(hWindow: HWND; bm: TBitmap);
 var
   Left, Top, Width, Height: Word;
   R: TRect;
   dc: HDC;
   lpPal: PLOGPALETTE;
 begin

   if not IsWindow(hWindow) then Exit;

   GetWindowRect(hWindow, R);
   Left := R.Left;
   Top := R.Top;
   Width := R.Right - R.Left;
   Height := R.Bottom - R.Top;
   bm.Width  := Width;
   bm.Height := Height;

   dc := GetDc(0);
   if (dc = 0) then
    begin
     Exit;
   end;

   if (GetDeviceCaps(dc, RASTERCAPS) and
     RC_PALETTE = RC_PALETTE) then
    begin

     GetMem(lpPal,
       SizeOf(TLOGPALETTE) +
     (255 * SizeOf(TPALETTEENTRY)));

     FillChar(lpPal^,
       SizeOf(TLOGPALETTE) +
     (255 * SizeOf(TPALETTEENTRY)),
       #0);

     lpPal^.palVersion := $300;

     lpPal^.palNumEntries :=
       GetSystemPaletteEntries(dc,
       0,
       256,
       lpPal^.palPalEntry);
     if (lpPal^.PalNumEntries <> 0) then
      begin

       bm.Palette := CreatePalette(lpPal^);
     end;
     FreeMem(lpPal, SizeOf(TLOGPALETTE) +
     (255 * SizeOf(TPALETTEENTRY)));
   end;

   BitBlt(bm.Canvas.Handle,
     0,
     0,
     Width,
     Height,
     Dc,
     Left,
     Top,
     SRCCOPY);

   ReleaseDc(0, dc);
 end;

[Аватар]

как мне теперь нажать на тот елемент что мне нужно?

Ну а теперь из вас нужно вытягивать, а что ж такое тот елемент что мне нужно?

[mihali4]

Причина закрытия темы ?
Наверху, на темном фоне, читайте 4-ю строку...
Еще лучше - прочитайте правила раздела, там много интересного...