如问题
解决方案 »
- TcxTreeList节点
- 请问ctrl+Z得Ascii码或16进制表示是什么啊?
- 求助 偶只有一台机子能不能练习开发测试多层程序
- 如何在TLISTVIEW控件里改变某一行字的颜色
- 用什么来操作SQL,ADO还是BDE???还是。??
- 请问怎样把memo里的内容打印出来???
- 我如何才能知道TreeView里边没有数据?
- 怎么保存透明的图呢?高手来吧不信看看:)!要DELPHI代码哦。
- 百分求教!如何用编辑TdbgridEh控件中的memo(备注)字段。
- 怎样用程序把Sql Sever一个表中的部分数据备份成数据文件??
- 网络数据提交与下载问题,恳请各位多多赐教!
- 有人弄过类似这样的网管软件吗?
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while ContinueLoop do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_ALL_ACCESS,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;