| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Народ никак немогу сделать скриншот из игрушки
SPACE © (2005-10-10 15:59:00)Народ никак немогу сделать скриншот из игрушки, вот код:
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:31:00) [1]Спасибо заработало !!
-=S..S=- (2005-10-10 16:20:00) [2]а также можна использовать источник как
ScreenDC := GetWindowDC(0);
-=S..S=- (2005-10-10 16:10:00) [3]Юзай bitblt
| |
