AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Fensterklasse und Titel herausfinden
Thema durchsuchen
Ansicht
Themen-Optionen

Fensterklasse und Titel herausfinden

Ein Thema von Die Muhkuh · begonnen am 9. Dez 2004 · letzter Beitrag vom 9. Dez 2004
Antwort Antwort
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#1

Fensterklasse und Titel herausfinden

  Alt 9. Dez 2004, 17:31
Hi,

ihr kennt doch Luckie's Windows Info? Mit dem Programm kann man die Fensterklasse, Titel etc. herausfinden.
In meinem Programm brauch ich auch die Fensterklasse und den Titel. Das Problem ist, dass Luckie das Programm in nonVCL geschrieben hat und da blick ich nicht durch.

Ich hab auch schon gesucht, aber das war halt alles nonVCL. Ich brauch das in einer VCL anwendung.

Meine Frage:

Wie bekomme ich die Fensterklasse und den Titel des Fenster heraus, das sich grad "unterm" Mauszeiger befindet?
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Fensterklasse und Titel herausfinden

  Alt 9. Dez 2004, 17:36
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Fensterklasse und Titel herausfinden

  Alt 9. Dez 2004, 17:47
Hi Luckie,

thx, der "kleine" Anstoß hat gereicht.


*MFG*

Mani
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz