zoukankan      html  css  js  c++  java
  • Wndows外壳编程调用"打开方式..."对话框来打开文档

    例: 
    在use中加入ShellAPI单元 
     
    var 
       FilePath:string; 
       ShellReturn:integer; 
    begin 
       FilePath:=文件路径+文件名 
       if  FilePath<>''  then 
           begin 
               ShellReturn:=ShellExecute(Handle,PChar('Open'),PChar(filepath),nil,nil,1); 
               if  ShellReturn<=32  then 
                   case  ShellReturn  of 
                       0                                          :  messagebox(handle,'系统资源不足,文件打开失败!','失败',MB_OK+MB_ICONSTOP); 
                       SE_ERR_ASSOCINCOMPLETE:  messagebox(handle,'指定的文件名不符合windows规范','失败',MB_OK+MB_ICONERROR); 
                       SE_ERR_FNF                        :  messagebox(handle,'指定的文件没有找到','失败',MB_OK+MB_ICONERROR); 
                       SE_ERR_OOM                        :  messagebox(handle,'没有足够的内存完成操作,文件打开失败!','失败',MB_OK+MB_ICONSTOP); 
                       SE_ERR_PNF                        :  messagebox(handle,'指定的目录没有发现','失败',MB_OK+MB_ICONERROR); 
                       {当返回值表示该类型文件未在系统中注册时,调用系统'打开方式...'对话框} 
                       SE_ERR_NOASSOC                :  winexec(PChar('rundll32  shell32,OpenAs_RunDLL  '+FilePath),SW_SHOWDEFAULT); 
                       else 
                           messagebox(handle,'文件打开失败','失败',MB_OK+MB_ICONERROR); 
                   end; 
           end; 
    end; 
     
    在这里: 
    ShellExecute(Handle,PChar('Open'),PChar(filepath),nil,nil,1);用于直接打开已注册过的文件(也可以是网页,程序等) 
     
    winexec(PChar('rundll32  shell32,OpenAs_RunDLL  '+FilePath),SW_SHOWDEFAULT);用于调用系统的'打开方式...'对话框来打开该文件
  • 相关阅读:
    Jquery 公告 滚动+AJAX后台得到数据。
    图片上添加文字。
    javascript的window.onload与jquery的$(document).ready()
    后台JS写法
    Ajax xmlhttprequest原理(一)
    SQL语句二次排序。先根据是否置顶字段。再根据最后更新时间排序。
    引以为戒的SQL语句写法
    C#中var关键字怎么用 ~
    上传文件 解析
    简易公告
  • 原文地址:https://www.cnblogs.com/MaxWoods/p/337314.html
Copyright © 2011-2022 走看看