Get_HD_Serial () 디스크 드라이브 일련 번호 얻기

{ } 

function Get_HD_Serial(const Drivedir: Char): string; 

var 

  Nu: DWORD; 

  Vf: DWORD; 

  VolumeInfo: array[0..MAX_PATH] of Char; 

  V_n: DWORD; 

begin 

  GetVolumeInformation(PChar(Drivedir + ':\'), nil, SizeOf(VolumeInfo), @V_n,Nu, Vf, nil, 0); 

  Result := Format('%x-%x',[HiWord(V_n),LoWord(V_n)]); 

 // Result := Format('%8.0X', [V_n]) 

end; 

// ID 

호출

Caption:=Get_HD_Serial('c') ;