如何结束用WinExec()调用的外部程序
程序如下，是利用WinExec()调用DEWEsoft.exe。然后在按下btn2，程序退出后，DEWEsoft.exe并没有结束，我想知道怎么才能让程序结束后，调用的DEWEsoft也同时结束。
先谢谢各位了
还有一个问题，就是用Chart组件能作出X-Y记录仪吗？怎么做呢
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,WinProcs,SHELLAPI,StdCtrls;
type
TForm1 = class(TForm)
pnl1: TPanel;
btn1: TButton;
btn2: TButton;
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn2Click(Sender: TObject);
begin
close
end;
procedure TForm1.btn1Click(Sender: TObject);
var
h :HWND;
begin
WinExec('C:\Program Files\Dewetron\DEWEsoft66\DEWEsoft.exe',SW_SHOWNORMAL);
h := FindWindow(nil,'DEWEsoft');
windows.SetParent(h,pnl1.Handle);
SetWindowPos(h, 0, 0, 0, pnl1.Width , pnl1.Height, SWP_NOZORDER);
end;
end.
[解决办法]
var
h :HWND; // 变成全局变量就行了
然后在FORMCLOSE事件里写上
SendMessage(h, WM_CLOSE, 0, 0);
