我們?nèi)粘５木幊讨校３?huì)去判斷用戶所使用的操作系統(tǒng)是什么？為什么要這么做，因?yàn)椋簽榱耸箲?yīng)用程序適應(yīng)不同的操作系統(tǒng)，能讓它運(yùn)行得更好！如在運(yùn)行某個(gè)應(yīng)用程序前，應(yīng)先判斷用戶所使用的是WIN95/98，還是WIN NT。雖然這兩個(gè)都是常用的操作系統(tǒng)，但在某些方面是完全不同的，在WIN95/98上運(yùn)行得很好的程序不一定在WIN NT上也能運(yùn)行得很好，所以不同的操作系統(tǒng)應(yīng)有不同的程序代碼以適應(yīng)不同的需要，也為了使程序運(yùn)行得更好更穩(wěn)定。

那怎樣才能知道用戶使用的操作系統(tǒng)是什么呢？我們可以利用API函數(shù)來(lái)解決，方法如下：

首先做準(zhǔn)備工作，新建工程，在PROM1上放上一個(gè)LABEL1(CAPTION為空)與一個(gè)BUTTON1(CAPTION為獲取操作系統(tǒng)信息)，其他屬性不變，然后輸入以下程序代碼：



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;           //聲明所需變量，具體內(nèi)容請(qǐng)參考API函數(shù)說(shuō)明文件。

  RET:LONGBOOL;

begin

  GETVER.dwOSVersionInfoSize:=148;

  RET:=GETVERSIONEX(GETVER);      //調(diào)用API函數(shù)判斷開(kāi)始

  IF  GETVER.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS THEN

  LABEL1.Caption:='您使用的操作系統(tǒng)是：WINDOWS95/98';

  



IF GETVER.dwPlatformId=VER_PLATFORM_WIN32_NT THEN

    LABEL1.Caption:='您正使用的操作系統(tǒng)是：WINDOWS NT';  

end;    

end.

現(xiàn)在請(qǐng)運(yùn)行一下(按F9)，怎么樣！是否成功？