📄 131.htm

📁 水木清华的BBS文章
💻 HTM
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CTerm非常精华下载</title>
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="577">
<tr><td width="32%" rowspan="3" height="123"><img src="DDl_back.jpg" width="300" height="129" alt="DDl_back.jpg"></td><td width="30%" background="DDl_back2.jpg" height="35"><p align="center"><a href="http://bbs.tsinghua.edu.cn"><font face="黑体"><big><big>水木清华★</big></big></font></a></td></tr>
<tr>
<td width="68%" background="DDl_back2.jpg" height="44"><big><big><font face="黑体"><p align="center">         Delphi编程                            (BM: strayli FlyingBoy)          </font></big></big></td></tr>
<tr>
<td width="68%" height="44" bgcolor="#000000"><font face="黑体"><big><big><p   align="center"></big></big><a href="http://cterm.163.net"><img src="banner.gif" width="400" height="60" alt="banner.gif"border="0"></a></font></td>
</tr>
<tr><td width="100%" colspan="2" height="454">　<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="132.htm">下一篇</a>]
<hr><p align="left"><small>检测驱动器类型 <br>

  <br>

当要知道所选的驱动器属于什么类型时，请看下面的程序 <br>

var x:integer; <br>

driver:pchar; <br>

begin <br>

driver:='f:\'; <br>

x := GetDriveType(driver); <br>

Case x of <br>

2: Label1.Caption := '该驱动器是可移动驱动器'; <br>

3: Label1.Caption := '该驱动器是固定驱动器'; <br>

4: Label1.Caption := '该驱动器是网络驱动器'; <br>

5: Label1.Caption := '该驱动器是CD-ROM驱动器'; <br>

6: Label1.Caption := '该驱动器是虚拟驱动器'; <br>

Else Label1.Caption := '该驱动器无效'; <br>

End; <br>

end; <br>

  <br>

                                驱动器容量 <br>

  <br>

要得到驱动器的容量和剩余容量，用下面的程序 <br>

var <br>

driver:pchar; <br>

driver:pchar; <br>

sec1, byt1, cl1, cl2:longword; <br>

begin <br>

driver:='c:\';//要显示的驱动器名 <br>

GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2); <br>

cl1 := cl1 * sec1 * byt1; <br>

cl2 := cl2 * sec1 * byt1; <br>

Label1.Caption := '该驱动器总共容量' + Formatfloat('###,##0',cl2) + '字节'; <br>

Label2.Caption := '该驱动器可用容量' + Formatfloat('###,##0',cl1) + '字节'; <br>

end; <br>

  <br>

                                辨别分辨率 <br>

  <br>

要得到显示器的分辨率，由下列程序得到： <br>

var <br>

x:longint; <br>

a:string; <br>

begin <br>

x := GetSystemMetrics(SM_CXSCREEN); <br>

Str(x,a); <br>

Label1.Caption := '显示器水平分辨率' + a; <br>

x := GetSystemMetrics(SM_CYSCREEN); <br>

Str(x,a); <br>

Str(x,a); <br>

Label2.Caption := '显示器垂直分辨率' + a; <br>

end; <br>

  <br>

                                控制热启动 <br>

  <br>

要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句 <br>

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); <br>

要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句 <br>

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0); <br>

  <br>

                              启动屏幕保护 <br>

  <br>

执行下列语句开始Windows屏幕保护程序 <br>

SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0); <br>

  <br>

                                取系统颜色 <br>

  <br>

要取得系统颜色，把参数换一下就可以 <br>

COLOR_SCROLLBAR   　　　　」龆
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -