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

[tabaprg]

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

[tabaprg]

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


procedure TForm3.ShutDownCmd();
var
MsgResult: LongBool;
begin
MsgResult := PostMessage(Form3.Handle, WM_CLOSE, 0, 0);
end;