Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to start default browser
Message
From
02/09/1999 18:07:00
Alex Zhadanov
Computer Generated Solutions
New York City, New York, United States
 
 
To
02/09/1999 16:38:06
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00260713
Message ID:
00260885
Views:
18
>>Hi people!
>>Is it possible to start default browser or default email engine from
>>foxpro 2.6?
>>Thank you Alex.
>
>Yep...
>
>Start Default Browser
>
>=lbShellEx('blank.htm')
>
>Start Default Mailer
>
>=lbShellEx('mailto:')
>
>The mailto will actually start your associated URL:MailTo Protocol program defined in your File Types. I assumed there is an association for the default mailer, but I don't know what it is.
>
>Here is the lbShellEx function... you will need FoxTools.fll set to for this to work.
>
>BOb
>
>
>
>function lbShellEx
>******************* Copyright of Geac Computers, Inc.  *********************
>* Name        : lbShellEx
>* Purpose     : Run an external program using the windows API
>*             :
>* Originated  : 05/12/1999 RKA
>*             :
>* Parameters  : lcFileName, lcPath
>* Called from :
>* Returns     : .t. if successfull  .f. if failed
>****************************************************************************
>parameters lcFile, lcPath
>
>private lnShellEx, lcOp, lcArg, llRetVal, lnRetVal
>
>if pcount() = 1
>   lcPath = ''
>endif
>lcOp = 'open'
>lcArg = ''
>
>** -- Register Win API
>lnShellEx = RegFN("ShellExecute","I@C@C@C@CI","I","SHELL.DLL")
>
>** -- CALL API Function
>lnRetVal = CallFN(lnShellEx, 0, @lcop, @lcfile, @lcarg, @lcpath, 9)
>
>** -- Prepare return value
>llRetVal = (lnRetVal > 32)
>
>return llRetVal
>
Thank you very much.
It's exactly what i need.
One more small question:
How can i put email addresses into "TO" and "FROM" boxes when i open default mailer?
Thanks . Alex
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform