怎么抓去被遮住的Window图像(200分)

H

HN-Huang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-19

• #1

当要抓取的window不是当前窗口，用一下代码，将没办法完成任务。
S:=EDit1.Text;
h:=findWindow(nil,Pchar(S));
DC:=GetWindowDC(h);
BCanvas:=TCanvas.Create;
BCanvas.Handle:=Dc;
Image1.Canvas.CopyRect(rect(0,0,100,200),BCanvas,rect(0,0,100,200))

抓到的是被遮住了的一部分。

怎么才能真正的抓到所需要的，难道真的一定要stay on top的窗口才能抓吗？

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-19

• #2

没见过可以抓不可见窗体的软件[]

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-20

• #3

真的没有办法的.

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-20

• #4

先激活它，再抓？

 

H

HN-Huang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #5

激活窗口不可接受，因为差不多每秒要抓2副图。太闪烁了吧
真的不行吗？
getwindowdc()到底什么意思。

那有滚动条的窗口怎么抓全的，谢谢，请继续关注。

 

J

jackz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #6

j

 

D

delphibase

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #7

滚动条？

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #8

先激活它，再抓？
有道理啊，抓完再改回来就行了。

 

F

f950436

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #9

不能抓不可视窗口

 

S

shaofun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #10

const
WS_EX_LAYERED = $00080000;
var
DC: HDC;
FStyle: Longint;
FCanvas: TCanvas;
bmpScreen : TBitmap;
begin
FStyle := GetWindowLong(FFadeWin.Handle, GWL_EXSTYLE);
FStyle := FStyle or WS_EX_LAYERED;
SetWindowLong(FFadeWin.Handle, GWL_EXSTYLE, FStyle);
Sleep(50);
bmpScreen := TBitmap.Create;
bmpScreen.Width := FFadeWin.Width;
bmpScreen.Height := FFadeWin.Height;
bmpScreen.Canvas.Lock;
DC := GetDC(0);
with bmpScreen do
Bitblt(Canvas.Handle, 0, 0,
FFadeWin.Width, FFadeWin.Height,
DC, FFadeWin.Left, FFadeWin.Top, SRCCOPY);
ReleaseDC(0, DC);
bmpScreen.Canvas.UnLock;

FStyle := GetWindowLong(FFadeWin.Handle, GWL_EXSTYLE);
FStyle := FStyle and (not WS_EX_LAYERED);
SetWindowLong(FFadeWin.Handle, GWL_EXSTYLE, FStyle);
end;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #11

WS_EX_LAYERED

DC := GetDC(0);

 

G

ghg_qh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #12

gz

 

Y

yaoyao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #13

还是不行。
当有部分窗体被遮住了，还要抓到下面的窗口
怎么办呢？

 

的

的士

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #14

还是问比尔.该死大爷吧！

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #15

[] 学习

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #16

被遮住的部分，强制调用该窗口的PAINT事件，画到你的DC上来。
滚动条以外的部分画都没画，怎么截

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-03

• #17

如果是你自己的窗口，你可以用getformimage看看，别人的，俺不知道

 

A

ArJianzeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-03

• #18

做一个循环，列出所有存在的窗口，然后根据这些窗口的句柄捕获对应的窗口

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-04

• #19

function GetFormImageByHandle(Handle:THandle): TBitmap;
var
Ofs: Integer;
begin
Result := TBitmap.Create;
try
Result.Width := ClientWidth;
Result.Height := ClientHeight;
Result.Canvas.Brush := Brush;
Result.Canvas.FillRect(ClientRect);
Result.Canvas.Lock;
try
if GetWindowLong(Handle, GWL_STYLE) and WS_BORDER <> 0 then
Ofs := -1 // Don't draw form border
else
Ofs := 0; // There is no border
PaintTo(Result.Canvas.Handle, Ofs, Ofs);
finally
Result.Canvas.Unlock;
end;
except
Result.Free;
raise;
end;
end;
能使么，我记得以前好像能阿

 

Y

yaoyao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #20

function TForm1.GetFormImageByHandle1(Handle:THandle; Left, top, Width, Height: Integer): TBitmap;
var
Ofs: Integer;
CR: TRect;
begin
Result := TBitmap.Create;
try
Cr.TopLeft := Point(Left,Top);
Cr.BottomRight := Point(Left + Width,Top + Height);
Result.Width := Width;
Result.Height := Height;
Result.Canvas.Brush := Brush;
Result.Canvas.FillRect(Cr);
Result.Canvas.Lock;
try
if GetWindowLong(Handle, GWL_STYLE) and WS_BORDER <> 0 then
Ofs := -1 // Don't draw form border
else
Ofs := 0; // There is no border
PaintTo(Result.Canvas.Handle, -1*Left+Ofs, -1*Top+Ofs);
finally
Result.Canvas.Unlock;
end;
except
Result.Free;
raise;
end;
end;