FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Problems with shellexecute()
Posts: 142
Joined: Sun Oct 09, 2005 10:59 AM
Problems with shellexecute()
Posted: Fri Jun 16, 2006 09:08 AM

Hello,

Today , i have problems , when i try to use :

? Shellexecute(GetActiveWindow(),"open",xlsfile) // returns 42 , not a error

The xlsfile is created with ClipWks (for xharbour) and can be launched from windows with clicking on it.

FUNC MAIN(cFile)
IF cFile == nil
cFile := "c:\program Files\Microsoft Works\wksss.exe c:\temp\HulpTxt4.xls"
END
? Winexec(cFile) // Ok , it works !!!!!!!
cFile := "c:\temp\HulpTxt4.xls"
? shellexecute(GetActiveWindow() ,"open" ,cFile)
// doesn't work , shows only shortly the logo , return code 42
? "ok shellexecute"
RETURN

After this shellexecute the xls-file has to be closed with the task manager

So far as i know , till yesterday there were no problems , i don't know what has changed !

Frank

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Problems with shellexecute()
Posted: Fri Jun 16, 2006 07:15 PM
Try

? shellexecute( 0, 0,"c:\program Files\Microsoft Works\wksss.exe", "c:\temp\HulpTxt4.xls", 0, 1 )


EMG

Continue the discussion