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.
上一页 [1] [2] [3] |
