procedure asd (wnd:hwnd); var win:hwnd; begin win:= FindWindow(nil, 'Gamse'); PostMessage(win, WM_CLOSE, 0, 0); end;