Delphi Shell

原创 2003年07月25日 13:19:00

 

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

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.

上面可以看到FileName我是用String定义的。然后用Pchar转意。这样就方便了

程序内部调用的通用信。

Delphi实现shell扩展

转贴自网上余昊 的pdf格式,经过自己的整理,放于此共享。本博客转贴文章无意侵犯版权,如有,请先通知,本博客会即刻处理1. 准备工作1.  对注册表做一些工作。因为任何外壳扩展都是作为DLL加载到Ex...
  • xkdcc
  • xkdcc
  • 2006年12月09日 10:25
  • 2959

shell ftp mget

#!/bin/bash ftp -n
  • xiao_jun_0820
  • xiao_jun_0820
  • 2012年08月04日 14:59
  • 2766

[delphi] 直接操作Socket API写木马其实很简单(监听篇)

PrettySky原创,转载注明出处和作者是个好习惯。记得在我刚接触Delphi编程不久的时候,对编写木马特别感兴趣,我尝试过,不过我写的服务器端木马特别大,究其原因?因为我像开发GUI程序那样搞服务...
  • gzxiaorou
  • gzxiaorou
  • 2008年09月25日 05:06
  • 3808

Windows 外壳扩展

类型 适用于 版本 有关的接口 描述 上下文菜单 Context Menu  文件类和外壳对象 Windows 95+ ...
  • u012108436
  • u012108436
  • 2014年10月23日 11:14
  • 531

shellapi

ShellExecute使用详解 有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂,比较少用。 ...
  • Jiang_Mr
  • Jiang_Mr
  • 2015年11月23日 08:48
  • 524

以不同方式向Shell函数传递数组参数

比较调用Shell函数时以不同方式传递数组参数的区别 Shell脚本文件如下: #!/bin/sh function demo1 {     echo "Number of params...
  • beiyangxiao
  • beiyangxiao
  • 2011年08月30日 21:17
  • 4132

shell 操作 sftp例子

#!/bin/sh cd /data/ftproot/aic/SY_P1000_Zeal/inbound/test sftp lf119195@sftp2.geps.ge.com
  • zxnm55
  • zxnm55
  • 2014年02月10日 15:53
  • 1227

adb shell input keyevent(sendevent)

adb shell进入android设备,运行getevent命令得到如下信息,为各类事件的驱动设备。 最近做LCD模组的gamma自动化测试过程中用到了input命令,于是也来了解一下该命...
  • shandian000
  • shandian000
  • 2017年01月18日 09:46
  • 576

获取上个月第一天和最后一天日期

搜来的代码: int year = DateTime.Now.Year;//当前年 int mouth = DateTime.Now.Month;//当前月 int beforeYear ...
  • ShunYea
  • ShunYea
  • 2013年03月02日 11:41
  • 3091

使用shell命令去除文件中的BOM

由于使用一些编辑器会导致文件中有BOM,在Linux下使用VIM可以看到这样的标签,查看其字节组成可以找出其16进制表示为EF BB BF。可以使用bash命令来去除BOM:       grep -...
  • was22491686
  • was22491686
  • 2014年12月01日 14:42
  • 339
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi Shell
举报原因:
原因补充:

(最多只允许输入30个字)