Delphi FAQ

Jak odczytać numer seryjny partycji lub dyskietki

Adam Boduch
var
 Bufor:array[0..MAX_PATH] of Char;
 MaxCompLength, FileSystemFlags: Cardinal;
 Drive:Char;
 Serial:DWORD;
begin
 Drive:='A';
 GetVolumeInformation(PChar(Drive + ': '),Bufor,SizeOf(Bufor),
  @Serial,MaxCompLength,FileSystemFlags,nil,0);
end;

Zmienna Serial posiada numer seryjny dyskietki, a Bufor etykietę. W przypadku dysku podaje numer partycji.

FAQ

3 komentarzy

a jak to wyświetlić w edit?

Ale ja będe bo musi być, innaczej error wyskakuje :P

Nie wiem czy mi się wydaje czy MaxCompLength, FileSystemFlags powinny być typu cardinal -> ale sprzeczać się nie będę :)