在DELPHI中如何调用其他的应用程序.

zl1215 2003-07-11 01:04:09

如何运行,如何关闭其他应用程序.

...全文

43 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

cnssk 2003-07-11

打赏
举报

把第二个参数改成想关闭的程序的标题，不是第一个参数，我搞错了

cnssk 2003-07-11

打赏
举报

var ExeHandle:Thandle;
begin
//获得句柄-->标题不确定
ExeHandle:=FindWindow(nil,'想关闭的程序的标题');//关闭程序
if ExeHandle<>0 then
SendMessage(ExeHandle,WM_Close,0,0)
end;

zl1215 2003-07-11

打赏
举报

cnssk(小柯)
关闭的方法好象不行

cnssk 2003-07-11

打赏
举报

关闭其它的程序，只需用theone_jxm的方法把'notepad'改成你想关闭程序的caption就可以了，

如Project1

运行就用winexec

zl1215 2003-07-11

打赏
举报

notepad是关闭记事本程序,那关闭别的应用程序用什麽,没有一个通用的吗,难道每种都不同?

34535345345345345345 2003-07-11

打赏
举报

var ExeHandle:Thandle;
begin
//获得句柄-->标题不确定
ExeHandle:=FindWindow('notepad',nil);//'');//返回句柄
//关闭程序
if ExeHandle<>0 then
SendMessage(ExeHandle,WM_Close,0,0)
else
Application.MessageBox('没有打开“记事本”程序!','提示',
MB_IconInformation+MB_OK);
end;

34535345345345345345 2003-07-11

打赏
举报

findwindow 找出hwnd
关闭时 sendmessage wm_close

zl1215 2003-07-11

打赏
举报

那关闭时如何实现

myling 2003-07-11

打赏
举报

uses shellapi；

ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL);
or
ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL);

zl1215 2003-07-11