Thema: Delphi Net send abfangen?!

Einzelnen Beitrag anzeigen

J Kadison

Registriert seit: 8. Sep 2007
Ort: Ebertsheim
96 Beiträge
 
Delphi 7 Personal
 

Re: Net send abfangen?!

  Alt 18. Jan 2009, 17:23
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
MFG
Joshi
  Mit Zitat antworten Zitat