Wie bekomme ich die Seriennummer der Festplatte?

[RomanK]

Das ist 1:1 aus dem Edh:

Zitat:

Seriennummer eines Laufwerkes herausfinden


Diese Funktion liefert die Seriennummer zurück. Als Parameter musst Du das Laufwerk angeben:

Code:

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;

Es handelt sich dabei nur um eine Nummer, die bei der Formatierung erzeugt wird, sie bezieht ich auf die Partition. Diese Nummer wird beim Klonen einer Festplatte mit übertragen und auf der gleichen Festplatte haben verschiedene Partitionen meist auch verschiedene Nummern (Hinweis von Peter Haas)

Verwende diese Funktion, wenn Du Delphi 3 hast:

Code:

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;

{Haeggen}