📄 wzjh42.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) { varpopwin=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 browsersvar 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 + -