发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 检测驱动器类型 (转载)
发信站: 哈工大紫丁香 (2000年09月01日18:52:57 星期五), 站内信件

【 以下文字转载自 VisualProgram 讨论区 】
【 原文由 alias 所发表 】
var x:integer; 
driver:pchar; 
begin 
driver:='f:\'; 
x := GetDriveType(driver); 
Case x of 
2: Label1.Caption := '该驱动器是可移动驱动器'; 
3: Label1.Caption := '该驱动器是固定驱动器'; 
4: Label1.Caption := '该驱动器是网络驱动器'; 
5: Label1.Caption := '该驱动器是CD-ROM驱动器'; 
6: Label1.Caption := '该驱动器是虚拟驱动器'; 
Else Label1.Caption := '该驱动器无效'; 
End; 
end;  
 
                                驱动器容量 
 
要得到驱动器的容量和剩余容量，用下面的程序 
var 
driver:pchar; 
sec1, byt1, cl1, cl2:longword; 
begin 
driver:='c:\';//要显示的驱动器名 
GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2); 
cl1 := cl1 * sec1 * byt1; 
cl2 := cl2 * sec1 * byt1; 
Label1.Caption := '该驱动器总共容量' + Formatfloat('###,##0',cl2) + '字节'; 
Label2.Caption := '该驱动器可用容量' + Formatfloat('###,##0',cl1) + '字节'; 
end; 
 
                                辨别分辨率 
 
要得到显示器的分辨率，由下列程序得到： 
var 
x:longint; 
a:string; 
begin 
x := GetSystemMetrics(SM_CXSCREEN); 
Str(x,a); 
Label1.Caption := '显示器水平分辨率' + a; 
x := GetSystemMetrics(SM_CYSCREEN); 
Str(x,a); 
Label2.Caption := '显示器垂直分辨率' + a; 
end; 
 
                                控制热启动 
 
要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句 
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); 
要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句 
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0); 
 
                              启动屏幕保护 
 
执行下列语句开始Windows屏幕保护程序 
SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0); 
 
                                取系统颜色 
 
要取得系统颜色，把参数换一下就可以 
COLOR_SCROLLBAR　　　　　　滚动条 
COLOR_BACKGROUND　　　　 　桌面背景 
COLOR_ACTIVECAPTION 　 　　活动窗口标题 
cOLOR_INACTIVECAPTION　　　非活动窗口标题 
cOLOR_MENU　　　　　　 　　菜单 
COLOR_WINDOW　　　　　 　　窗口背景 
cOLOR_WINDOWFRAME　　　　　窗口框 
COLOR_MENUTEXT　　　　 　　窗口文字 
COLOR_WINDOWTEXT　　　 　　3D 阴影 (Win95) 
COLOR_CAPTIONTEXT　　　　　标题文字 
COLOR_ACTIVEBORDER　　 　　活动窗口边框 
COLOR_INACTIVEBORDER　 　　非活动窗口边框 
COLOR_APPWORKSPACE　　 　　MDI 窗口背景 
COLOR_HIGHLIGHT　　　　　　选择条背景 
COLOR_HIGHLIGHTTEXT　　　　选择条文字 
COLOR_BTNFACE　　　　　　　按钮 
COLOR_BTNSHADOW　　　　　　3D 按钮阴影 
COLOR_GRAYTEXT　　　　 　　灰度文字 
COLOR_BTNTEXT　　　　　　　按钮文字 
COLOR_INACTIVECAPTIONTEXT　非活动窗口文字 
COLOR_BTNHIGHLIGHT　　 　　3D 选择按钮} 
var i:integer; 
begin 
//取得活动窗口标题颜色 
i :=GetSysColor(COLOR_ACTIVECAPTION); 

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mig.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: club.hit.edu.cn]