Czemu ten kod sie wywala ?
var
Buf:array[0..MAX_PATH] of Char;
NotUsed,VolFlags:Integer;
DriveChar:Char;
Serial:PDWORD;
begin
DriveChar := 'a';
GetVolumeInformation(PChar(DriveChar + ':'),Buf,sizeof(Buf),
@Serial,NotUsed,VolFlags,nil,0);
end;