OpenEuphoria

WinHelp Help Please

• Posted by Irv <irv at ELLIJAY.COM> Aug 14, 1998
• 1022 views

Has _anyone_ been able to get WinHelp to work?
I've tried all sorts of ways, no errors, but nothing ever happens.

-- WinHelp commands:
constant HELP_CONTEXT      =  #0001,
         HELP_QUIT         =  #0002,
         HELP_INDEX        =  #0003 -- etc

atom user32, winhelp

user32 = open_dll("user32.dll")
if user32 = 0 then
  puts(1,"Error opening user32")
  abort(1)
end if
winhelp = define_c_proc(user32,"WinHelpA",{C_INT,C_POINTER,C_INT,C_INT})
if winhelp = -1 then
  puts(1,"Error finding WinHelp")
  abort(2)
end if

global procedure GetHelp(atom whandle, sequence filename, atom command,
atom data)
atom pStr
  pStr = allocate_string(filename)
  c_proc(winhelp,{whandle, pStr, command, data})
  free(pStr)
end procedure

GetHelp(Win,"CALC.HLP",HELP_INDEX,0) -- does nothing when called like
this

I also tried it as define_c_func, and c_func, with the same zero
results.
What am I doing wrong?

TIA

Irv