菜鸟求教高手，如果我知道一个正在运行的进程名，如何杀掉正在运行的这个进程，非常感谢

能否给出具体的代码段。我写了下面的代码段，是从网上查到的，稍微修改了一下，但总在 id:=strtoint('$'+'test.exe');报错。另外请帮我看一下后面的语句是否有问题，非常感谢
procedure TForm1.Button1Click(Sender: TObject);
var
  processhndle:integer;
  id:dword;
begin
 id:=strtoint('$'+'test.exe');
 processhndle:=openprocess(PROCESS_ALL_ACCESS,false,id);
 terminateprocess(processhndle,0);
end;