[fpc-pascal]Reading and writing volume IDs

[Pierre Muller]

At 00:12 02/10/01 , vous avez écrit:
>Hi all,
>
>I thought the following:
>
>FindFirst ('c:\', volumeID, SR);
>mylabel := sr.name;

Maybe you should try
FindFirst ('c:\*.*', volumeID, SR);

The pattern is important here !
if the volume ID doesn't match the given pattern, you will
get NO_MORE_FILE (Dos error 18) as for usual files.

>would work in order to get the volume ID, but it doesn't. THe strange
>thing is that (except for misprints) such a code gives me a 'no more
>files' DOSerror under TP, and a 'file not found' (I think) under FPK.
>Now how can I read such a volume ID?