Процедура FileExecute

FileExecute( FileName )    Запускает приложение, связанное с файлом через расширение, и загружает в него файл

FileName  - Имя файла (с расширением).

Процедура запускает приложение ассоциированное в Windows с расширением файла, и загружает в него файл.  Например, для файлов с расширением '.doc' скорее всего будет запущен WinWord, для файлов '.xls' - Excel и т.д.   Функция работает только в 32-разрядных приложениях.

FileExecute PROCEDURE (FileName)

loc:Handle    USHORT
loc:RetHandle USHORT
loc:File      CSTRING(256)
loc:Path      CSTRING(256)
loc:Param     CSTRING(256)
loc:Show      USHORT
loc:Op        CSTRING

CODE

  loc:File   = FileName
  loc:Handle = 0{PROP:Handle}    ! Это ноль, а не буква О.  Указывает на текущее окно
  loc:Op     = 'open'
  loc:Path   = PATH()
  loc:Param  = ''
  loc:Show   = 1
  loc:RetHandle = ShellExecute(loc:Handle,loc:Op,loc:File,loc:Param,loc:Path,loc:Show)

Прототип функции ShellExecute должен быть описан как:

OMIT('***',_WIDTH32_)
ShellExecute(HWND,*LPCSTR,*LPCSTR,*LPCSTR,*LPCSTR,SIGNED),HINSTANCE,PASCAL,RAW,NAME('ShellExecuteA')
***

Я, обычно, помещаю прототипы функций Windows API в файл WinAPI.clw, который находится в подкаталоге Libsrc основного каталога Clarion.   Как использовать функции Windows API  в приложениях на Clarion описано в разделе Windows API.

 

Hosted by uCoz