如何结束 windows 任务管理器里面的某一个进程？(50分)

如何查找windows 任务管理器里面是否有某一个进程，有的话结束 windows 任务管理器里面的这一个进程，例如要结束windows 任务管理器里的photoshop.exe这个进程，应该如何做？

要求要在win98和win2000以上系统都能正常使用的。

handle := findwindow(nil,photoshop.exe);
sendmessage(handle,wm_close);

var
Ok: Bool;
ProcessHandle: Thandle;
ProcessListHandle: Thandle;
Processstruct: TProcessentry32; //user tlhelp32;
begin

ProcessListHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
Processstruct.dwSize := sizeof(Processstruct);
ok := process32first(ProcessListHandle, processstruct);

while Ok do
begin

if ansilowercase(Processstruct.szExeFile) = 'photoshop.exe' then
begin

ProcessHandle := OpenProcess(PROCESS_TERMINATE, False, Processstruct.th32ProcessID);
TerminateProcess(ProcessHandle, 0);
CloseHandle(ProcessHandle)

end;

ok := Process32Next(ProcessListHandle, Processstruct);

end;

closehandle(ProcessListHandle);

tlhelp32 不能在win98 上用的？

顶

ding