*
* SystemUtils.H  Version 1.0
* Мясников Ю.И 2001(с)
*
* Описание функций
*
*--------------------------------------------------------------------------------------------------------------------------------
*1. Выполнить DOS-пограмму и ждать ее завершения
*   вызов:
*   integer tiResult _ExecuteDosProcessAndWait( string tsCommand, integer tiHowShow )
*   Регистрировать в VFP:  
*   declare integer _ExecuteDosProcessAndWait in SystemUtils.dll string, integer 
*   где tsCommand - коммандная строка, напрмер C:\ARJ.EXE A TEST.ARJ
*       tiHowShow - как показывать окно ( DOS-окно  )
*       tiResult - код завершения, если 1 - выполнено, 0 - ошибка       
* Далее привелены возможные значения tiHowShow
#define SW_HIDE             0
#define SW_SHOWNORMAL       1
#define SW_NORMAL           1
#define SW_SHOWMINIMIZED    2
#define SW_SHOWMAXIMIZED    3
#define SW_MAXIMIZE         3
#define SW_SHOWNOACTIVATE   4
#define SW_SHOW             5
#define SW_MINIMIZE         6
#define SW_SHOWMINNOACTIVE  7
#define SW_SHOWNA           8
#define SW_RESTORE          9
#define SW_SHOWDEFAULT      10
#define SW_FORCEMINIMIZE    11
#define SW_MAX              11

#define SU_FAILED           0
#define SU_SUCCESS          1 
*
* Примечания:
* 1.Функция может выполнять также и Windows прграммы :);
* 2.Для нормальной работы DOS-программы необходимо наличие
*  в директории WINDOWS _default.pif в котором
*  включено "Закрывать окно по завершению сеанса работы",
*  в противном случае будет Hang-Up!
*--------------------------------------------------------------------------------------------------------------------------------
2.Выбор директоии пользователем
*   вызов:
*   integer tiResult _GetDirectory( string tsDirectory, string tsTitle, integer tiStyle )
*   Регистрировать в VFP:  
*   declare integer _GetDirectory in SystemUtils.dll string@, string , integer
*   где tsDirectory - выбранная директория/стартовая директория
*       tsTitle - поясняющий текст
*       tiStyle - стиль диалога 
#define SU_OLDGETDIR_STYLE     1 && Стиль Windows98
#define SU_NEWGETDIR_STYLE    2 && Силь Windows2000
*       tiResult - код завершения, если 1 - выполнено, 0 - ошибка 