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;

//执行网页，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转意。这样就方便了

程序内部调用的通用信。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有