[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

Hi

> From:          Henry Holland <hholland@CNO.COM.BR>
> Can someone perhaps give me the pascal translation of the
> GetVolumeInformation C-function? I'm not exactly sure how to
> implement these windows API functions - which parameters are
> variable?

Here's a little bit of what I used.  Does it make any sense?

procedure YaddaYaddaYadda;
VAR
 RootPathBuf, VolNameBuf,FileSysNameBuf : PChar;
 NameBufSize, VolSerialNumber,
 MaxFileNameLength,FileSysFlags : dword;
Begin
  NameBufSize := 256;
  RootPathBuf := StrAlloc(NameBufSize);
  VolNameBuf := StrAlloc(NameBufSize);
  FileSysNameBuf := StrAlloc(NameBufSize);
  RootPathBuf := 'A:\';
  IF GetVolumeInformation(RootPathBuf,VolNameBuf,NameBufSize,
              @VolSerialNumber,MaxFileNameLength,
              FileSysFlags,FileSysNameBuf,NameBufSize)
   THEN
     Begin
       Whatever;
     End;
  StrDispose(RootPathBuf);
  StrDispose(VolNameBuf);
  StrDispose(FileSysNameBuf);
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]