I need to use shellexecute to open an outlook application or an html file and assign it to a window,
but what it does is open the application or the html file in a new window.
I am using this code
- Code: Select all Expand view RUN
#include "fivewin.ch"
//------------------------------------//
#define SW_HIDE 0
#define SW_SHOWNORMAL 1
#define SW_SHOWMINIMIZED 2
#define SW_MAXIMIZE 3
#define SW_SHOWMAXIMIZED 3
#define SW_SHOWNOACTIVATE 4
#define SW_MINIMIZE 6
#define SW_SHOWMINNOACTIVE 7
#define SW_SHOWNA 8
#define SW_RESTORE 9
#define SW_SHOW 5
#define SW_SHOWDEFAULT 10
//------------------------------------//
Function Main()
Local oWnd
Local cTitle := "Main Principal"
Local cURL := "mailto:email@domain.com" // cFilePath( GetModuleFilename( GetInstance() ) ) + "btkserver.htm"
DEFINE WINDOW oWnd TITLE cTitle
ACTIVATE WINDOW oWnd;
MAXIMIZED;
ON INIT ShellExecute( oWnd:hWnd, "open", cURL,,, SW_RESTORE )
// ShellExecute( GetActiveWindow(), "open", cURL,,, SW_RESTORE )
Return Nil
