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);用于调用系统的'打开方式...'对话框来打开该文件
  • 相关阅读:
    如何在Mac OS X上安装 Ruby运行环境
    CocoaPods安装和使用教程
    【Objective-C】07-自定义构造方法和description方法
    window cmd 命令大全 (order)
    vue methods 方法中 方法 调用 另一个方法。
    js ---- 函数防抖
    three.js 运行3D模型
    点击保存网页 (及页面的数据)
    js -- canvas img 封装
    js -- 分页功能
  • 原文地址:https://www.cnblogs.com/MaxWoods/p/337314.html
Copyright © 2011-2022 走看看