Автор | Сообщение |
|
| постоянный участник
|
Пост N: 2877
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.06.13 22:10. Заголовок: Как узнать сколько свободно байт на флешке ?
Чем можно узнать свободное место на флешках, дисках и т.д. для HARBOUR (и для МиниГуи) ? Нашел пример Z:\HB32\tests\tstdspac.prg - а там глухо, нули возвращает функция hb_DiskSpace() Bytes available on disk: 0 Bytes available for use: 0 Bytes used: 0 Total bytes at D: 0
|
|
|
Ответов - 9
[только новые]
|
|
|
| |
Пост N: 3247
Зарегистрирован: 17.05.05
|
|
Отправлено: 24.06.13 22:49. Заголовок: Andrey пишет: Чем м..
Andrey пишет: цитата: | Чем можно узнать свободное место на флешках, дисках и т.д. для HARBOUR (и для МиниГуи) |
| Снова ты смешал в кучу гуй и harbour. Ну не надо их смешивать Андрей ;)
|
|
|
|
| постоянный участник
|
Пост N: 2878
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.06.13 23:45. Заголовок: Dima пишет: Снова т..
Dima пишет: цитата: | Снова ты смешал в кучу гуй и harbour |
| Да не смешиваю я их... Просто указал что не работает эта функция в Harbour 3.2 последней сборке, т.к. МиниГуи последней сборки !
|
|
|
|
| Администратор
|
Пост N: 2899
Зарегистрирован: 23.05.05
|
|
Отправлено: 25.06.13 09:07. Заголовок: Да работает эта функ..
Да работает эта функция tstdspac.exe h: Bytes available on disk: 172,453,888 Bytes available for use: 172,453,888 Bytes used: 3,824,783,360 Total bytes at h:: 3,997,237,248
|
|
|
|
| |
Пост N: 3248
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.06.13 09:10. Заголовок: diskspac.prg из \..
diskspac.prg из \svn\harbour-trunk\harbour\tests\ C:\svn\harbour-trunk\harbour\tests>diskspac.exe c: Bytes available on disk: 191,213,600,768 Bytes available for use: 191,213,600,768 Bytes used: 58,843,103,232 Total bytes at c:: 250,056,704,000
|
|
|
|
| |
Пост N: 3250
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.06.13 17:35. Заголовок: Andrey Тему убивать..
Andrey Тему убивать ?
|
|
|
|
| постоянный участник
|
Пост N: 2879
Зарегистрирован: 12.09.06
|
|
Отправлено: 26.06.13 12:37. Заголовок: Dima пишет: Тему уб..
Dima пишет: Нет ! Можно в МиниГуи перекинуть... Pasha пишет: А в МиниГуи не работает .... Что делать ? Может какую либу добавить в МиниГуи ? Вот исходник на МиниГуи... Скрытый текст #include "minigui.ch" #include "fileio.ch" #define COMPILER MiniGUIVersion() + ", " + Version() + ", " + hb_compiler() #define PROGRAMMTEST "Test disk SPACE" *-----------------------------------------------------------------------------* FUNCTION Main() *-----------------------------------------------------------------------------* LOCAL cText := COMPILER DEFINE WINDOW Form_1 ; At 0, 0 ; WIDTH 600 HEIGHT 400 ; TITLE PROGRAMMTEST ; MAIN ; NOMAXIMIZE NOSIZE ; BACKCOLOR { 159, 191, 236 } @ 10, 10 LABEL Label_9 WIDTH 590 HEIGHT 480 ; VALUE MyDiskInfo() TRANSPARENT FONT "ARIAL" ; SIZE 14 BOLD FONTCOLOR BLUE BACKCOLOR YELLOW CENTERALIG cText := StrTran(cText, "Harbour", "HB") DEFINE STATUSBAR FONT "MS Sans serif" SIZE 10 BOLD STATUSITEM cText END STATUSBAR END WINDOW CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 RETURN Nil ///////////////////////////////////////////////////////////// FUNCTION MyDiskInfo() LOCAL cRet, cDisk := "C" cRet := MiniGUIVersion() + CRLF + Version() + CRLF + hb_compiler() + CRLF + CRLF cRet += "Bytes available on disk: " + Transform( hb_DiskSpace( cDisk, HB_DISK_FREE ), "999,999,999,999" ) + CRLF cRet += "Bytes available for use: " + Transform( hb_DiskSpace( cDisk, HB_DISK_AVAIL ), "999,999,999,999" ) + CRLF cRet += " Bytes used: " + Transform( hb_DiskSpace( cDisk, HB_DISK_USED ), "999,999,999,999" ) + CRLF cRet += " Total bytes at " + cDisk + ": " + Transform( hb_DiskSpace( cDisk, HB_DISK_TOTAL ), "999,999,999,999" ) + CRLF RETURN cRet
|
|
|
|
|
| moderator
|
Пост N: 490
Зарегистрирован: 11.02.10
|
|
Отправлено: 26.06.13 12:50. Заголовок: Andrey пишет: Что д..
Andrey пишет: Измени одну строку в функции MyDiskInfo(), и все заработает цитата: | LOCAL cRet, cDisk := "C:\" |
|
|
|
|
|
| постоянный участник
|
Пост N: 2880
Зарегистрирован: 12.09.06
|
|
Отправлено: 26.06.13 12:59. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Измени одну строку в функции MyDiskInfo(), и все заработает |
| Ну вот, как всегда... Залет на пустом месте... Спасибо БОЛЬШОЕ, Григорий !!!
|
|
|
|
| |
Пост N: 3251
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.13 16:45. Заголовок: Andrey пишет: Нет !..
Andrey пишет: цитата: | Нет ! Можно в МиниГуи перекинуть... |
| Перенес Andrey пишет: цитата: | Ну вот, как всегда... Залет на пустом месте... |
| Теперь пусть модераторы раздела с этой темой разбираются.
|
|
|
|