program TerminateProcess {$APPTYPE CONSOLE} uses SysUtils, Windows var ProcessHwnd, WindowHwnd: THandle ProcessID: DWORD begin //得到记事本的主窗口句柄 WindowHwnd := FindWindow( Notepad , nil) if not isWindow(WindowHwnd) then ExitProcess(0) //得到记事本的进程标识 GetWind

五子棋，两个进程，一个黑子，一个白子，互相通讯下棋，简单使用FindWindow定位-FiveChess，process to process communication，one is black，another is White，just use FindWindow locate another.