Problem mit SetWindowsHookEx und Service

[Stefan Hueg]

Ich habe ein Problem. Und zwar habe ich einen Service erstellt der die API SetWindowsHookEx zum Sperren der Tasten aufrufen soll. Und zwar über folgenden Code:

Code:

function MyTaskKeyHookLL(nCode: Integer; wp: WPARAM; lp: LPARAM): integer;
var
  pkh: PKBDLLHOOKSTRUCT;
  bCtrlKeyDown: BOOL;
begin
  pkh:=PKBDLLHOOKSTRUCT(lp);

  if nCode=HC_ACTION then
  begin
    bCtrlKeyDown := GetAsyncKeyState(VK_CONTROL) shr ((sizeof(SHORT) * 8) - 1)<>0;
       // Ctrl+Esc
    if ((pkh^.vkCode=VK_ESCAPE) and bCtrlKeyDown) or
       // Alt+TAB
       ((pkh^.vkCode=VK_TAB) and (pkh^.flags and LLKHF_ALTDOWN=LLKHF_ALTDOWN)) or
       // Alt+Esc
       ((pkh^.vkCode=VK_ESCAPE) and (pkh^.flags and LLKHF_ALTDOWN=LLKHF_ALTDOWN)) or
       // Start Menu
       ((pkh^.vkCode=VK_LWIN) or (pkh^.vkCode=VK_RWIN)) then
    begin
      result:=1;
      exit;
    end;
  end;
  result:=CallNextHookEx(g_hHookKbdLL, nCode, wp, lp);
end;

function DisableKeys(bDisable: bool): bool;
begin
  if bDisable then
  begin
    if g_hHookKbdLL=0 then
     g_hHookKbdLL := SetWindowsHookEx(WH_KEYBOARD_LL, @MyTaskKeyHookLL, HInstance, 0);
  end
  else
  if g_hHookKbdLL<>0 then
  begin
    UnhookWindowsHookEx(g_hHookKbdLL);
    g_hHookKbdLL := 0;
  end;

  result:=g_hHookKbdLL<>0;
end;

Das Problem ist, dass die Tasten nicht gesperrt werden. Dieser Fehler tritt allerdings nur bei Services auf, bei normalen Programmen nicht. Ich habe außerdem versucht das Ding in eine DLL zu packen und vom aus aufzurufen, das funktioniert auch nicht!

Wie kann ich die Windows-Tasten in einem Service sperren?

Grüße

[Luckie]

Das Problem wird sein, dass der Service auf einer anderen Windows Station läuft als der User Desktop oder wie man das nennt.

Warum willst du denn da was sperren?

[Stefan Hueg]

Ich brauch das für eine Internetcafe Software, sodass die Surf-Stationen wirklich gesperrt sind und niemand dran kommt!

Taskmanager und Taskbar sind schon ausgeschaltet, nun fehlt mir nur dieser Mist :)

[Luckie]

Ich könnte mir da nur einen Tastaturtreiber oder einen Lowlevel-Tastaturhook vorstellen,d er die Eingaben schon abfängt bevor sie Windows bekommt. Den Treiber kannst du aber nicht mit Delphi schreiben, dazu brauchst du das DDK und VC.

[mirage228]

Hi,

könnte er nicht einen interaktiven Service schreiben oder kann er dann trotzdem nicht die Windows-Station vom User zugreifen? :?:

mfG
mirage228

[Motzi]

WinSta0 ist die einzige WindowStation mit der der Benutzer interagieren kann, also die einzige WindowStation die Benutzereingaben entgegen nehmen kann. Ein interaktiver Service sollte in dem Fall funktionieren, allerdings sind interaktive Services anfällig auf Shatter-Attacken. Möglicherweise würde ein Lowlevel-Tastatur-Hook funktionieren, am besten wäre aber wahrscheinlich wirklich ein Treiber...

[Stefan Hueg]

D.h. ich kann das nicht mit Delphi Boardmitteln lösen und es geht generell bei Services nicht?

[Chewie]

Ob sich LowLevel-Hooks mit Delphi realisieren lassen, weiß ich nicht.
Interaktive Services aber auf jeden Fall, wobei halt die von Motzi genannte Sicherheitslücke besteht.

[Meflin]

Zitat:

Zitat von Luckie

