' ========================================================================================
' Main
' ========================================================================================
FUNCTION wWinMain (BYVAL hInstance AS HINSTANCE, _
                   BYVAL hPrevInstance AS HINSTANCE, _
                   BYVAL pwszCmdLine AS WSTRING PTR, _
                   BYVAL nCmdShow AS LONG) AS LONG

   ' // Set process DPI aware
   SetProcessDpiAwareness(PROCESS_SYSTEM_DPI_AWARE)
   ' // Enable visual styles without including a manifest file
   AfxEnableVisualStyles
'---------------------insert this snippet2 here -----------------------------
dim weburl as dwstring 
    weburl = AfxUrlCreateFromPath(get_webrootpuri() & get_webrootpath())
    /'   MsgBox( "webroot url ==>T "& afxisvalidurl(weburl), MB_TASKMODAL, "Test URL isvalid")'/
     if NOT AfxPathFileExists(get_webrootpath()) then 
      MsgBox("NOT Valid  " & chr(10) &  weburl  ,MB_TASKMODAL, "Test CINI : URI + Web_Root " )  
     else
        'MsgBox("IS Valid " & chr(10) & weburl ,MB_TASKMODAL, "Test CINI : URI + Web_Root " )
      
      end if 
'----------------------eof snippet 2----------------------------------------
   ' // Dispatch Windows messages
   FUNCTION = pWindow.DoEvents(nCmdShow)

END FUNCTION

