Окна в Vista

[Михаил Юрьевич]

Подскажите: в своей программе я в определенное время сворачиваю все окна,в частности игру.Вот этот код на XP работает с играми не плохо,из 10 игр 9 сворачивает,а под Vista не одной игры не сворачивает,только сворачивает открытые приложения на рабочем столе. Подскажите проверенный код для сворачивания игр в Vista

unit Unit13;
interface
uses
    Windows, Messages;
Function EnumProc (WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
var
   Total:integer;
implementation
Function EnumProc (WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
   Begin
    If (GetParent (WinHandle) = 0) and (not IsIconic (WinHandle)) and 
    (IsWindowVisible(WinHandle)) Then
    PostMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    Inc(Total);  EnumProc := TRUE;
   End;
end.