Так пойдет, вообще в "кишках"
фоксовского 'About'
вызывается этот экзешник,
ток аконечно он разный в опер. системах,
но я чтоб огород с проверкой не городить
вызываю так:

TRY
OpenWinExt("MSINFO.EXE")
OpenWinExt("MSINFO32.EXE")
CATCH
FINALLY
ENDTRY

FUNCTION OpenWinExt
lPARAMETERS cNamefile,isprint
LOCAL buff,cCommand
DECLARE LONG GetFocus IN WIN32API
DECLARE INTEGER ShellExecute IN Shell32.dll INTEGER,STRING,STRING,STRING,STRING,INTEGER
buff = cNamefile+CHR(0)
IF isprint
cCommand = "print"
ELSE
cCommand = "open"
ENDIF
hwd=GetFocus()
return(ShellExecute(hwd,cCommand,@buff,NULL,NULL,1) )
*}
lnResult=ShellExecute
IF lnResult < 0x32
Do Case
Case nresult = 2 && File not found
Wait WINDOW 'Файл не найден'
Case nresult = 3 && Path not found
Wait wind 'Неверный путь'
Case nresult = 5 && Access denied
Wait WINDOW 'Запуск невозможен'
Case nresult = 8 && Not enough memory
Wait WINDOW 'Недостаточно памяти для запуска приложения'
Case nresult = 0x32 && DLL Not found
Wait WINDOW 'DLL не найдена'
Case nresult = 0x26 && Sharing violation
Wait WINDOW 'Попытка совместного доступа'
Case nresult = 0x27 && Invalid file association
Wait WINDOW 'Неправильная ассоциация файла'
Case nresult = 0x28 && DDE Timeout
Wait WINDOW 'DDE Timeout'
Case nresult = 0x29 && DDE Fail
Wait WINDOW 'DDE Fail'
Case nresult = 0x30 && DDE Busy
Wait WINDOW 'DDE занято'
Case nresult = 0x31 && No association
Wait WINDOW 'С данным файлом не сопоставлено никакое приложение'
Case nresult = 0x11 && Invalid EXE format
Wait WINDOW 'Неверный формат EXE'
Otherwise
Wait WINDOW 'Неизвестная ошибка'
Endcase
ENDIF

ENDFUNC