FOX Visual 5

← →
Zimin (2002-06-19 03:42) [0]

Как запустить внешнее приложение из FOXa?

← →
Dennn_is (2002-06-19 07:54) [1]

это форум по Дельфи

← →
sniknik © (2002-06-19 08:45) [2]

тем не менее
! dir
! command.com
во всяком случае в досовском фоксе.

*****************************************
* FileRun ("имя файла", "<параметры>") *
*****************************************

FUNCTION FileRun

LPARAMETERS cFile , _cParams
LOCAL nWhnd, cStartPath, nResult, cMsg
DECLARE INTEGER ShellExecute IN SHELL32 INTEGER hwnd, STRING cOP, STRING cFile, ;
STRING cParams, STRING cStartDir, INTEGER nShowCmd
DECLARE INTEGER GetDesktopWindow IN User32

nWhnd = GetDesktopWindow()
cStartPath =substr (CFile , 1 , Rat("\", Cfile))
nResult = ShellExecute(nWhnd, "OPEN", cFile, _cParams, cStartPath, 1)
cMsg = ""
IF nResult < 0x32
DO CASE
CASE nResult = 2 && File not found
cMsg = "Указанный файл не найден"
CASE nResult = 3 && Path not found
cMsg = "Указанный путь не найден"
CASE nResult = 5 && Access denied
cMsg = "Доступ к указанному файлу запрещен"
CASE nResult = 8 && Not enough memory
cMsg = "Недостаточно памяти для запуска приложения"
CASE nResult = 0x11 && Invalid EXE format
cMsg = "Неверный формат EXE"
CASE nResult = 0x26 && Sharing violation
cMsg = "Ошибка совместного доступа"
CASE nResult = 0x27 && Invalid file association
cMsg = "Ассоциация имени файла является неполной или недействительной"
CASE nResult = 0x28 && DDE Timeout
cMsg = "Операция DDE не была закончена, потому что истекло время запроса"
CASE nResult = 0x29 && DDE Fail
cMsg = "Операция ПРЯМОГО ВВОДА ДАННЫХ (DDE) потерпела неудачу"
CASE nResult = 0x30 && DDE Busy
cMsg = "Операция ПРЯМОГО ВВОДА ДАННЫХ(DDE) не может работать, потому что другие действия DDE находятся в процессе"
CASE nResult = 0x31 && No association
cMsg = "Нет приложения, связанного с указанным типом файла"
CASE nResult = 0x32 && DLL Not found
cMsg = "DLL не найдена"
OTHERWISE
cMsg = "Неизвестная ошибка"
ENDCASE

ENDIF

RETURN cMsg

FOX Visual 5 Найти похожие ветки