如何运行,如何关闭其他应用程序.
解决方案 »
- 用Adoquery和DbGrid显示数据,怎么在Dbgrid中把数据库中为0、1的数据显示为是否?
- 一个非常奇怪的问题。
- 请教大师解决dbexpress联不上mysql问题?
- 如何得到网卡的MAC号?或者硬盘的物理号码?急,分不够在加!!
- 当建立了cs之后怎么对远程数据进行操作
- [100]怎样把用batchmove转移多个dbf的表到一个SQL的表中?
- Delphi中如何连接Paradox和Access数据库?
- 怎么返回文件的’创建时间‘和’修改时间‘还有“文件大小"!
- 老鱼,老千,推荐一个制作帮助的软件吧,偶用了耶书制造,感觉不太好,有没有其他中文的呢?//牛虻
- 怎样知道本机的计算机名?
- 我如何在自己先的组件里面添加一个Txxx属性?
- 怎么用数据表中字段的序号取出其中的内容
ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL);
or
ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL);
关闭时 sendmessage wm_close
begin
//获得句柄-->标题不确定
ExeHandle:=FindWindow('notepad',nil);//'');//返回句柄
//关闭程序
if ExeHandle<>0 then
SendMessage(ExeHandle,WM_Close,0,0)
else
Application.MessageBox('没有打开“记事本”程序!','提示',
MB_IconInformation+MB_OK);
end;
关闭的方法好象不行
begin
//获得句柄-->标题不确定
ExeHandle:=FindWindow(nil,'想关闭的程序的标题');//关闭程序
if ExeHandle<>0 then
SendMessage(ExeHandle,WM_Close,0,0)
end;