Re: HMG 3.4.4
Posted: Sun Jun 28, 2020 5:02 pm
Actually, everything you touch on the screen is like a mouse click.
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
Code: Select all
Function RunHttpsLink(cAddress)
Execute file cAddress
Return
Zmień w h_label.prg w funkcji _DefineLabel wiersz:mol wrote: ↑Mon Dec 18, 2023 6:44 pm I've placed hyperlink control in my form.
It's address starts with "https" protocol.
And the problem is that my application starts mail application not internet browser.
When I change "https" to "http", default browser is correctly opened.
The problem is that I need https address...
How to solve it?
Code: Select all
_HMG_SYSDATA [ 6 ] [k] := if ( valtype ( ProcedureName ) = 'C' , if ( HMG_LOWER ( HB_ULEFT ( ProcedureName , 7 ) ) == 'http://' , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + ProcedureName , ,1)} , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + ProcedureName , ,1)} ) , ProcedureName )
Code: Select all
_HMG_SYSDATA [ 6 ] [k] := if ( valtype ( ProcedureName ) = 'C' , if ( HMG_LOWER ( HB_ULEFT ( ProcedureName , 7 ) ) == 'http://' .Or. HMG_LOWER ( HB_ULEFT ( ProcedureName , 8 ) ) == 'https://' , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + ProcedureName , ,1)} , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + ProcedureName , ,1)} ) , ProcedureName )