在Delphi编程中获取操作系统信息

原创 2002年07月08日 09:47:00

Delphi编程中获取操作系统信息

    我们日常的编程中,常常会去判断用户所使用的操作系统是什么?为什么要这么做,因为:为了使应用程序适应不同的操作系统,能让它运行得更好!如在运行某个应用程序前,应先判断用户所使用的是WIN95/98,还是WIN NT。虽然这两个都是常用的操作系统,但在某些方面是完全不同的,在WIN95/98上运行得很好的程序不一定在WIN NT上也能运行得很好,所以不同的操作系统应有不同的程序代码以适应不同的需要,也为了使程序运行得更好更稳定。<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

那怎样才能知道用户使用的操作系统是什么呢?我们可以利用API函数来解决,方法如下:

首先做准备工作,新建工程,在PROM1上放上一个LABEL1(CAPTION为空)与一个BUTTON1(CAPTION为获取操作系统信息),其他属性不变,然后输入以下程序代码:

 

unit GETVER;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

VAR

  GETVER:OSVERSIONINFO;           //声明所需变量,具体内容请参考API函数说明文件。

  RET:LONGBOOL;

begin

  GETVER.dwOSVersionInfoSize:=148;

  RET:=GETVERSIONEX(GETVER);      //调用API函数判断开始

  IF  GETVER.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS THEN

  LABEL1.Caption:='您使用的操作系统是:WINDOWS95/98';

 

 

IF GETVER.dwPlatformId=VER_PLATFORM_WIN32_NT THEN

    LABEL1.Caption:='您正使用的操作系统是:WINDOWS NT'; 

end;   

 end.

现在请运行一下(按F9),怎么样!是否成功?

不清楚的地方请与作者联系:zch619@hotmail.com,或者可以自己查看相应的API函数说明,笔者就不再重述了!

注:以上程序在WINDOWS 2000,DELPHI5.0版中调试通过。

Delphi 获取系统信息(1)

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

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

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

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

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

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

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

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

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

QSysInfo获取操作系统的相关信息

QSysInfo类可以为我们提供一些有关当前系统的底层信息
  • Amnes1a
  • Amnes1a
  • 2017年04月13日 16:23
  • 1052

Java获取当前操作系统的信息

主流有几种方法,一种是用下面的函数 public static String getProperty(String key) 键 相关值的描述 java.version java...
  • u013007900
  • u013007900
  • 2015年12月29日 19:44
  • 5055

获取服务器操作系统等信息

  • chenmoimg_
  • chenmoimg_
  • 2017年04月21日 18:56
  • 474

最新获取操作系统信息函数

void GetOS(string& os) { /*Windows 10 10.0* 10 0 OSVERSIONINFOEX.wProductType == VER_NT_WORK...
  • i7thTool
  • i7thTool
  • 2016年06月14日 14:27
  • 925

delphi Indy 实现天气预报功能

简单示例了用delphi Indy控件通过webservice接口查询城市天气的实现,并简要介绍了点网络通信知识。 重要的不是代码,是方法。...
  • lin_strong
  • lin_strong
  • 2016年06月14日 13:43
  • 1265
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi编程中获取操作系统信息
举报原因:
原因补充:

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