程序代码:
Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer
Declare Integer GetDesktopWindow In Win32api
*lcFile = "D:\Fc.ico"
lcFile = "D:\a1.xls"
lnWnd = GetDesktopWindow()
=Shellexecute(lnWnd,"open",lcFile,"","D:\",1)
Clear dlls