Fensterklasse und Titel herausfinden

[Luckie]

Nun ja, auch wenn es nonVCL ist, Delphi Code sollte man trotzdem lesen kömnnen:

Code:

WM_MOUSEMOVE:
      begin
        if ((GetCapture = hWnd) and GetCursorPos(pt)) then
        begin
          Target := WindowFromPoint(pt);
          ScreenToClient(Target, pt);
          Target := ChildWindowFromPoint(Target, pt);

          [b]GetClassName[/b](Target, buffer1, 256);
          SetWindowText(GetDlgItem(hWnd, IDC_WNDCLASS), buffer1);

          wvsprintf(buffer1, '0x%8.8X', PChar(@Target));
          SetWindowText(GetDlgItem(hWnd, IDC_HWND), buffer1);

          ID := GetDlgCtrlID(Target);
          wvsprintf(buffer1, '0x%8.8X', PChar(@ID));
          SetWindowText(GetDlgItem(hWnd, IDC_ID), buffer1);

          TID := GetWindowThreadProcessID(Target, @PID);

          wvsprintf(buffer1, '%8.8d', PChar(@PID));
          SetWindowText(GetDlgItem(hWnd, IDC_PROCID), buffer1);

          wvsprintf(buffer1, '0x%8.8X', PChar(@TID));
          SetWindowText(GetDlgItem(hWnd, IDC_THREADID), buffer1);

          [b]SendMessage[/b](Target, [b]WM_GETTEXT[/b], 256, Integer(@buffer1));
          SetWindowText(GetDlgItem(hWnd, IDC_TITLE), buffer1);

          s := GetExeStringFromProcID(PID);
          SetWindowText(GetDlgItem(hWnd, IDC_APPNAME), pointer(s));
[..]

da findest du alles. Eine Forensuche ist meist auch keine schlechte Idde. Das mit dem Klassennamen hatten wir erst vor ein paar Stunden.