Witam. Odczytuje numer w ten sposób:
Function TDrives.GetSerialNumber(LiteraDysku: Char): Cardinal;
var
Bufor:array[0..MAX_PATH] of Char;
MaxCompLength, FileSystemFlags : Cardinal;
Drive:Char;
Serial:DWORD;
begin
Drive:= LiteraDysku;
GetVolumeInformation(PChar(Drive + ':'),Bufor,SizeOf(Bufor),
@serial, MaxCompLength, FileSystemFlags, nil, 0);
Result:= Serial;
end;
Niestety, przy formatowaniu odczytuje mi już inny numer :( Może jest jeszcze jakiś inny numer, który jednoznacznie identyfikowałby dysk/płytę, niezależnie od tego ile razy był formatowany?
Jak jednoznacznie zidentyfikować np. Płyty CD-RW ? Żeby było wiadomo po jej wymazaniu i ponownym wypaleniu czegos innego ze to ta plyta.