auf richtigen InputDesktop prüfen (für GetCursorPos)

[VizeTE]

Hallo,

ich habe gerade gelernt das Mouse.Cursor (also GetCursorPos) eine Exception wirft wenn der Desktop der Anwendung nicht der InputDeskop ist.
Das MSDN schlägt mir vor mit OpenInputDesktop dieses zu prüfen. Aber wie stelle ich das an?

Ich habe folgendes probiert (Delphi 5):

Delphi-Quellcode:

function CheckDesktopIsActive: boolean;
var
  hProcDesktop  : HDESK;
  hInputDesktop : HDESK;
begin
  Result        := false;
  hInputDesktop := 0;
  hProcDesktop  := 0;

  try
    //Handle des Desktops auf dem das Programm läuft ermitteln
    hProcDesktop := GetThreadDesktop(GetCurrentThreadId);
    if hProcDesktop = 0 then
      Exit;

    //Handle des aktuellen Eingabe-Dektops ermitteln
    hInputDesktop := OpenInputDesktop(0, false, 0);

    Result := hProcDesktop = hInputDesktop;
  finally
    if hInputDesktop <> 0 then
      CloseDesktop(hInputDesktop);
  end;
end;

Aber das schlägt immer fehl weil "hInputDesktop <> hProcDesktop".

Oder reicht es etwa schon aus das OpenInputDesktop einen Wert ungleich 0 zurückliefert? Das würde bestimmt so sein wenn es einer Anwendung auf Desktop A nicht erlaubt ist Desktop B zu öffnen. Aber ob das so ist... keine Ahnung.