在Delphi程式設計中獲取作業系統資訊 (轉)

在Delphi程式設計中獲取作業系統資訊 (轉)[@more@]

在中獲取操作資訊

  我們日常的程式設計中，常常會去判斷所使用的是什麼？為什麼要這麼做，因為：為了使應用適應不同的作業系統，能讓它執行得更好！如在執行某個應用程式前，應先判斷使用者所使用的是WIN95/98，還是WIN NT。雖然這兩個都是常用的作業系統，但在某些方面是完全不同的，在WIN95/98上執行得很好的程式不一定在WIN NT上也能執行得很好，所以不同的作業系統應有不同的程式程式碼以適應不同的需要，也為了使程式執行得更好更穩定。:namespace prefix = o ns = "urn:schemas--com::office" />

那怎樣才能知道使用者使用的作業系統是什麼呢？我們可以利用來解決，方法如下：

首先做準備工作，新建工程，在PROM1上放上一個LABEL1(CAPTION為空)與一個BUTTON1(CAPTION為獲取作業系統資訊)，其他屬性不變，然後輸入以下程式程式碼：

 

unit GETVER;

interface

uses

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

type

  TForm1 = class(TForm)

   Button1: TButton;

  Label1: TLabel;

  procedure Button1Click(Sender: T);

  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.dwPlatfod=VER_PLATFORM__WINDOWS THEN

  LABEL1.Caption:='您使用的作業系統是：WINDOWS95/98';

 

 

IF GETVER.dwPlatformId=VER_PLATFORM_WIN32_NT THEN

  LABEL1.Caption:='您正使用的作業系統是：'; 

end; 

 end.

現在請執行一下(按F9)，怎麼樣！是否成功？

不清楚的地方請與作者聯絡：to:zch619@.com">zch619@hotmail.com，或者可以自己檢視相應的API函式說明，筆者就不再重述了！

注：以上程式在，DELPHI5.0版中透過。