比如我打开了一个文件文件c:\1.txt,这样notepad.exe进程肯定是有了,但我怎么样能杀掉这个进程呢
有个限制: 没有进程窗体,或者看不到程序运行的窗体,也不知道窗体名
有个限制: 没有进程窗体,或者看不到程序运行的窗体,也不知道窗体名
解决方案 »
- Merry Christmas
- 请问TRAYICON的用法
- 声明了一个ADODataSet变量,引用时出错,请大侠指点(附代码)。
- 求DynamicSkinForm v5.90控件的demo 和皮肤文件,,不胜感激!!
- 请问怎样用代码实现对硬盘序列号(不是卷标号啊)的修改?
- 简单问题,谢谢了。
- 如何把Htm文件资源文件里的东东放入DLL,然后再调用
- 我不太明白键值。。。
- 问题!如何把ListBox中选中的项目删除掉?!!!!!
- 讨论:为什么很多人宁可死抱VB,或学VC。就是不愿意学Delphi?
- 如何设置ADODataSet1中的某几个字段为只读?
- 数据库table1某字段aaa每个格的英文单词如apple 变成a p p l e.(cm)
UINT uExitCode // exit code for the process
);
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
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;
另:需要在uses里面加上Tlhelp32才OK