最干净的ForceForegroundWindow
procedure ForceForegroundWindow(h: HWND); var Input: TInput; begin ZeroMemory(@Input, SizeOf(Input)); SendInput(1, Input, SizeOf(Input)); SetForegroundWind
procedure ForceForegroundWindow(h: HWND); var Input: TInput; begin ZeroMemory(@Input, SizeOf(Input)); SendInput(1, Input, SizeOf(Input)); SetForegroundWind