: FIND-FILES ( addr u xt -- ) \ addr u - имя искомого файла или шаблон \ xt ( addr u -- ) - процедура вызываемая для каждого файла { addr u xt \ data id }
0 addr u + C! /WIN32_FIND_DATA ALLOCATE THROW -> data data /WIN32_FIND_DATA ERASE data addr FindFirstFileA -> id id -1 = IF data FREE DROP EXIT THEN data cFileName ASCIIZ> xt EXECUTE BEGIN data id FindNextFileA WHILE data cFileName ASCIIZ> xt EXECUTE REPEAT id FindClose DROP data FREE DROP ;
\ : TT TYPE CR ; \ : T S" d:\cherezov\news\*.*" ['] TT FIND-FILES ;
по просьбе трудящихся пример кода, работающего со структурой данных:
[code] \ из папки Черезова: devel\~ac\lib\win\file\FINDFILE.F \ поиск файлов по шаблону и выполнение групповых действий \ над файлами
: FIND-FILES ( addr u xt -- ) \ addr u - имя искомого файла или шаблон \ xt ( addr u -- ) - процедура вызываемая для каждого файла { addr u xt \ data id }
0 addr u + C! /WIN32_FIND_DATA ALLOCATE THROW -> data data /WIN32_FIND_DATA ERASE data addr FindFirstFileA -> id id -1 = IF data FREE DROP EXIT THEN data cFileName ASCIIZ> xt EXECUTE BEGIN data id FindNextFileA WHILE data cFileName ASCIIZ> xt EXECUTE REPEAT id FindClose DROP data FREE DROP ;
\ : TT TYPE CR ; \ : T S" d:\cherezov\news\*.*" ['] TT FIND-FILES ;
[quote="вопрос"]это где именно?[/quote]
ДА в принципе всё там-же: http://www.nncron.ru/forums/viewtopic.php?f=5&t=9559
Вернее удалось обойтись апи-ёй GetProcessMemoryInfo. :D
Добавлено: Сб июл 12, 2008 21:44
вопрос
Заголовок сообщения:
это где именно?
это где именно?
Добавлено: Сб июл 12, 2008 12:03
Ilya
Заголовок сообщения:
Я думаю, что мы тему раскрыли (на другом форуме)?
Я думаю, что мы тему раскрыли (на другом форуме)? ;)
Добавлено: Сб июл 12, 2008 11:16
вопрос
Заголовок сообщения:
может просто никто не зашёл из тех, кто пользуется
может просто никто не зашёл из тех, кто пользуется
Добавлено: Пт июл 11, 2008 21:02
AlikasS
Заголовок сообщения:
никто не пользуется такими функциями из dll?
никто не пользуется такими функциями из dll?
Добавлено: Пт июл 11, 2008 19:33
AlikasS
Заголовок сообщения:
работа с импортируемыми функциями из dll
покажите плиз как в форте работать например с
функцией NtQuerySystemInformation (импортируется из ntdll.dll)
узнать сколько памяти занимает процесс?
конкретно что требуется, здесь
http://www.nncron.ru/forums/viewtopic.php?f=5&t=9559 не столь важно как это будет в nnCron, а например как будет на SPF
вообще как работать с функциями dll где такие массивы структур.
было бы познавательно
покажите плиз как в форте работать например с
функцией NtQuerySystemInformation (импортируется из ntdll.dll)
узнать сколько памяти занимает процесс?
конкретно что требуется, здесь
http://www.nncron.ru/forums/viewtopic.php?f=5&t=9559
не столь важно как это будет в nnCron, а например как будет на SPF
вообще как работать с функциями dll где такие массивы структур.
было бы познавательно