发送消息 关闭另外一个程序

var
h:HWND;
begin
    h := FindWindow(nil, '自动增加疫苗');
    if h<>0 then sendMessage(h, WM_CLOSE, 0,0);