使用Delphi获取系列信息

原创 2001年07月21日 15:59:00
使用Delphi获取系列信息
  Delphi以其优良的可视化编程,灵活的Windows API接口,丰富的底层操作越来越受到编程爱好者的青睐。
  在Delphi中,通过调用Windows API,可以很方便地获取系统信息,这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。
  一、 用GetDriveType函数获取磁盘信息
  Lbl_DriveType:Tlabel;
  DriveType:WORD; //定义驱动器类型变量
  DriveType:=GetDriveType(RootPathName); //获得RootPathName所对应的磁盘驱动器信息
  case DriveType of
  DRIVE_REMOVABLE:Lbl_DriveType.Caption:= '软盘驱动器';
  DRIVE_FIXED : Lbl_DriveType.Caption:= '硬盘驱动器';
  DRIVE_REMOTE: Lbl_DriveType.Caption:= '网络驱动器';
  DRIVE_CDROM: Lbl_DriveType.Caption:= '光盘驱动器';
  DRIVE_RAMDISK: Lbl_DriveType.Caption:= '内存虚拟盘';
  end; //将该磁盘信息显示在Lbl_DriveType中
  二、 用GlobalMemoryStatus函数获取内存使用信息
  MemStatus: TMEMORYSTATUS; //定义内存结构变量
  Lbl_Memory:Tlabel;
  MemStatus.dwLength := size of(TMEMORYSTATU
S);
  GlobalMemoryStatus(MemStatus); //返回内存使用信息
   Lbl_Memory.Caption := format('共有内存: %d KB 可用内存: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
  //将内存信息显示在Lbl_Memory中
  三、 用GetSystemInfo函数获取CPU信息
  SysInfo: TSYSTEMINFO;
  Lbl_CPUName:Tlabel;
  GetSystemInfo(SysInfo);//获得CPU信息
  case SysInfo.dwProcessorType of
  PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber Of Processors,'Intel80386']);
  PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber Of Processors, 'Intel 80486']);
  PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNum
berOfProcessors, 'Intel Pentium']);
  PROCESSOR_MIPS_R4000:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'MIPS R4000']);
  PROCESSOR_ALPHA_21064:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'ALPHA 21064']);
  end;//把CPU信息显示在Lbl_CPUName中。



Delphi 获取硬盘和系统信息(1)

1.GetComputerName - 获取计算机名称 var  arr:array[0..MAX_COMPUTERNAME_LENGTH]of char;   d: DWORD; begi...
  • lailai186
  • lailai186
  • 2013年04月12日 09:48
  • 1957

Delphi 获取系统信息(1)

1. DELPHI获得系统信息 1. 获得系统本地信息 Windows API中有一个函数GetLocaleInfo可以用来获得系统信息比如系统语言, 货币符号等代码如下: function T...
  • lailai186
  • lailai186
  • 2013年04月10日 15:16
  • 3350

DELPHI获取硬盘、CPU、网卡序列号

//引用及TYPE变量申明 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  ...
  • u013408061
  • u013408061
  • 2017年04月19日 16:30
  • 788

delphi 获取Exe或DLL的文件版本信息

unit VersionInfo; {* 获取应用程序版本类单元 } interface uses Windows,Types,SysUtils,Dialogs; type TExeVers...
  • cmd9x
  • cmd9x
  • 2014年01月16日 17:26
  • 790

delphi Indy 实现天气预报功能

简单示例了用delphi Indy控件通过webservice接口查询城市天气的实现,并简要介绍了点网络通信知识。 重要的不是代码,是方法。...
  • lin_strong
  • lin_strong
  • 2016年06月14日 13:43
  • 1258

delphi 获取网卡信息(支持多网卡)

unit LGetAdapterInfo;   interface   uses Windows, SysUtils, Classes;   const ...
  • chinajobs
  • chinajobs
  • 2015年09月07日 10:36
  • 1794

Delphi中如何读取出MP3文件的信息

interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,...
  • jean852001
  • jean852001
  • 2015年02月03日 23:24
  • 797

Delphi获取操作系统版本【转载+修改】

unit WindowsSysVersion; interface uses windows ; {$IFDEF CONDITIONALEXPRESSIONS} {$IF Defined(T...
  • loverceo
  • loverceo
  • 2014年03月09日 18:43
  • 1382

Delphi 获取安卓手机WIFI信息(XE8)

Delphi 获取安卓手机WIFI信息(XE8)源码
  • lyf_lyf
  • lyf_lyf
  • 2015年09月02日 01:14
  • 2065

创建 Delphi DataSnap 程序的问题集萃(1)

当我们开始创建第一个 DataSnap 商业软件前,有些技术上的问题必须明确。     DataSnap 是三层架构,客户端暂且不谈,我们先讨论一下服务器端的架设。     在服务器端,其实要实现两层...
  • dongfirst
  • dongfirst
  • 2013年12月24日 15:50
  • 1130
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用Delphi获取系列信息
举报原因:
原因补充:

(最多只允许输入30个字)