Как Закрыть Внешнее Приложение Защита На Софт (теперь С Вебкой) Rad Studio

[Lomanu4]

function shut_off(const sTitle: PChar): boolean;
var
h: THandle;
begin
h:= FindWindow(nil, sTitle);
Result:= PostMessage(h, WM_QUIT, 0, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
shut_off(PWideChar(Edit1.Text));
end;