作者在 2015-03-13 11:25:32 发布以下内容
Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer
Declare Integer GetDesktopWindow In Win32api
lcFile = Getfile("jpg")
If Empty(lcFile)
Return
Endif
lnWnd = GetDesktopWindow()
=Shellexecute(lnWnd,"open",lcFile,"","C:\",0)
Clear dlls
