線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2226
推到 Plurk!
推到 Facebook!

可否在WINDOWS ME/2000/XP內取得硬磁盤之硬件序號

 
alexyip007
一般會員


發表:5
回覆:4
積分:1
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-04-15 14:45:32 IP:202.175.xxx.xxx 未訂閱
過往在DOS和WINDOWS 9X COMMAND PROMPT內可取得磁碟盤之硬件序號,但ME/2000/XP此招行不通, 煩請教各方好朋友幫忙指教, 多謝.
lee
站長


發表:55
回覆:173
積分:45
註冊:2002-02-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-04-15 20:09:01 IP:61.219.xxx.xxx 未訂閱
引言: 過往在DOS和WINDOWS 9X COMMAND PROMPT內可取得磁碟盤之硬件序號,但ME/2000/XP此招行不通, 煩請教各方好朋友幫忙指教, 多謝.
試試下面這段程式,用Delphi 5.0 windows 2000
function GetDiskSerialNumber(value:char):string;
var
  VolumeLabel, FileSystem: Array[0..$FF] of Char;
  SerialNumber, DW, SysFlags: DWord;
begin
  result:='';
  Value := UpCase(Value);
  if (Value >= 'A') and (Value <= 'Z') then
   begin
    GetVolumeInformation(PChar(Value   ':\'), VolumeLabel, SizeOf(VolumeLabel),
                         @SerialNumber, DW, SysFlags,
                         FileSystem, SizeOf(FileSystem));
    result:=format('%x',[SerialNumber]);
   end
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  caption:=GetDiskSerialNumber('C');
end;    
~~~Delphi K.Top網站總管~~~
------
~~~Delphi K.Top網站總管~~~
alexyip007
一般會員


發表:5
回覆:4
積分:1
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-04-16 09:40:30 IP:202.175.xxx.xxx 未訂閱
Lee 君, 多謝你的資料, 但此程序取得的只是FORMAT HARD DISK由 OS 所產生的 SERIAL NUMBER, 不是 HARDWARE SERIAL, HARDWARE SERIAL是和HARD DISK 出廠之SERIAL NUMBER 一樣的.
alexyip007
一般會員


發表:5
回覆:4
積分:1
註冊:2002-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-04-16 09:40:55 IP:202.175.xxx.xxx 未訂閱
Lee 君, 多謝你的資料, 但此程序取得的只是FORMAT HARD DISK由 OS 所產生的 SERIAL NUMBER, 不是 HARDWARE SERIAL, HARDWARE SERIAL是和HARD DISK 出廠之SERIAL NUMBER 一樣的.
系統時間:2017-10-23 23:01:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!