怎样在我的程序中运行其它程序和关闭其它程序(50分)

  • 主题发起人 主题发起人 andyzhouap98111
  • 开始时间 开始时间
A

andyzhouap98111

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,
1。知道程序路径如何运行
2。如果不知路径又如何运行
 
api函数
如果是可执行文件。
WinExec(路径+文件名)

如果要调用象类似OFFICE的文件的话,要用OLE了。
CreateOleObject。

如果连路径都不知道,那我旧不清楚了;
 
怎样关闭
 
CreateOleObject。的是可以关闭的。如:创建一个AUTOCAD程序
var
aCad : OleVariant
.....
aCad := CreateOleObject('AutoCAD.Application');
。。。。
try
aCad.close(false);
except
end;

其他的可以通过以下方式关闭;
HWndCalculator:=FindWindow(nil ,'test');
if HwndCalculator<>0 then
SendMessage(HwndCalculator ,WM_CLOSE,0,0);
 
后退
顶部