How can I get the serialnumber of disks ?

I am searching for a function which returns the serialnumber of a disk. It must
not be a delphi-function. A TP oder C-function is OK too.