nil ) then Exit; finally CloseHandle(hDevice); end; end; with PIdSector(PChar(pOutData)+16)^ do begin ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber)); SetString(Result,sSerialNumber,SizeOf(sSerialNumber)); end; end;
//============================================================= var s : String; rc : DWORD; begin s := GetIdeDiskSerialNumber; if s='''''''' then begin rc := GetLastError; if rc=0 then WriteLn(''''IDE drive is not support SMART feature'''') else WriteLn(SysErrorMessage(rc)); end else begin WriteLn(''''Disk serial number: '''''''''''', s,''''''''''''''''); Readln; end; end.
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
