Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

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
во всяком случае в досовском фоксе.


 
VID ©   (2002-06-19 15:29) [3]

*****************************************
* 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



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-47313
SDv-503
2002-07-01 00:17
2002.07.15
Как программно нажать на .... (+)


1-47278
Tahion
2002-06-25 10:11
2002.07.15
Как в AdvStringGrig изменить величину прокрутки ScrollBar-a?


8-47609
Саня
2002-02-28 14:00
2002.07.15
Как вырезать кадр из AVI


1-47483
yakshe
2002-07-03 18:05
2002.07.15
подключить необходимый фрейм к Panel


1-47430
Alexander
2002-07-02 13:52
2002.07.15
Пытаюсь зашифровать файл функцией EncryptFile.