取得驱动器的卷标
|
我想建立一个新的资源管理器部件,来仿真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 调用函数时将驱动器名字作为参数。 |