델파이 하드디스크 시리얼 알아내기

델파이 하드디스크 시리얼 알아내기

 

 

 

function TF_Main.ReadHDDSerial: String; 

var 

  MC, FL, PDW : DWord; 

begin 

  GetVolumeInformation( nil, nil, 0, @pdw, mc, fl, nil, 0 ); 

  Result := IntToStr(pdw); 

end;