Überprüfen Sie den Titel des sichtbaren Fensters

Autor：Eve Cole Aktualisierungszeit：2025-02-26 14:00:04

In den folgenden Beispielen können wir den Titel des angezeigten Fensters kennenlernen. Das heißt, verwenden Sie die API -Funktion getWindow () und Getwindowtext (), um die Titel jedes Fensters nacheinander zu finden.

Erstellen Sie ein neues Projekt, ordnen Sie eine Schaltfläche und ein Memo in Form1 an und schreiben Sie den folgenden Code im Onclick -Ereignis von Button1:

procedure tform1.button1click (Absender: tobject);

var

HcurrentWindow: hwnd;

SZTEXT: Array [0..254] von char;

Beginnen

hcurrentWindow: = GetWindow (Handle, GW_HWNDFIRST);

während hcurrentWindow <> 0 tun

Beginnen

Wenn GetWindowtext (hcurrentWindow, @sztext, 255)> 0 dann

Memo1.lines.add (strpas (@sztext));

hcurrentWindow: = GetWindow (hcurrentWindow, gw_hwndnext);

Ende;