找出特定程序，并给程序界面截图 ( 积分: 100 )

我想定时找出某个特定的程序并将程序界面截下来保存，用了下面的代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
Bild:TBitmap;
c:Tcanvas;
r,t:TRect;
h:THandle;
hh:hwnd;
ExeFilePath:string;
begin
ExeFilePath:=ExtractFilePath(Application.ExeName);
hh:=findwindow(nil,'计算器');
if hh>0 then
SetActiveWindow(hh)
else
showmessage('not find');
c:=TCanvas.Create;
c.Handle:=GetWindowDC(GetDesktopWindow);
//获得当前活动窗口的句柄
h := GetForeGroundWindow;
Bild:=TBitmap.Create;
if h<>0 then
//结构t保存该窗口的左上角和右下角的坐标值(相对于屏幕左上角)
GetWindowRect(h,t);
try
r:=Rect(0,0,t.Right-t.Left,t.Bottom-t.Top);
Bild.Width:=t.Right-t.Left;
Bild.Height:=t.Bottom-t.Top;
Bild.Canvas.CopyRect(r,c,t);
//抓屏结果保存在与EXE相同目录下
Bild.SaveToFile(ExeFilePath+'screen.bmp');
finally
Bild.Free;
end;
end;
可是截下来的图是我编程序的截面，该怎么写，请帮忙!
谢谢!

我想定时找出某个特定的程序并将程序界面截下来保存，用了下面的代码
procedure TForm1.Timer1Timer(Sender: TObject);
var
Bild:TBitmap;
c:Tcanvas;
r,t:TRect;
h:THandle;
hh:hwnd;
ExeFilePath:string;
begin
ExeFilePath:=ExtractFilePath(Application.ExeName);
hh:=findwindow(nil,'计算器');
if hh>0 then
SetActiveWindow(hh)
else
showmessage('not find');
c:=TCanvas.Create;
c.Handle:=GetWindowDC(GetDesktopWindow);
//获得当前活动窗口的句柄
h := GetForeGroundWindow;
Bild:=TBitmap.Create;
if h<>0 then
//结构t保存该窗口的左上角和右下角的坐标值(相对于屏幕左上角)
GetWindowRect(h,t);
try
r:=Rect(0,0,t.Right-t.Left,t.Bottom-t.Top);
Bild.Width:=t.Right-t.Left;
Bild.Height:=t.Bottom-t.Top;
Bild.Canvas.CopyRect(r,c,t);
//抓屏结果保存在与EXE相同目录下
Bild.SaveToFile(ExeFilePath+'screen.bmp');
finally
Bild.Free;
end;
end;
可是截下来的图是我编程序的截面，该怎么写，请帮忙!
谢谢!

窗体句柄好象没有捕获到。

应该用setforegroundwindow弹出那个窗口, setactivewindow只是将输入焦点传递给了那个程序, 但是那个程序并不一定会跑到最前面来

to ANother_eYse,我该用了setforegroundwindow,可是只是在任务栏了，计算器获的了焦点，可是并不弹出来

“可是截下来的图是我编程序的截面”，你有写要截取什么程序的图象吗？？

是啊，就是定时截取特定程序的界面

问题解决了.我用showwindow解决了.Anoterer_eYse的setforegroundwindow,只能在程序没有最小化的时候可以,还是谢谢你.