Problem beim auslesen der Festplatten Seriennummer

[ascotlx]

Moin moin,

wie wär es mit GetVolumeInformation DP-Artikel . Ein Freund hat das mal so gemacht ....

Delphi-Quellcode:

function GetVolSNr:DWORD;
var
    dwSerialNumber : DWORD;
    dwMaxLength    : DWORD;
    dwFlags        : DWORD;

begin
    GetVolumeInformation(PChar('C:\'), nil, 0,
                         @dwSerialNumber, dwMaxLength,dwFlags,
                          nil, 0);
    Result := dwSerialNumber;
end;

Vielleicht hilft Dir das ja weiter ... (danke michael)

Gruss

ascotlx