Ich könnte mir da nur einen Tastaturtreiber oder einen Lowlevel-Tastaturhook vorstellen,d er die Eingaben schon abfängt bevor sie Windows bekommt. Den Treiber kannst du aber nicht mit Delphi schreiben, dazu brauchst du das DDK und VC.

meinst du mit vc visual c ?

[Chewie]

Ja, meint er ;)
Der Grund ist der, dass das DDK spezielle Module für das VS enthält.

[Meflin]

für das VS :?: :gruebel:

[Stefan Hueg]

Ist der interaktive Modus eine spezielle Eigenschaft oder Einstellung oder wie bringe ich meinen Service dazu, interaktiv zu werden? ;)

[w3seek]

Wie schon gesagt wurde, laeuft ein Service in einem anderen Window station, zudem laeuft ein Service immer im kontext des SYSTEM users. Ein interaktiver Service ist wie angesprochen die Loesung. Wenn du mit Delphi einen Service erstellst (und ihn nicht komplett from scratch programmierst), kannst du in den Eigenschaften des TService Objekts eine Property "Interactive" oder so aehnlich finden (hab leider im moment nur mein d6 personal installiert und kann deswegen nicht nachgucken)

[w3seek]

Solltest du ihn manuell programmieren, musst du einfach SERVICE_INTERACTIVE_PROCESS als service typ in CreateService() angeben.

[Chewie]

Zitat:

Zitat von Meflin

für das VS :?: :gruebel:

Ja, für das Visual Studio, oder meinetwegen nur für den C++-Teil davon. Hast ja recht, ist präziser.

[Luckie]

Zitat:

Zitat von w3seek

Ein interaktiver Service ist wie angesprochen die Loesung.

Nun ja. Ich bitte zu bedenken, was Muetze geschrieben hat. Alle schreien, dass Windows so unsicher sei und jetzt baut ihr euch noch selber Sicherheitslücken ein. Das kann es doch wohl auch nicht sein. :roll:

[Stefan Hueg]

Das Problem ist, dass Interactive auf True bereits steht ;)

[w3seek]

Zitat:

Zitat von Luckie

Nun ja. Ich bitte zu bedenken, was Muetze geschrieben hat. Alle schreien, dass Windows so unsicher sei und jetzt baut ihr euch noch selber Sicherheitslücken ein. Das kann es doch wohl auch nicht sein. :roll:

ich schreib nicht solche services :P dass sowas unsicher ist, ist mir voellig klar

[Meflin]

Zitat:

Zitat von Chewie

Zitat:

Zitat von Meflin

für das VS :?: :gruebel:

Ja, für das Visual Studio, oder meinetwegen nur für den C++-Teil davon. Hast ja recht, ist präziser.

achso. erlichgesagt kenn ich mich bei den v - abkürzungen von micro$soft noch nicht so aus ;-)

[NicoDE]

Zitat:

Zitat von Stefan Hueg

Ich brauch das für eine Internetcafe Software, sodass die Surf-Stationen wirklich gesperrt sind und niemand dran kommt!

Wenn Du einzelne Tasten _dauerhaft_ deaktivieren willst (zum Beispiel OS-Key), gibt es - Neustart vorausgesetzt - die Möglichkeit dem Tastatur-Treiber per Registry mitzuteilen, dass bestimmte Tasten (Scan-Codes) in andere Tasten 'übersetzt' werden sollen.
(wird bevorzugt von UNIX-Benutzern verwendet um CAPS/Ctrl zu vertauschen...)
http://www.microsoft.com/whdc/device...kscan-map.mspx
http://www.northcode.com/resources/kiosk/kiosk.html

Entgegen der Dokumentation kann man die Einstellung auch nur für den Benutzer vornehmen (HKCU) - allerdings funktioniert dies mit Fast User Switching (schneller Benutzerwechsel unter WinXP) nicht wie erwartet, da das Mapping beim Login passiert, aber nicht beim Benutzerwechsel (normales Logout/Login würde das Problem umgehen).

Es gibt sicher irgendwo kostenlose Tools zur Bearbeitung des Registry-Eintrags (das bekannte TradeKeys2 ist nicht mehr frei erhältlich - und ob das MSKLC weiterhilft kann ich mangels Test nicht beurteilen...).
edit: http://webpages.charter.net/krumsick/