Delphi打开外部程序或文件

WinAPI: ShellExecute - 打开外部程序或文件
ShellExecute(
  hWnd: HWND;        {指定父窗口句柄}
  Operation: PChar;  {指定动作,譬如: open、print}
  FileName: PChar;   {指定要打开的文件或程序}
  Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}
  Directory: PChar;  {缺省目录}
  ShowCmd: Integer   {打开选项}
): HINST;            {执行成功会返回应用程序句柄; 如果这个值 <= 32,表示执行错误}

//返回值可能的错误有:
                       = 0   {内存不足}
ERROR_FILE_NOT_FOUND   = 2;  {文件名错误}
ERROR_PATH_NOT_FOUND   = 3;  {路径名错误}
ERROR_BAD_FORMAT       = 11; {EXE 文件无效}
SE_ERR_SHARE           = 26; {发生共享错误}
SE_ERR_ASSOCINCOMPLETE = 27; {文件名不完全或无效}
SE_ERR_DDETIMEOUT      = 28; {超时}
SE_ERR_DDEFAIL         = 29; {DDE 事务失败}
SE_ERR_DDEBUSY         = 30; {正在处理其他 DDE 事务而不能完成该 DDE 事务}
SE_ERR_NOASSOC         = 31; {没有相关联的应用程序}

//ShowCmd 参数可选值:
SW_HIDE            = 0;  {隐藏}
SW_SHOWNORMAL      = 1;  {用最近的大小和位置显示,激活}
SW_NORMAL          = 1;  {同 SW_SHOWNORMAL}
SW_SHOWMINIMIZED   = 2;  {最小化,激活}
SW_SHOWMAXIMIZED   = 3;  {最大化,激活}
SW_MAXIMIZE        = 3;  {同 SW_SHOWMAXIMIZED}
SW_SHOWNOACTIVATE  = 4;  {用最近的大小和位置显示,不激活}
SW_SHOW            = 5;  {同 SW_SHOWNORMAL}
SW_MINIMIZE        = 6;  {最小化,不激活}
SW_SHOWMINNOACTIVE = 7;  {同 SW_MINIMIZE}
SW_SHOWNA          = 8;  {同 SW_SHOWNOACTIVATE}
SW_RESTORE         = 9;  {同 SW_SHOWNORMAL}
SW_SHOWDEFAULT     = 10; {同 SW_SHOWNORMAL}
SW_MAX             = 10; {同 SW_SHOWNORMAL}
--------------------------------------------------------------------------------

//举例说明更多问题(别忘了 uses ShellAPI;):

{譬如用记事本打开一个文件}
begin
  ShellExecute(Handle,'open','notepad.exe','C:\WINDOWS\SchedLgU.Txt',nil,SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{第一个参数是用来当作错误提示窗口的父窗口的,不能是 nil,可以是 0(也就是桌面窗口)}
begin
  ShellExecute(0,SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{第二个参数如果是 nil,也会默认位 open}
begin
  ShellExecute(0,SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{文件路径可以放在参数五}
begin
  ShellExecute(0,'SchedLgU.Txt','C:\WINDOWS',SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{把参数三直接指定为要打开的文件,文件将用对应默认程序打开; 次数参数四应为 nil}
begin
  ShellExecute(0,SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{如果文件在: 程序目录/当前目录/System32/Windows/PATH环境变量中,参数五也可以 nil}
begin
  ShellExecute(0,SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{如果参数三是个文件,可以用参数二命令打印}
begin
  ShellExecute(0,'print',1);
end;
--------------------------------------------------------------------------------

{用 IE 打开网页}
begin
  ShellExecute(Handle,'IExplore.EXE','about:blank',SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{用火狐打开网页}
begin
  ShellExecute(Handle,'firefox.exe',SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{用默认浏览器打开网页}
begin
  ShellExecute(Handle,'Explorer.exe',SW_SHOWNORMAL);
end;
--------------------------------------------------------------------------------

{还是用默认浏览器打开网页}
begin
  ShellExecute(0,'http://del.cnblogs.com',1);
end;

 

Delphi技巧集六 （等待执行完一个外部程序再执行另一个程序）
Posted on 2008-08-10 23:20 清枫&明月 阅读(80) 评论(0)  编辑 收藏 网摘 所属分类: Delphi编程资料 
unit Unit1;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
  Dialogs,StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ShellAPI;  //注意

{$R *.dfm}

function ExecAppWait(AppName,Params: string): Boolean;
var
  ShellExInfo: TShellExecuteInfo;
begin
  FillChar(ShellExInfo,SizeOf(ShellExInfo),0);
  with ShellExInfo do begin
    cbSize := SizeOf(ShellExInfo);
    fMask := see_Mask_NoCloseProcess;
    Wnd := Application.Handle;
    lpFile := PChar(AppName);
    lpParameters := PChar(Params);
    nShow := sw_ShowNormal;
  end;
  Result := ShellExecuteEx(@ShellExInfo);
  if Result then
    while WaitForSingleObject(ShellExInfo.HProcess,100) = WAIT_TIMEOUT do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const    { 连续运行下面这四个EXE文件 }
  EXEFILES : array[1..4] of string =
             ('calc.exe','mspaint.exe','Notepad.exe','wordpad.exe');
var
  Success: Boolean;
  InstanceID: THandle;
  I : integer;
begin
  for I := Low(EXEFILES) to High(EXEFILES) do
    begin
    Application.Minimize;
    Success := False;
    try
       Success := ExecAppWait(EXEFILES[I],'')
    finally
      Application.Restore;
      if not Success then
        ShowMessage(Format('Application %d failed: %s',[ I,EXEFILES[I] ]));
    end;
  end;
end;

end.