Данная API функция позволяет определить имя диска
	и его серийный номер 

	function long GetVolumeInformationA( ref string ls_RootPath, &
	   ref string ls_VolName, long ll_VolLen, ref string ls_volserial, &
	   long ll_maxcomplen, long ll_systemflags, &
	   ref string ls_SystemName,&
	   long ll_SystemLen ) Library 'kernel32'
	
	String ls_Volume
	String ls_Drive, ls_FileSys, ls_Flags, ls_Serial
	Long ll_Max, ll_Flags, ll_RC, ll_FileSys
	Long ll_Volume
	
	ls_Drive = as_Volume
	ls_Volume = Space(32)
	ls_FileSys = Space(32)
	ls_Serial = Space(32)
	ll_Volume = Len( ls_Volume )
	ll_FileSys = Len( ls_Filesys )
	
	ll_RC = GetVolumeInformationA( ls_Drive, ls_Volume, ll_Volume, &
		ls_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