//声明:
  GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄}


//举例:
var
  h: HWND;
begin
  h := GetActiveWindow;
  FlashWindow(h, True);
end;