Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#1

Zugriff auf Prozessliste stört Keyboardhook

  Alt 9. Apr 2011, 12:10
Hallo,

ich bin gerade dabei, mir ein Hilfsprogramm zu schreiben, um per Tastatur mein Media Center stumm zu schalten (der eingebaute Hotkey F8 schaltet leider das System stumm und nicht die Anwendung).

Hierfür habe ich mir einen Keyboardhook geschrieben, um dann die Lautstärke entsprechend zu ändern.
Der Hook sieht so aus:
Code:
private static IntPtr SetHook(LowLevelKeyboardProc callback)
{
  var curModule = Process.GetCurrentProcess().MainModule;
  return SetWindowsHookEx(WH_KEYBOARD_LL, callback, GetModuleHandle(curModule.ModuleName), 0);
}

private static IntPtr HookCallback(int nCode, IntPtr wParam, IntPtr lParam)
{
  if (nCode >= 0)
  {
    if (wParam == (IntPtr) WM_KEYDOWN || wParam == (IntPtr) WM_SYSKEYDOWN)
      HandleKeyDown(lParam);

    if (wParam == (IntPtr) WM_KEYUP || wParam == (IntPtr) WM_SYSKEYUP)
      HandleKeyUp(lParam);
  }
  return CallNextHookEx(_hookId, nCode, wParam, lParam);
}

public static void Hook()
{
  if (_hookId != IntPtr.Zero)
    return;

  _hookId = SetHook(HookCallback);
}
Um das Media Center zu finden, muss ich dann den Prozess suchen. Hierzu hole ich mir von sämtlichen im Mixer vorhandenen Anwendungen die ProcessId und dann den Namen des Hauptfensters:
Code:
for (var i = 0; i < defaultDevice.AudioSessionManager.Sessions.Count; i++)
{
  var session = defaultDevice.AudioSessionManager.Sessions[i];

  var processName = Process.GetProcessById((int) session.ProcessID).MainWindowTitle; // <-- Problemstelle
  if (processName == displayName)
    return session.SimpleAudioVolume;
}
Das klappt soweit ganz gut, aber sobald ich drei- oder viermal den entsprechenden HotKey gedrückt habe, funktioniert mein Hook nicht mehr. Sobald ich die oben markierte Zeile entferne hören die Probleme auf.

Kann sich jemand erklären, warum ein Zugriff auf die Prozessliste einen Keyboardhook lahmlegen kann?

Gruß
xaromz
I am a leaf on the wind - watch how I soar
  Mit Zitat antworten Zitat