var
HWndXXX : HWnd;
begin
HWndXXX := Winprocs.FindWindow(nil, 'XXX');
if HWndCalculator <> 0 then
SendMessage(HWndXXX, WM_CLOSE, 0, 0);
end;
XXX:is the program you want to end it
我给你一个函数可以查找全部运行的进程:
ok:=Process32First(ProcessListHandle,ProcessStruct);//----查找第一个进程------
while Integer(ok)<>0 do Begin
ok:=Process32Next(ProcessListHandle,ProcessStruct);//----查找第二个进程---------
End;
其中ok是Integer型,具体可以查找帮助