Вставлена ли дискета в дисковод. Vfp

13.07.2010, 09:28. **Показов** 1057. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Как определить в Visual Foxpro вставлена ли дискета в дисковод?

@Sasha K · 04.08.2010, 13:46

proc testa
* lparameter dr
m.dr = 'A:'
Declare integer GetDiskFreeSpace in kernel32.dll string @ lpRootPathName,;
integer @ lpSectorsPerCluster, integer @ lpBytesPerSector,;
integer @ lpNumberOfFreeClusters, integer @ lpTotalNumberOfClusters
Declare integer GetLastError in kernel32.dll
Declare integer SetErrorMode in kernel32.dll integer d
m.lp = 0
m.lp1 = 0
m.lp2 = 0
m.lp3 = 0
m.d = 0x1
=SetErrorMode(m.d)
if GetDiskFreeSpace(@dr, @lp, @lp1, @lp2, lp3) = 1
m.dr = .t.
else
m.dr = .f.
endif
=SetErrorMode(0)
clear dlls
return m.dr
endproc

Zeta
		1
	Вставлена ли дискета в дисковод. Vfp 13.07.2010, 09:28. Показов 1057. Ответов 1 Метки нет (Все метки) Как определить в Visual Foxpro вставлена ли дискета в дисковод?

@Sasha K 3 / 3 / 0 Регистрация: 17.11.2009 Сообщений: 210
	04.08.2010, 13:46	2
	proc testa * lparameter dr m.dr = 'A:' Declare integer GetDiskFreeSpace in kernel32.dll string @ lpRootPathName,; integer @ lpSectorsPerCluster, integer @ lpBytesPerSector,; integer @ lpNumberOfFreeClusters, integer @ lpTotalNumberOfClusters Declare integer GetLastError in kernel32.dll Declare integer SetErrorMode in kernel32.dll integer d m.lp = 0 m.lp1 = 0 m.lp2 = 0 m.lp3 = 0 m.d = 0x1 =SetErrorMode(m.d) if GetDiskFreeSpace(@dr, @lp, @lp1, @lp2, lp3) = 1 m.dr = .t. else m.dr = .f. endif =SetErrorMode(0) clear dlls return m.dr endproc 0

Опции темы