Fenstername und Dateiname aus Handle herausfinden

[himitsu]

Das ist halt immer soeine Sache.

Zitat:

Zitat von GetWindowText

The maximum number of characters to copy to the buffer, including the null character. If the text exceeds this limit, it is truncated.

Zitat:

Zitat von GetWindowTextLength / WM_GETTEXTLENGTH

The return value is the length of the text in characters, not including the terminating null character.

Der Wert gibt dort die Länge des Speichers an, inklusive der abschließenden #0.
In dem String selber ist aber kein Platz für diese letzte #0 reserviet. OK, indirekt schon, denn im Delphistring wird implizit eine #0 hinter dem Stringinhalt abgelegt.
Bei GetWindowText muß also diese zusätzliche #0 mit angegeben werden, da sonst das letzte Text-Zeichen abgeschnitten würde.

Jetzt kommt es nur noch drauf an, wohin PChar zeigt, bei einem Leer-String. (ein '' ist nil und PChar zeigt dann Ersatzweise wo anders hin, wo #0#0 im Speicher hinterlegt ist)
Bei dir war das anscheinend ein Schreibgeschützter Bereich, bzw. bei mir zufällig nicht. :oops:

Delphi-Quellcode:

SetLength(T, GetWindowTextLength(hwnd));
if T <> '' then
  GetWindowText(hwnd, PChar(T), Length(T) + 1);

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1155480)

Delphi-Quellcode:

TMemo(lParam).Lines.Add(Format('%s %s %s', [
    C, '"' + Copy(T, 1, 30) + IfThen(Length(T) > 30, '..."', '"'), M]));

Was für ein IFThen ist das?
Wenn ich das von "Math" nutze, dann heisst es dass es keine überladene Funktion gibt die dafür nutzbar ist.

[Bummi]

Vermutlich mundgeblasen ...

[himitsu]

Ein paar IfThen verstecken sich in der Unit Math, für Integer, Double und Co.
Noch ein Paar verstecken sich in der Unit StrUtils, natürlich für Strings.
Und ich hab mir ein generisches IfThen selber gebastelt, für alles Andere, wie z.B. Objekte.

Man muß nur einwas beachten, denn das Delphi-IfThen ist leider nur eine billige Funktion.
Es wäre schöner, wenn es vom Compiler behandelt würde, so wie z.B. das

Delphi-Quellcode:

b ? t : f

im C und PHP,
denn

Delphi-Quellcode:

IfThen(Assigned(Edit1), Edit1.Text, '')

ist leider nicht möglich, da die Parameter zuerst komplett ausgewertet werden. :cry:

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1155719)

Noch ein Paar verstecken sich in der Unit StrUtils, natürlich für Strings.

Wieder was dazugelernt!
Ich dachte Ifthen gibts nur in der Math

[himitsu]

Keine Sorge, auch ich mußte anfangs suchen. (war ebenfalls ständig in Math gelandet :oops:)

[Delphi-Laie]

Ich erlaube mir, in bezug auf die Eingangsfrage auf Luckies Programm "WinInfo" hinzuweisen, das aus Fenstern ebenfalls Datei- und Fenstername (und noch einiges anderes) extrahieren kann. Sein Programm war eine gute Grundlage für mein Programm "Prozesse".

[Luckie]

Musstest du diese Jugendsünde wieder hervor holen? :?

[Delphi-Laie]

Zitat:

Zitat von Luckie (Beitrag 1155764)

Musstest du diese Jugendsünde wieder hervor holen? :?

Bis auf den Vergleich einer Boolschen Variable mit true, diesem kleinen Schönheitsfehler, ist Dein Programm (aus meiner Sicht) doch klasse! Ich könnte so etwas bis heute nicht programmieren. Selbst im Debugmodus wurde mir stellenweise nicht klar, wie das funktioniert (ja, die Nachrichtenschleife, das ist mir grundsätzlich schon klar, aber das hilft nicht, alles zu begründen). Außerdem liegt es immer noch auf Deiner Internetseite, also stehst Du weiterhin zu dieser Deiner (angeblichen) "Jugendsünde". Soo schlecht kann es also nicht sein.

[Luckie]

Ok, hast recht. ;) Aber heute hätte ich das alles schön in Klassen gekapselt. Das meinte ich eigentlich. Und meine Internetseite ist für mich eigentlich nur ein öffentliches Backup zumindest was das Verzeichnis Programmierung angeht, da ja sowoesi alles bei mir opensource ist.