[Lazarus] GetVolumeInformation

[Héctor Fiandor Rosario]

Dear sirs:

I have used for years with Delphi5 the following function to get de series 
number of the harddisk (c)

function GetVolumeID(DriveChar: Char): String;
//Para obtener el # de serie de un disco
var
   MaxFileNameLength, VolFlags, SerNum: DWord;
begin
   if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
      @SerNum, MaxFileNameLength, VolFlags, nil, 0)
   then
   begin
       Result := IntToStr(SerNum);
   end
   else
       Result := '';
end;

and now, with FreePascal, I have to use something as this for the same 
proposal.

Somebody can help me with this task?

Thanks in advance,

yours truly,

Ing. Héctor F. Fiandor
hfiandor at infomed.sld.cu