如题,成功后马上结帖
解决方案 »
- c++ 中(word)this在delphi里该怎么写
- Delphi 现在还有没有发展,不知道最后工资能达到多少,是否比Java强
- Delphi操作Excel之 如何关闭所有WorkBooks
- 请shadowfish(0℃)来接分!记录鼠标移动的整个过程,这问题你已帮我解决,这200分是答应给你的。
- installshield express for delphi的使用说明
- 怎样用代码把一个Form,dock到一个panel中
- 帮帮忙!!!
- 多线程更新cxgrid的时候,表格闪烁的利害阿
- 请问如何用DBEDIT显示被查询出来的某一记录的某一字段?谢了!
- 急急急!!还是那个菜鸟问题
- 我想编一个程序,主要运用到servers里的组件,主要是excel部分的,希望能得到一些相关的资料。
- “存储空间不足,系统无法处理此命令”,谁见过这样的错误?
var
i : integer;
ScreenDc:HDC;
NumBitsPixel:Integer;
begin
ScreenDc:=GetDC(0);
NumBitsPixel:=GetDeviceCaps(ScreenDc,BITSPIXEL);
ReleaseDC(0,ScreenDC);
i := NumBitsPixel shl 1;
showmessage(inttostr(i));
end;