发信人: showskyws(示天)
整理人: teleme(2001-05-08 12:36:12), 站内信件
|
键盘信息
case getkeyboardtype(0) of //获取键盘类型
1: buffer:=' 键盘: IBM PC/XT或兼容类型(83键)';
2: buffer:=' 键盘: Olivetti "ICO"(102键)';
3: buffer:=' 键盘: IBM PC/AT(84键)';
4: buffer:=' 键盘: IBM增强型(101或102键)';
5: buffer:=' 键盘: Nokia 1050';
6: buffer:=' 键盘: Nokia 9140';
7: buffer:=' 键盘: Japanese';
end;
//获取键盘功能键数目
memo1.lines.add(' 功能键数目:
'+inttostr(getkeyboardtype(2)));
//获取鼠标按键数目
memo1.Lines.add(' 鼠标:
'+inttostr(getsystemmetrics(SM_CMOUSEBUTTONS))+'键');
globalmemorystatus(meminfo); //获取系统内存数量
memo1.lines.add(' 物理内存:
'+inttostr(meminfo.dwTotalPhys div 1024)+' KB');
x:=getsystemmetrics(SM_ARRANGE);
//获取系统最小化窗口的起始位置和排列方式
y:=x;
x:=x and 3;
y:=y and 12;
case x of
ARW_BOTTOMLEFT : buffer:=' 最小化窗口:自左下角';
ARW_BOTTOMRIGHT : buffer:=' 最小化窗口:自右下角';
ARW_TOPLEFT : buffer:=' 最小化窗口:自左上角';
ARW_TOPRIGHT : buffer:=' 最小化窗口:自右上角';
end;
case y of
ARW_LEFT : buffer:=buffer+'横向排列';
ARW_UP : buffer:=buffer+'纵向排列';
ARW_HIDE : buffer:=buffer+'隐藏';
end;
memo1.lines.add(buffer);
----
我每天都在努力，因为每天都要进步!
沉迷网络，程序人生，这就是我!
欢迎光临我的个人主页：示天工作室
网易北京社区 DELPHI版 版副发贴印 |
|