Page 1 of 1

Problems with shellexecute()

Posted: Fri Jun 16, 2006 9:08 am
by 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

Re: Problems with shellexecute()

Posted: Fri Jun 16, 2006 7:15 pm
by Enrico Maria Giordano
Try

Code: Select all

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