Delphi Shell

• 
  　　这其实是个很老的话题在这里写。实在有点没意义。不过还是写写。因为

  shellexecute总还是在经常用到。而且平率比较高。但我不打算重点讲shell

  的参数。因为我打算做个面向对象封装。避开不必要参数方面下次调用。

  和其它界面api的参数差不多句柄。要实行的操作。程序名。后面两个不重要

  的参数。然后是消息。shellexecute主要实施的操作是。打开。查找。打印。

  因此我打算做三个函数分别封装其具体。由于要打开不同的应用程序重点

  是句柄和程序名。所以两个属性。就是它们了。然后我打算加入一个其他功能

  就是关闭应用程序。其实就是对要关闭的应用程序发送wm_close消息。

  ok我们就来封装。

  //这里自定义一个异常以方便我们使用

  unit myShell;

  interface

  uses
    Windows,  SysUtils, ShellAPI；//shellexecute就定义在ShellApi单元中
  Type
      TShellException = class (Exception)
  end;

  type
    TShellExecute = class
    private
      FExeName : string ;
      FHandle  : HWND;
      procedure SetExeName(Value : string);
      procedure SetHandle (Value : HWND);
    public
     constructor Create(h : HWND;PrgName : string );
     property  ExeName : string read FExeName write SetExeName;
     property  Handle  : HWND   read FHandle  write SetHandle;
     procedure Execute ;
     procedure FindExe;
     procedure PrintExe;
     procedure ClosePrg;
  End;

  implementation

  constructor TShellExecute.Create(h : HWND;PrgName : string );
  begin
      if (h>0) and (PrgName<>'') then
      begin
       self.ExeName:=PrgName;
       self.Handle :=h;
      end
      else
      raise TShellException.Create('Handle or PrgName is Null');
  end;

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi Shell 相关文章：
• ·Delphi Shell
• Delphi Shell 相关软件

上一篇:Delphi 常用文档资料之二

下一篇:Delphi Open Tools Api实例研究（一）

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