Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

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

 
SPACE ©   (2005-10-10 15:59) [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;

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


 
-=S..S=-   (2005-10-10 16:10) [1]

Юзай bitblt


 
-=S..S=-   (2005-10-10 16:20) [2]

а также можна использовать источник как
ScreenDC := GetWindowDC(0);


 
SPACE ©   (2005-10-10 19:31) [3]

Спасибо заработало !!



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
3-1127359637
V-A-V
2005-09-22 07:27
2005.10.30
Пароль на MDB


9-1118490387
!Trinix
2005-06-11 15:46
2005.10.30
Скайбокс


1-1128376693
Германн
2005-10-04 01:58
2005.10.30
Не могу "запустить" программу под дебаггером из IDE.


4-1121785751
Valera
2005-07-19 19:09
2005.10.30
При перехвате сообщения WMEraseBkgnd получаю HDC больше Integer


1-1128954325
keal
2005-10-10 18:25
2005.10.30
Выборка с приоритетом