取得驱动器的卷标
我想建立一个新的资源管理器部件,来仿真Windows的资源管理器应用程序,为了显示驱动器列表与卷标信息,使用下面的程序可以取得卷标与序列号:

1.建立一个非可视用户对象NVO并加入局部外部函数引用:

function long GetVolumeInformationA( ref string ls_RootPath, &
   ref string ls_VolName, long ll_VolLen, long ll_volserial, &
   long ll_maxcomplen, long ll_systemflags, &
   ref string ls_SystemName,&
   long ll_SystemLen ) Library 'kernel32'

2.然后定义一个GetVolumeName函数(以字符串为参数,并返回一个字符串),在函数中增加如下的代码:

// Call the API function to get the volume
// label from a drive letter
String ls_Volume
String ls_Drive, ls_FileSys, ls_Flags
Long ll_Serial, ll_Max, ll_Flags, ll_RC, ll_FileSys
Long ll_Volume

ls_Drive = as_Volume
ls_Volume = Space(32)
ls_FileSys = Space(32)
ll_Volume = Len( ls_Volume )
ll_FileSys = Len( ls_Filesys )

ll_RC = GetVolumeInformationA( ls_Drive, ls_Volume, ll_Volume, &
	ll_Serial, ll_Max, ll_Flags, ls_FileSys, ll_FileSys )

IF ll_RC = 0 THEN 
	ls_Volume = ''
ELSE
	ls_Volume = Trim( ls_Volume )
END IF

RETURN ls_Volume

调用函数时将驱动器名字作为参数。