[Alegun]

Для своих окон это

Код:

var
  old: hwnd;
  flg: boolean;

procedure TForm1.WMHotKey(var Message: TMessage);
begin
 if flg then ShowWindow(old, SW_SHOW) else
  begin
   old:= GetActiveWindow; // GetForegroundWindow;
   ShowWindow(old,SW_HIDE);
  end;
 flg:= not flg;
end;

прекрасно работает

З.Ы. А с GetForegroundWindow и с чужими, проверил