HDC应该是一个DC的句柄,但是在Delphi里面是怎么使用的?在使用之前要用uses引入什么文件嘛??因为我的Delphi程序老是编译通不过,显示未定义:Undeclared identifier: 'HDC'原代码就是网上找的一段对窗口截图的Delphi代码:
var
dc: HDC;
bmp: TBitmap;
begin
dc := GetDC(0);
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
bmp.PixelFormat := pf24Bit;
BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, 0, 0, SRCCOPY);
bmp.SaveToFile('c:\tmep.bmp');
finally
bmp.Free;
ReleaseDC(0, dc);
end;
end;
var
dc: HDC;
bmp: TBitmap;
begin
dc := GetDC(0);
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
bmp.PixelFormat := pf24Bit;
BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, 0, 0, SRCCOPY);
bmp.SaveToFile('c:\tmep.bmp');
finally
bmp.Free;
ReleaseDC(0, dc);
end;
end;
解决方案 »
- 请教一个Socket相关的简单问题
- 急求:delphi調用SQL語句:在cxgrid中動態長出列?
- 请问[Fatal Error] XMLParse.pas(1112): Could not create output file 'C:\Dcu(D5)\XMLParse.dcu'
- 请问'dataset not in insert or edit mode'是什么意思?
- 怎麼用Delphi控制Excel單元格的左對齊
- 请教:如何禁止局域网中某些计算机上网?
- ★★★有QQ号码赠送!!你想要吗?(限量赠送!)
- 怎么监视任务栏的改变?Kingron请来拿分
- ICS TWSocketServer 的UDP模式下如何应答客户端?
- TdataSet
- 用delphi开发的程序,想分解若干个bpl和dll,请大家给点建议??
- 两个问题,想了两天了!
HDC = type LongWord;
专门跟我做对吗!