Как определить серийный номер файловой системы

Как определить сериальный номер файловой системы

procedure tform1.button1click(sender: tobject);
var serialnum: pdword;
a,b: dword;
buffer: array [0..255] of char;
begin
new(serialnum);
if getvolumeinformation('c:\',buffer,sizeof(buffer),serialnum,a,b,nil,0) then
label1.caption:=inttostr(serialnum^);
dispose(serialnum);
end;

Источник: http://delfaq.wallst.ru

*****************************************************

The following function is a wrapper for the GetVolumeInformation API and
returns the serial number of the drive passed as parameter:

  function GetVolumeSerialNumber(const drive: TFilename): longword;
  var
    VolumeName, FileSystemName: array[0..MAX_PATH-1] of char;
    VolumeSerialNumber, MaxFilenameLength, FileSystemFlags: longword;
  begin
    GetVolumeInformation(PChar(IncludeTrailingBackslash(drive)),
      VolumeName, MAX_PATH, @VolumeSerialNumber, MaxFilenameLength,
      FileSystemFlags, FileSystemName, MAX_PATH);
    Result := VolumeSerialNumber;
  end;

Sample call:

  procedure TForm1.Button1Click(Sender: TObject);
  var
    serial: longword;
  begin
    serial := GetVolumeSerialNumber('C:\');
    ShowMessage(IntToHex(HiWord(serial), 4)
        + '-' + IntToHex(LoWord(serial), 4));
  end;

Эта запись была добавлена в Среда, 7 мая, 2008 - 22:15 В разделы Операционная система, Файловая система. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.