Here is the full routine Try
tcAction='OPEN' tcFile="http://kingcashbook.com"; Wait Window Nowait 'Opening '+tcFile Declare Integer ShellExecute ; IN SHELL32.Dll ; INTEGER nWinHandle,; 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),tcAction,tcFile,"",Sys(2023),1) ShellExecute(FindWindow(0,_Screen.Caption),tcAction,tcFile,"",Sys(2023),1) Catch =Messagebox("It seems there's a problem connecting to the internet......",0,'') Endtry On Fri, Oct 9, 2009 at 9:27 AM, Tracy Pearson <[email protected]> wrote: > What message() is in the catch? > > Are you directly returning the value of ShellExecute to the calling code? > Depending on your declaration it might be expecting a logical and the > declaring returns a numeric. > > > -----Original Message----- > >From Sytze de Boer > Sent: Thursday, October 08, 2009 3:52 PM > Subject: VFP9 - Shellexecute > > Some clients were reporting issues with a specific module in my system > So, I thought I would try something with Try/Endtry > > Within the try/endtry routine, this returns an error and goes to Catch > tcFile="http://kingcashbook.com"; > Return > ShellExecute(FindWindow(0,_Screen.Caption),tcAction,tcFile,"",Sys(2023),1) > > This doesn't > ShellExecute(FindWindow(0,_Screen.Caption),tcAction,tcFile,"",Sys(2023),1) > > Within a standard prg or form, both work fine > I don't understand why > > > > > [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.
