用默认软件打开jpg文件

文件(夹)问题 | 2015-03-13 11:25:32 | 阅读 903 次 | 评论(0)
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
文章评论,共0条
游客请输入验证码
浏览240653次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...