DIRECTORY() and ShellExecute()

[Jimmy]

hi,

Code: Select all  Expand view

  aDir := DIRECTORY( cPath + "\*.*", "DHS" )
   oGrid:aSource := aDir

   cFile := oGrid:aSource[nRow][nCol]
   IF FILE(cPath + cFile )
      // open with associate App
      MsgInfo( TRIM( cPath+cFile ))
      nRet := ShellExecute( oWnd:hWnd, "open", CHR(34)+ TRIM( cPath+cFile ) +CHR(34)  )

MsgInfo() show right Path+Filename
nRet is 42

this does open PRG File (with NPP++) but not TXT (with Notepad)

--

does DIRECTORY() return UNICODE or ANSI or OEM
do i use ShellExecute() wrong

total confuse ...

[Enrico Maria Giordano]

I need a complete sample to test it here.

[Jimmy]

hi Enrico,

I need a complete sample to test it here.

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION MAIN()
LOCAL oWnd
LOCAL aDir := DIRECTORY( "DSL*.*" )
LOCAL cFile

   msginfo(hb_valToExp(aDir))
   cFile := aDir[1][1]
   msginfo(cFile)

      DEFINE   WINDOW oWnd
      ACTIVATE   WINDOW oWnd;
               ON   INIT   MsgInfo  ( oWnd:  ReadImage  (   "DSL_Verfügbarkeit2.JPG"   )  [   1   ]   )
RETURN   NIL

as i can say the Problem are German "Umlaut ü " in Filename

[Jimmy]

hi,

have got Answer here
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42330

but still no Solution

[Jimmy]

hi,

i have now test this

i have a File TEXT.TXT but it still does not "open"

Code: Select all  Expand view

IF FILE(cPath + cFile )
   MsgInfo( cPath + cFile )
   nRet := ShellExecute( oWnd:hWnd, "open", TRIM( cPath+cFile )  )

File() des exist
MsgInfo() show full Path and Filename
nRet is 42

what i´m doing wrong

[Antonio Linares]

Dear Jimmy,

This is working fine here:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   ShellExecute( 0, "open", "checkres.txt" )

return nil

[Jimmy]

hi Antonio,

This is working fine here:

Code: Select all  Expand view

#include "FiveWin.ch"
function Main()
   ShellExecute( 0, "open", "checkres.txt" )
return nil

it seems i have a big Problem while your Sample does not work on my PC (under 32 Bit OS )

i have create a File "checkres.txt" and "fill" it but when run your CODE it does not "open"
i know that TXT is assign to NotePad.EXE and it work under Xbase++ and HMG

i will try it on other PC and under 64 Bit

---

i use c:\fwh\samples\buildh.bat under 32 Bit OS with BCC7
i saw that my INCLUDE and LIB Environment still point to Xbase++ and HMG but not to FiveWin

BCDIR=c:\bcc7
FWDIR=c:\fwh
fwh=c:\fwh
GT=gtgui
HBDIR=C:\HARBOUR
hdir=C:\HARBOUR
hdirl=C:\HARBOUR\lib\win\bcc

INCLUDE=C:\ALASKA\XPPW32\INCLUDE;c:\ALASKA\XBTW32\INCLUDE\;c:\exp19\Include\;c:\hmg.3.4.4\INCLUDE\;
LIB=C:\ALASKA\XPPW32\LIB;c:\ALASKA\XBTW32\LIB\;c:\exp19\Lib\;c:\hmg.3.4.4\lib\;

Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;C:\WINDOWS\System32\OpenSSH\;C:\Program Files\dotnet\;C:\ALASKA\XPPW32\BIN;C:\ALASKA\XPPW32\LIB;C:\ALASKA\XBTW32\BIN;C:\ALASKA\XBTW32\LIB;c:\exp19\bin19_sl1\;c:\exp19\Lib\;D:\DOS\BAT;D:\DOS\NC;D:\DOS\TOOL;D:\DOS\ETP;D:\DB3U;C:\Users\a\AppData\Local\Microsoft\WindowsApps;c:\HMG.3.5\2\hmg_webview2\WebView2\Win32;c:\fwh\dll;

do i need to change INCLUDE and LIB Environment

[Antonio Linares]

better clean those environment variables and lets see if that makes the difference

[Jimmy]

hi Antonio,

i saw in Taskmanager / User many "Editor" ... but i can´t "see" them ... hm
so i change CODE to

Code: Select all  Expand view

   ShellExecute( 0, "open", "checkres.txt" ,,,SW_SHOW)

and voila Notepad appear

i guess also other have work but it was "hidden" ...

[Enrico Maria Giordano]

Right, forgot that parameter, sorry.