var root: PChar;
    res: LongBool;
    VolumeNameBuffer, FileSystemNameBuffer: PChar;
    VolumeNameSize,FileSystemNameSize: DWORD;
    VolumeSerialNumber, MaximumComponentLength, FileSystemFlags: DWORD;
    s: String;