Определение свободного места на диске

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4559
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Определение свободного места на диске

Сообщение finsoftrz »

На хабе всплыла тема. Наверно, это велосипед. Может, кто скажет, как лучше в таких ситуациях делать. Соответствующей функции win api в стандартной либе клариона вроде как нет, а попытка создать libmaker из kernel32.dll вываливает большое количество прототипов, которые частично уже есть в стандартной либе. В общем, на коленке набросал вариант с динамической загрузкой. Может, кому пригодиться. Пример вызова:

Код: Выделить всё

rout_r  routine
   data
fsWinApiExtL  fsWinApiExt   
   code
   
       fsWinApiExtL.init
    
       stop(fsWinApiExtL.GetDiskFreeSpace('E:\'))
       stop(fsWinApiExtL.GetDiskFreeSpace('C:\'))
       stop(fsWinApiExtL.GetDiskFreeSpace('D:\'))
   
       fsWinApiExtL.kill 
Вложения
fsWinApiExt.zip
(2.04 КБ) 48 скачиваний
C6/C11, ШВС, tps/btrieve.
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Определение свободного места на диске

Сообщение kreator »

А где это можно применить?
We are hard at work… for you. :)
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3131
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 10 раз
Поблагодарили: 28 раз
Контактная информация:

Определение свободного места на диске

Сообщение Дед Пахом »

kreator писал(а): 09 Сентябрь 2022, 19:49 А где это можно применить?
Например, в своей программе :D
С уважением, ДП
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4559
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Определение свободного места на диске

Сообщение finsoftrz »

У себя я хотел проверять при запуске программы, сколько места осталось на диске с базой данных. В магазинах несколько раз наскакивали на недостаток места - старые компьютеры, доставшиеся в наследство. Можно в раздел "Информация о системе" подобную информацию вывести для облегчения технической поддержки.
C6/C11, ШВС, tps/btrieve.
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Определение свободного места на диске

Сообщение kreator »

finsoftrz писал(а): 09 Сентябрь 2022, 19:57 У себя я хотел проверять при запуске программы, сколько места осталось на диске с базой данных.
Наверно, да. С SQL не особо актуально. А сетевой ресурс функция отрабатывает? Имею ввиду нотацию типа "\\RemoteServer\f:".
We are hard at work… for you. :)
Ответить