La API GetVolumeInformation supuestamente se encuentra declarada en la unidad Windows, por lo que tendrías que agregar esta unidad a la cláusula Uses de la sección Implementation de tu unidad.
De todos modos, ya que estamos, cuando tienes que acceder a una API no declarada en alguna unidad, te fijas como es la cabecera en C y haces las conversiones correspondientes para declararla en Delphi:
interface
function GetVolumeInformation(lpRootPathName: PChar;
lpVolumeNameBuffer: PChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
lpFileSystemNameBuffer: PChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM GetVolumeInformation}
implementation
function GetVolumeInformation; external 'kernel32.dll' name 'GetVolumeInformationA';
No es estrictamente necesario que la declaración esté en la Interface (puede estar en la Implementation), pero si está en la Interface, puedes llamar la API desde todas las unidades que usen esa unidad donde la declaras.
Espero que te sirva.
Ernesto D'Spirito
http://www.latiumsoftware.com/es
