بستن برنامه سرور از طریق کلاینت

[tabaprg]

با سلام و عرض ادب و احترام
با جستجویی که کردم متوجه شدم که به نظر نمیشه از طریق رویداد onexecute کامپوننت idtcpserver برنامه رو بست چون باید به main thread پیغام بستن برنامه رو بفرستیم و بنده نمیدونم چطور اینکارو بکنم و آیا راه دیگری هم وجود داره؟
در ضمن تونستم با اجرای دستور winexec و taskkill پراسس مربوطه رو از بین ببرم ولی اینراه همچین دلچسب نیست.

[tabaprg]

با این تابع حل شد:

procedure TForm3.ShutDownCmd();

var

  MsgResult: LongBool;

begin

  MsgResult := PostMessage(Form3.Handle, WM_CLOSE, 0, 0);

end;