杀死一个正在运行的程序
敬业的IT人
互联网
佚名
2008-1-4 15:54:22
procedure KillProgram(Classname : string; WindowTitle : string);
const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(Classname, WindowTitle);
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;
const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(Classname, WindowTitle);
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;
- 最新文章
- 怎样修改windows里的开始按钮的位图？[01-04]
- 使用DLL文件中封装的窗口[01-04]
- 平滑SpeedButton[01-04]
- StatusBar有多个子栏时,如何确定鼠标在状态栏上双击时..[01-04]
- 菜鸟入门之浅谈函数重载和多态的区别[01-04]
- 几本我不喜欢的Delphi书籍（之一）[01-04]
- 相关文章
