OpenEuphoria

Re: WinHelp Help Please

• Posted by Nate Brooman <nateb at LOG.ON.CA> Aug 14, 1998
• 1029 views

Yes, acually I have got it to work, with Liberty BASIC and Euphoria. You
have to search your system to find the "area" which calls WinHelp. I don't
have any source code to it, because I don't use WinHelp. Goto
http://world.std.com/~carlg/ and download Liberty BASIC and look at the
examples "calldll*.bas". Shouldn't be hard to port the code to Euphoria.

- Nate Brooman
[nateb at log.on.ca]

-----Original Message-----
From: Irv <irv at ELLIJAY.COM>
To: EUPHORIA at LISTSERV.MUOHIO.EDU <EUPHORIA at LISTSERV.MUOHIO.EDU>
Date: August 14, 1998 12:38 AM
Subject: WinHelp Help Please


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