Текущий архив: 2006.04.30;
Скачать: CL | DM;

Вниз

Народ никак немогу сделать скриншот из игрушки   Найти похожие ветки 

← →
SPACE ©   (2005-10-10 15:05) [0]

Народ никак немогу сделать скриншот из игрушки, вот код:  


var
Cbuf : Array [0..MAX_COMPUTERNAME_LENGTH+1] of char;
map : Tbitmap;
ScreenDC :HDC ;
zCanvas : TCanvas;
hwin : THandle;
rct : TRect;
str : string;
begin
hwin :=GetForegroundWindow;
GetWindowText(hwin, Cbuf,Sizeof(Cbuf));
str :=Cbuf;
if str = "X" then
begin
   memo1.lines.Append(str);
   hwin := 0;
   hwin := FindWindow(0,"X");
   ScreenDC := GetDC(hwin);
   zCanvas := TCanvas.Create;
   zCanvas.Handle :=ScreenDC;
   rct := zCanvas.ClipRect;
  try
    map := TBitmap.Create;
    map.Width := 400;
    map.Height := 400;
    map.Canvas.CopyRect(Rect(0,0,map.Width,map.Height),zcanvas,rect  
    (0,0,rct.Right,rct.Bottom));
    map.SaveToFile("bmp.bmp");
  finally
    map.Free;
    ReleaseDC(0,ScreenDC);
    zCanvas.Free;
 end;
 end;
end;


Где ошибка ???

---

← →
SPACE ©   (2005-10-10 19:30) [1]

Спасибо уже ненадо.

---

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

Текущий архив: 2006.04.30;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.014 c