Código Delphi [-]h := FindWindow(nil, PCHAR(s)); if (h <> 0) and (MessageBox(0, 'Programa Prohibido Detectado!'+#13+'¿Cerrarlo?', 'Alerta', +MB_YESNO + mb_ICONWARNING) = IDYES) then PostMessage(h, WM_CLOSE, 0, 0);
h := FindWindow(nil, PCHAR(s)); if (h <> 0) and (MessageBox(0, 'Programa Prohibido Detectado!'+#13+'¿Cerrarlo?', 'Alerta', +MB_YESNO + mb_ICONWARNING) = IDYES) then PostMessage(h, WM_CLOSE, 0, 0);