Для правильной настройки программного комплекса при работе
в локальной вычислительной сети необходимо убедиться в том, что пути поиска
компонентов и их размещение указаны правильно. В этом вам поможет процедура Inform, результаты работы которой показаны на
рис. 4.31. Она также размещена в процедурном файле FileProc.
Текст процедуры Inform:
PROCEDURE Inform && Информация о компьютере
DEFINE
WINDOW INFO FROM 2,5 TO 27,135;
TITLE ' Информация ';
FONT "COURIER NEW",10;
FLOAT CLOSE ZOOM GROW MINIMIZE;
STYLE "B"
ACTIVATE
WINDOW INFO
?
[ Процессор ...................... ]+SYS(17)
?
[ Дисплей ........................ ]+SYS(2006)
?
[ Разрешение дисплея ............. ]+;
ALLTRIM(STR(SYSMETRIC(1),4,0))+;
[ на ]+ALLTRIM(STR(SYSMETRIC(2),4,0))
? [ Сетевой диск ................... ]+SYS(2020)+[ байт]
? [ Имя компьютера ................. ]+SYS(0)
? [ Работник ....................... ]+FAMILY
? [ Диск по умолчанию .............. ]+SYS(5)
? [ Текущая папка .................. ]+SYS(2003)
? [ Папка
запуска Visual FoxPro ... ]+SYS(2004)
? [ Папка временных файлов ......... ]+SYS(2023)
? [ Файл ресурсов .................. ]+SYS(2005)
? [ Максимальное число файлов ...... ]+SYS(2010)
? [ Текущий принтер ................ ]+SYS(6)
?
[ Версия Visual FoxPro ........... ]+PADR(VERSION(),16)
? [ Номер Visual FoxPro ............ ]+SYS(9)
? [ Памяти для внешней программы ... ]+SYS(12)+[ байт]
? [ Доступная Visual FoxPro память . ]+SYS(1001)+[
байт]
? [ Файл конфигурации FoxPro
....... ]+SYS(2019)
? [ ]
RETURN