强行关闭程序的问题

messah 2004-04-30 09:55:56
我写的一个程序要强行关闭另外一个程序,但是那个要被关闭的程序在退出是有提示要你确认是否提示。所以使用sendmessage(HWndMis,WM_CLOSE,0,0)语句无法关闭此程序,请问如何才能通过程序方式强行关闭此程序。
...全文
53 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
CityhunterID 2004-04-30
up
  • 打赏
  • 举报
回复
fim 2004-04-30
是的
在你这里,你可以写成project1.exe
  • 打赏
  • 举报
回复
messah 2004-04-30
如果关闭的是excel.exe,是不是将excel.exe写入所有以上代码中strExeName的位置中?
  • 打赏
  • 举报
回复
fim 2004-04-30
uses TLHelp32;

procedure TerminateExe(strExeName);//eg : 'Excel.exe'
var
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
Ret : BOOL;
ProcessID : integer;
s:string;
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
Ret:=Process32First(FSnapshotHandle,FProcessEntry32);
while Ret do
begin
s:=UpperCase(ExtractFileName(FProcessEntry32.szExeFile));
if s=UpperCase(strExeName) then
begin
ProcessID:=FProcessEntry32.th32ProcessID;
TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,ProcessID),1);
s:='';
end;
Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
  • 打赏
  • 举报
回复
相关推荐
发帖
Windows SDK/API
加入

1163

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2004-04-30 09:55
社区公告
暂无公告