SendMessage(FindWindow(nil,PChar('MSPY Component')),WM_CLOSE,0,0)试试