Net send abfangen?!

[J Kadison]

Moinmoin!

Ja ich wieß, ich hab en bisschen länger gebraucht, aber i-wie is das thema bei mir en bisschen untergegangen.

Jetzt hat sich aber folgende Frage bei folgendem QT aufgetan:

Delphi-Quellcode:

function CallWndProc(Code :Integer; wParam: wParam; lParam: lParam):lResult; stdcall;
var
  CWP : PCWPStruct;
  Name : array[0..255] of Char;       
begin
  try                                 
    if Code = HC_ACTION then
    begin                                                               
      CWP := PCWPStruct(lParam);         
      with CWP^ do                                     
      begin
        GetWindowText(hwnd, Name, 255); 
        if Name = 'Nachrichtendienst '    
        then windows.Beep(1000,200);       
      end;
    end;
  finally     
    Result := CallNextHookEx(g_hHookKbdLL, Code, wParam, lParam);   
  end; 
end;

Hat jemand ne idee, warum sich da die Explorer.exe aufhängt?
Zumindest, wenn ich den Hook installier, macht die Explorer.exe so lange nichts mehr, bis ich den Hook wieder deinstallier!
um das mal vornweg zu nehmen:
Ich bin mir zu 90% sichen KEIN 64bit WinSystem zu haben:
"WinXP Prof - ServisPack3



Wäre dankbar über ne schnelle Antwort



Edit:

Ich habe HIER noch einen sehr nützlichen Beitrag gefunden der gut zum Thema passt.
Bevor andere wie ich vorher 4 stunden lang rumwerkeln um dann zu merken, dass das ganze shconim I-net steht und 1:1 übernommen werden kann ^^
http://www.delphipraxis.net/internal...?p=14034#14034