争怎路由网:是一个主要分享无线路由器安装设置经验的网站,汇总WiFi常见问题的解决方法。

Delphi Shell

时间:2024/6/23作者:未知来源:争怎路由网人气:

因为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;

//执行网页,Email,普通程序
procedure TShellExecute.Execute ;
begin
ShellExecute(self.FHandle,'open',PChar(self.FExeName),nil,nil, SW_SHOW);
end;

//查找指定文件
procedure TShellExecute.FindExe;
begin
ShellExecute(self.FHandle,'find',PChar(self.FExeName),nil,nil, SW_SHOW);
end;

//打印文件
procedure TShellExecute.PrintExe;
begin
ShellExecute(self.FHandle,'print',PChar(self.FExeName),nil,nil, SW_HIDE);
end;

//关闭程序
procedure TShellExecute.ClosePrg;
begin
 self.FHandle:=FindWindow(nil,PChar(self.FExeName));
  if FHandle<>0 then
    SendMessage(self.FHandle,WM_Close,0,0)
  Else
    raise TShellException.Create('The Programm is null')
end;

procedure TShellExecute.SetExeName(Value : string);
begin
 if value <> '' then
    self.FExeName:=Value
 else
    raise TShellException.Create('The Name should not Null');
end;

procedure TShellExecute.SetHandle (Value : HWND);
begin
  if Value > 0 then
     self.FHandle:=value
  else
     raise TShellException.Create('The Handle should not Null');
end;

end.




关键词:Delphi Shell




Copyright © 2012-2018 争怎路由网(http://www.zhengzen.com) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版