Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   .NET-Framework (managed code) (https://www.delphipraxis.net/79-net-framework-managed-code/)
-   -   C# Zugriff auf Prozessliste stört Keyboardhook (https://www.delphipraxis.net/159709-zugriff-auf-prozessliste-stoert-keyboardhook.html)

xaromz 9. Apr 2011 11:10

Zugriff auf Prozessliste stört Keyboardhook
 
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

Assarbad 9. Apr 2011 15:22

AW: Zugriff auf Prozessliste stört Keyboardhook
 
Zitat:

Zitat von xaromz (Beitrag 1094066)
Kann sich jemand erklären, warum ein Zugriff auf die Prozessliste einen Keyboardhook lahmlegen kann?

Nö, nicht ohne daß du uns erklärst was genau die Klasse zum ermitteln der Prozesse so tut ;)

Ich nehme mal an, daß das Token modifiziert wird.

xaromz 9. Apr 2011 16:26

AW: Zugriff auf Prozessliste stört Keyboardhook
 
Hallo Oliver,

meine Klasse sucht eigentlich nur den Prozess mit dem richtigen Namen, um den richtigen Lautstärkeregler zu finden, exakt so wie oben im Code zu sehen. Mehr mache ich nicht.
Inzwischen hat die Lösung allerdings eher akademischen Wert, da ich mir eine andere Komponente geraden habe, die anstandslos funktioniert. Warum mein Code nicht geht wäre aber trotzdem interessant.

Gruß
xaromz


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz