4.4.3. Информация о рабочей станции

 

Для правильной настройки программного комплекса при работе в локальной вычислительной сети необходимо убедиться в том, что пути поиска компонентов и их размещение указаны правильно. В этом вам поможет процедура 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"

MOVE WINDOW INFO CENTER

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