Problems with shellexecute()

[Frank Demont]

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

[Enrico Maria Giordano]

Try

Code: Select all  Expand view

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

EMG