delphi中如何獲得硬碟序列號

var 

serialnum:   dword; 
a,   b:   dword; 
volumeserialnumber:   string   ; 
key:   string   ; 
begin 
key:= ' '; 
if   getvolumeinformation(pchar( 'c:\ '), 
nil,   0,   @serialnum,   a,   b,   nil,   0)   then 
volumeserialnumber   :=   inttohex(hiword(serialnum),   4)   + 
inttohex(loword(serialnum),   4); 
key   :=   volumeserialnumber   ; 
label1.caption   :=   key   ; 
end; 

DELPHI中讀取硬碟的物理序列號

讀取硬碟的物理序列號 獲得硬碟序列號 function getideserialnumber pchar stdcall const identify buffer size 512 type tideregs packed record bfeaturesreg byte used for spe...

Delphi讀取硬碟的物理序列號

因要用到硬碟的物理序列號，從網上找了很多，最終確定使用了以下的一段程式 function tfrmmain.getideserialnumber pchar stdcall const identify buffer size 512 type tideregs packed record bfea...

在Delphi中如何獲得SQL中儲存過程的返回值

示例儲存過程 create procedure proc login username varchar 20 password varchar 20 asdeclare result int select result count from loginuser where user username...