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

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

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

Как определить в 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

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

Zeta

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

@Sasha K 3 / 3 / 0 Регистрация: 17.11.2009 Сообщений: 210
	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 0