【Delphi】保持視窗在最上層

在 Form 內放個 Timer,

在 Timer 寫入 ----

SetForegroundWindow(Handle);
// 模擬按下Enter鍵
keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0);
// 模擬放開Enter
keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN, 0), KEYEVENTF_KEYUP, 0);

在 XP 驗證有效, 在未找到正解前, 先頂著用.