这个进程当然是能够通过Ctrl-Alt-Del中断的。
解决方案 »
- 300分求解,这个问题困扰我很久了!!!!我发了3个贴子,每个100分!~~~~求解!!~~~~~~~~
- borland中国收费是假的
- 怎么把资源(如图片)直接编译到exe中?最好有例子程序!
- 请教大家关于一个导出数据到excel的问题
- 如何在菜单中调用一个指定窗口的指定事件
- 通过串口连接到手机,在写程序发送中文短信时,是否要特别指明是中文短信?
- 进来者就是风流倜傥,英俊潇洒,才高八斗,貌似藩安,号称一朵梨花压海棠,送绰号上天下
- adoquery的问题
- 能不能将这段D的代码翻译成VC的,谢谢了,在线等
- 空间命名扩展中的“目录”重命名问题
- 解释题*^_^*谢谢!!!
- DBGrid控件的小问题 价值20分
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('notepad.exe');
end;