Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

FOX Visual 5 [Win95/98]

Zimin © (2002-06-19 03:42:00)
Как запустить внешнее приложение из FOXa?

VID (2002-06-19 15:29:00) [1]
*****************************************
* 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

sniknik (2002-06-19 08:45:00) [2]
тем не менее
! dir
! command.com
во всяком случае в досовском фоксе.

Dennn_is (2002-06-19 07:54:00) [3]
это форум по Дельфи

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »