Jak odczytać numer seryjny dysku?

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.

Odczytujesz numer partycji.
Poszukaj na forum: było o tym całkiem niedawno.

Neisety, szukam, szukam i znalezc nie moge. Rzeczywiscie bylo PELNO tego typu postow na forum, ale nigdzie ine ma konkretnej, jednoznacznej odpowiedzi. Albo sa linki do jakis niezrozumialych kursow angielskojezycznych, alebo odp. w stylu "poszukaj sobie" - latwo powiedziec!

Jedyne co znalazlem to to:

http://4programmers.net/Forum/viewtopic.php?id=58228&post=158464#158464

Niestety, ten przyklad podobno i tak ine dziala, a jak dziala to nie na wszystkich dyskach :(

Czy w ogole da sie rozwiazac ten problem z odczytem nunmeru seryjnego???? HELP