怎样用一个程序终止任意一个另一个程序?怎样看见系统的全部进程?
解决方案 »
- delphi中的dbchart中的饼形图怎么是一条直线
- 求教 :怎麼讓水平滾動條居中
- MTS缓冲池的问题
- Delphi用什么编程环境
- 请教:一个判断语句的条件对吗??
- “拨号连接”设置里面如何判断“连接后在通知区域显示图标(&W)”这个Button是否选中?
- 超级奇怪的问题: dxDBGrid +adoTable 请教各位??
- 请教:数据库由SQL Server转为Access时遇到的问题
- Fields[]、FieldValues[]、FieldByName()的区别,up有奖,分不够再加
- 如何将一个表中的空字段自动置0;
- Adoquery问题,非常着急!再线等,谢谢!
- PPClock 7.1 进行Alpha测试,欢迎各位大大下载
TerminateProcess(
OpenProcess(PROCESS_TERMINATE, False, GetCurrentProcessId), 0)
2.uses TlHelp32;//...
var
vSnapshot: THandle;
vProcessEntry32: TProcessEntry32;
B: Boolean;
begin
vSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
vProcessEntry32.dwSize := SizeOf(TProcessEntry32);
B := Process32First(vSnapshot, vProcessEntry32);
while B do
begin
{ TODO : 处理vProcessEntry32 }
B := Process32Next(vSnapshot, vProcessEntry32);
end;
finally
CloseHandle(vSnapshot);
end;
end;如果你想杀系统进程可以把老K的代码下来看看~~
http://www.soulan.com/kingron/dispbbs.asp?BoardID=17&ID=141
var
hWndAppClose:HWnd;
begin
hWndAppClose:=FindWindow(……);//先获得要关闭的窗口的句柄
if hWndAppClose<>0 then
SendMessage(hWndAppClose,WM_CLOSE,0,0);//给要关闭的窗口发送一个close消息
end;
该程序源代码:
program a1;
var f : text;
i,j : integer;
begin
for i := 1 to 1000 do
for j := 1 to 1000 do
begin
end;
assign(f,'a.out');
rewrite(f);
writeln(f,'a');
close(f);
end.
若用句柄终止,会出现RuntimeError150