【结帖】不支持指针,ShellExecuteEx函数不能调用怎么办**

kitchan

我们需要写一个启动外部程序并等待它结束的函数,查了一下发现，有两个Win32 API函数可以利用：ShellExecuteEx 或者CreateProcess。
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 := Forms.Application.Handle;
    lpFile := PChar(AppName);
    lpParameters := PChar(Params);
    nShow := sw_ShowNormal;
  end;
  Result := ShellExecuteEx(@ShellExInfo);
  if Result then
    WaitForSingleObject(ShellExInfo.HProcess, INFINITE);
end;

Function WinExecEx(cmd:string)word;
var
  StartupInfo:Borland.Delphi.Windows.TStartupInfo;
  ProcessInfo:Borland.Delphi.Windows.TProcessInformation;
  i:integer;
begin
  //FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb:=SizeOf(StartupInfo);
  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=SW_SHOWNORMAL;

  if not Borland.Delphi.Windows.CreateProcess('',cmd,nil,nil,False,Create_new_console
     or Normal_priority_class,nil,'', StartupInfo, ProcessInfo) then
  begin
    Result:=0;
    exit;
  end;
  WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
  Result:=ProcessInfo.dwProcessId;
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
end;


现在写了两个函数,第一个有指针参数不能编译,第二个可以编译但始终不能运行程序
请问还有没有其它方法可以实现这个函数

zfang

平台对指针不太支持
可以考虑做成dll然后当作第三方控件导入到平台
具体请以Import在论坛搜索（需要 delphi6+Sp2）

kitchan

library CommonLib;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  Windows,
  ShellAPI;

{$R *.res}
function ExecAppWait(hwnd:HWND; AppName, Params: string): Boolean;stdcall;
var
  ShellExInfo: TShellExecuteInfo;
begin
  FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
  with ShellExInfo do begin
    cbSize := SizeOf(ShellExInfo);
    fMask := see_Mask_NoCloseProcess;
    Wnd := hwnd;
    lpFile := PChar(AppName);
    lpParameters := PChar(Params);
    nShow := sw_ShowNormal;
  end;
  Result := ShellExecuteEx(@ShellExInfo);
  if Result then
    WaitForSingleObject(ShellExInfo.HProcess, INFINITE);
end;

exports
  ExecAppWait;

begin
end.


我用delphi 写了一个编译成DLL ,要怎么导入?看了一下手册

对于
没有对象信息的动态库，Delphi不能够自动生成类型声明信息，需要按照
Delphi的语法，自己手工的把输出的过程的声明写成.pas文件（一定要保
证文件在 Delphi中编译通过），其他的步骤不变。

不知道要怎么声明.pas文件

zfang

参考代码
const
  dllName = 'DLLName';

  function ExecAppWait(hwnd:HWND; AppName, Params: string): Boolean;stdcall;
implementation

  function ExecAppWait(hwnd:HWND; AppName, Params: string): Boolean;stdcall;export;external dllName;

kitchan

我已经导入成功, 但在平台中调用出错,调用代码:
CommonLib.CommUnit.ExecAppWait(0,'calc.exe','');
运行时出错,现把资源文件和出错界面上传

kitchan

版本2435 　请给个例子

zfang

楼主，这是我做的，测试通过
ShellExecEX.ShellExecuteExPas.ExecAppWait('C:\WINDOWS\system32\calc.exe','');
  jsDialogs.ShowMsg('End','ok');

zfang

楼主，还有问题吗？
没问题就结帖了！！