screen.Width应use哪个单元(10分)

找不到相应类,请高手教下
procedure SSR();
var bmps:Tbitmap;
jpgn:Tjpegimage;
fscn:TCanvas;
dc:HDC;
srct, drct: TRect;
begin
dc:=getdc(0);
fscn:=Tcanvas.Create;
fscn.Handle:=dc;
bmps:=Tbitmap.create;
bmps.Width :=screen.Width ;
bmps.Height :=screen.Height ;
srct:=rect(0,0,screen.Width ,screen.Height );
drct:= rect(0,0,screen.Width ,screen.Height);
bmps.Canvas.CopyRect(srct,fscn,drct);
jpgn:=Tjpegimage.Create ;
jpgn.Assign (bmps);
jpgn.CompressionQuality:=40;
jpgn.SaveToStream (jpgs);
jpgs.Position :=0;
Lsize:=jpgs.Size;
fscn.Free;
bmps.Free;
jpgn.Free ;
ReleaseDC(0, DC);
end;

Use Forms;

汗.....我打算做一个无FORM的,写DLL,这段代码能不用FORM吗

API,取桌面窗口的宽高度

来自：kkyy, 时间：2006-9-21 14:49:42, ID：3578256
API,取桌面窗口的宽高度


...你算是说到家了,我就是要把那2句换成API
告诉我API怎么搞啊

GetSystemMetrics(0);
GetSystemMetrics(1)

结束了