Seriennummer eines Laufwerkes ermitteln

[Luckie]

Delphi-Quellcode:

function GetSerialNumber(Const ADrive: Char): Integer; 
var 
  SerialNum : pdword; 
  a, b : dword; 
  Buffer  : array[0..255] of char; 
begin 
  Result:=0; 
  if GetVolumeInformation(PChar(ADrive+':\'), 
                          Buffer, 
                          SizeOf(Buffer), 
                          SerialNum, 
                          a, 
                          b, 
                          nil, 
                          0) then 
    Result:=SerialNum^; 
end;

Oder für Delphi 3:

Delphi-Quellcode:

function GetSerialNumber(const ADrive: Char): Integer; 
var 
     tmp: Integer; 
     buffer: array[0..19] of Char; 
     SerialNum: PDWORD; 
begin 
  try 
    GetVolumeInformation(PChar(ADrive+':\'), 
                         @buffer[0], 
                         SizeOf(buffer), 
                         @SerialNum, 
                         tmp, 
                         tmp, 
                         nil, 
                         0); 
      Result := SerialNum^; 
  except 
    On EAccessViolation Do 
  end; 
end;

Aus einem Beitrag von FuckRacism.