Watch out for the ";" in the declare statement... they should be followed by a newline which has been stripped out.
Dave -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Dave Crozier Sent: 10 August 2011 11:52 To: ProFox Email List Subject: RE: call different browser Gary, Just had a few minutes spare to sort out finding out if you use "Program files" or "Program files(x86)" #DEFINE CSIDL_PROGRAM_FILES 0x0026 LOCAL cSpecialFolderPath, cPath cSpecialFolderPath = space(255) DECLARE SHGetSpecialFolderPath IN SHELL32.DLL ; LONG hwndOwner, ; STRING @cSpecialFolderPath, ; LONG nWhichFolder SHGetSpecialFolderPath(0, @cSpecialFolderPath, CSIDL_PROGRAM_FILES) cPath = Alltrim(cSpecialFolderPath) cPath = SubStr(cPath,1, Len(cPath)-1) Messagebox(cPath,0,"USING SHGetSpecialFolderPath") Should return "Program files" on Windows 32 bit and "Program Files(x86)" on 64 bit Hope it helps Dave -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Gary Jeurink Sent: 09 August 2011 15:32 To: 'ProFox Email List' Subject: RE: call different browser Thanks, that makes sense and it is as I suspected. My main mistake was to upgrade to I.E.9. Gary Jeurink From: Frank Cazabon [mailto:[email protected]] Sent: Tuesday, August 09, 2011 6:38 AM To: [email protected] Subject: Re: call different browser OK, what the code is doing is just passing off the file/URL to the Operating System and telling the OS to open it. This is just like if you clicked on the file or url in Windows Explorer. The easiest way for it to be opened in FireFox is to set FireFox as the default browser on the PC. Frank. Frank Cazabon Samaan Systems Ltd. - Developing Solutions www.SamaanSystems.com On 08/08/2011 08:09 PM, Gary Jeurink wrote: > I am self taught and know very little about exe and com. I make forms that > call other forms and store procedures like GoURL in the program directory > and attach them to the click method of a button. Below is GoURL > FUNCTION GoURL > ********************** > * CALL UP WEB BROWSER > ********************** > LPARAMETERS tcUrl > > tcUrl = IIF(type("tcUrl")= "C",tcUrl,; > "http://microsoft.com/";) > DECLARE INTEGER ShellExecute ; > IN SHELL32.dll ; > INTEGER nWindowHandle, ; > STRING cOperation, ; > STRING cFileName,; > STRING cParameters,; > STRING cDirectory,; > INTEGER nShowWindow > > DECLARE INTEGER FindWindow ; > IN WIN32API ; > STRING cNull,STRING cWinName > > RETURN ShellExecute(FindWindow(0,_SCREEN.caption),; > "Open",tcUrl,"","c:\temp\",0) > > And I call it with a DO ... WITH > Now how do I call firefox instead... I have done amazing things [TO me] with > Foxpro, a few books, and this forum's help. > > Gary Jeurink > > -----Original Message----- > From: Frank Cazabon [mailto:[email protected]] > Sent: Monday, August 08, 2011 8:39 AM > To: [email protected] > Subject: Re: call different browser > > Hi Gary, > > what's the code in GoURL? > > BTW, it's better if you do not hard code paths in your code as it makes > moving things around a pain. > > Just call the program like this: > DO GoURL WITH "whatever" > > and make sure GoURL is in your path or compiled into your exe/app > > Frank. > > Frank Cazabon > Samaan Systems Ltd. - Developing Solutions > www.SamaanSystems.com > > > On 07/08/2011 11:53 AM, Gary Jeurink wrote: >> A few year's back, I asked for code to attach to a button to call internet >> explorer and go to a specific URL. I didn't understand it but it worked >> great. Now I want to do the same thing but I want to call up firefox >> instead. My current version of I.E. can not do flash because of the 64 > bit >> problem. Firefox doesn't care. Can anyone help me. I have a program called >> GoURL and my button code is : >> >> do c:\alldat2\programs\GoURL with venders2.website >> >> >> >> Gary Jeurink >> >> >> >> --- StripMime Report -- processed MIME parts --- >> multipart/alternative >> text/plain (text body -- kept) >> text/html >> --- >> [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
