各位大虾,小弟有两个问题需要请教,还望各位大虾不吝赐教,解决问题马上给分!
1、例如我安装了一个软件,现知道他的名称为top2000,怎样才能取得他的可执行程序的路径,可执行文件为:top2000.exe2、还是上面那个top2000.exe,在他运行后,请问怎样才能使用delphi程序关闭他?
1、例如我安装了一个软件,现知道他的名称为top2000,怎样才能取得他的可执行程序的路径,可执行文件为:top2000.exe2、还是上面那个top2000.exe,在他运行后,请问怎样才能使用delphi程序关闭他?
解决方案 »
- fastReport打印图片问题
- 中间层服务器为何失去响应(SOCKET+SQL SERVER + ADO)
- 已知ftp上的一个文件完整路径,在idftp中是否可以测试该文件是否存在!
- C/S 两层中TAdoDataSet 怎么分段下载记录? UP有分哦!
- 请教
- 用Delphi编写调用SQLSERVER 7.0存储过程的程序是否一定要安装BDE才能执行?
- 怎样制作透明的Panel
- 高分求救!!!不知是delphi 本身的问题还是软件开发问头都大了???????
- 感谢CSDN的同人!
- 关于Excel的问题
- 在线等待---panel的caption怎样分行显示??
- DataSetProvider服务端问题
var
hWndClose: HWnd;
str: String;
begin
str := InputBox('提示','请输入应用程序名:','');
if str <> '' then
begin
hWndClose := FindWindow(nil, PChar(str));
if hWndClose <> 0 then
SendMessage(hWndClose,WM_CLOSE,0,0)
else
ShowMessage('没找到指定的应用程序,所以无法关闭!');
end;
end;
procedure TForm12.Button2Click(Sender: TObject);
var
wnd :HWND;
begin
wnd := FindWindow(nil,'未定标题 - 记事本');//应用程序的标题名
if wnd <>0 then
if isiconic(wnd) then
ShowWindow(wnd,sw_restore)
else
SetForegroundWindow(wnd)
else
showmessage('no such window');
end;