Процедура  CallHelp   

CallHelp( FileName )     Вызывает страницу помощи, написанную на HTML

FileName  - Имя файла помощи (расширение не обязательно).

Процедура запускает основной браузер Windows и загружает в него HTML-страничку с именем FileName.  В имени файла не обязательно указывать расширение.   Путь к каталогу с файлами тоже указывать не нужно:  процедура берет его из глобальной переменной g:HelpPath.  Конечно, такая переменная должна быть обьявлена и проинициализирована при запуске программы (обычно она инициализируется из INI-фала). 

Функция работает только в 32-разрядных приложениях.

CallHelp 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
  if loc:File <> ''
    p# = instring( '.', FileName, 1, 1 )
    if p# > 0
      loc:File = sub( FileName, 1, p#-1 )
    .
    loc:File = clip(loc:File) & '.htm'
    loc:Handle = THIS{PROP:Handle}
    loc:Op = 'open'
    loc:Path = g:HelpPath
    loc:Param = ''
    loc:Show = 0
    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.

Эта функция обычно используется вместе с шаблоном Button_Help, описанном в разделе "Шаблоны".

 

Hosted by uCoz