⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 wzjh42.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<title>使用Delphi获取系列信息</title>
<meta content="text/html;CHARSET=gb2312" http-equiv="Content-Type">
<style type="text/css">.font {
	FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
.bfont {
	FONT-SIZE: 11pt; LINE-HEIGHT: 13pt
}
A:link {
	COLOR: #0080c0; CURSOR: hand; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:visited {
	COLOR: #0080c0; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:active {
	COLOR: rgb(255,0,0); FONT-STYLE: normal; TEXT-DECORATION: none
}
A:hover {
	COLOR: red; TEXT-DECORATION: underline
}
</style>
<script LANUGAGE="JavaScript">

<!--

function pop(pageurl) {

  var

popwin=window.open(pageurl,"popWin","scrollbars=yes,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,width=650,height=450");

  return false;

}

//-->

</script>

<style type="text/css">TD {
	FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
BODY {
	FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
SELECT {
	FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
A {
	COLOR: white; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:hover {
	COLOR: #3300ff FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; TEXT-DECORATION: underline
}
</style>
<SCRIPT language=Javascript1.2 src="../best.js"></SCRIPT>

<SCRIPT language=JavaScript>
<!--- hide script from old browsers
var ie=0;browserName=navigator.appName.substring(0,27);
if (browserName=="Microsoft Internet Explorer") {ie=1;} if (ie) {document.bgColor="#ffffff";}
// -- End Hiding Here -->
</SCRIPT>

<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<SCRIPT>var Flag=0</SCRIPT>
<body link="#008000" vlink="#008000" bgcolor="#FFFFFF">
<div align="center"><center>

<table border="0" width="750" bgcolor="#DFEFFF">
  <tr>
    <td width="100%">
          <table border="0" width="100%" cellspacing="1" bgcolor="#FFFFFF">
            <tr> 
              <td width="100%" height="133"> 
                <p align="center"><strong> 使用Delphi获取系列信息</strong></p>
                <div align="center"> 
                  <center>
                    <table border="0" width="650" bgcolor="#5BADFF"
        cellspacing="1" cellpadding="2">
                      <tr> 
                        <td width="100%" bgcolor="#FFFFFF" colspan="6"><br>
                          　　Delphi以其优良的可视化编程，灵活的Windows API接口，丰富的底层操作越来越受到编程爱好者的青睐。 
                          <br>
                          　　在Delphi中，通过调用Windows API，可以很方便地获取系统信息，这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 
                          For Windows 9x下编译通过。 <br>
                          　　一、 用GetDriveType函数获取磁盘信息 <br>
                          　　Lbl_DriveType:Tlabel; <br>
                          　　DriveType:WORD; //定义驱动器类型变量 <br>
                          　　DriveType:=GetDriveType(RootPathName); //获得RootPathName所对应的磁盘驱动器信息 
                          <br>
                          　　case DriveType of <br>
                          　　DRIVE_REMOVABLE:Lbl_DriveType.Caption:= '软盘驱动器'; <br>
                          　　DRIVE_FIXED : Lbl_DriveType.Caption:= '硬盘驱动器'; <br>
                          　　DRIVE_REMOTE: Lbl_DriveType.Caption:= '网络驱动器'; <br>
                          　　DRIVE_CDROM: Lbl_DriveType.Caption:= '光盘驱动器'; <br>
                          　　DRIVE_RAMDISK: Lbl_DriveType.Caption:= '内存虚拟盘'; <br>
                          　　end; //将该磁盘信息显示在Lbl_DriveType中 <br>
                          　　二、 用GlobalMemoryStatus函数获取内存使用信息 <br>
                          　　MemStatus: TMEMORYSTATUS; //定义内存结构变量 <br>
                          　　Lbl_Memory:Tlabel; <br>
                          　　MemStatus.dwLength := size of(TMEMORYSTATU

⌨️ 快捷键说明

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