Der Exe-Name aus einem Fensterhandle zu erhalten


Wie kommt man den Exe-Dateinamen, wenn ein Fensterhandle angegeben.

verwendet..., EnumStuff;

Funktion WindowToExe(window: dword): string;
Var pid: Dword;
PL: TProcessList;
I1: Ganzzahl;
beginnen
Ergebnis: = '';
PL: = Nil;
GetWindowThreadProcessID (Fenster, @pid);
Wenn dann <> pid 0 beginnen
PL: = GetProcessList;
für i1: = 0 high(pl) Do
Wenn pl [i1] .pid = pid und beginnen dann
Ergebnis: = pl [i1] .name;
zu brechen;
Ende;
Ende;
Ende;

----------
Zwei Hinweise:
(1) mein Gerät 'EnumStuff' ist kostenlos, auch für kommerzielle Nutzung.
(2) diese Lösung funktioniert in allen aktuellen (win95, win95osr2, win98, win98se, WinME, winNT4, win2k und WinXP) und wahrscheinlich auch in allen (zukünftigen Microsoft-OSs nah).









Der Exe-Name aus einem Fensterhandle zu erhalten


Der Exe-Name aus einem Fensterhandle zu erhalten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.


Wie kommt man den Exe-Dateinamen, wenn ein Fensterhandle angegeben.

verwendet..., EnumStuff;

Funktion WindowToExe(window: dword): string;
Var pid: Dword;
PL: TProcessList;
I1: Ganzzahl;
beginnen
Ergebnis: = '';
PL: = Nil;
GetWindowThreadProcessID (Fenster, @pid);
Wenn dann <> pid 0 beginnen
PL: = GetProcessList;
für i1: = 0 high(pl) Do
Wenn pl [i1] .pid = pid und beginnen dann
Ergebnis: = pl [i1] .name;
zu brechen;
Ende;
Ende;
Ende;

----------
Zwei Hinweise:
(1) mein Gerät 'EnumStuff' ist kostenlos, auch für kommerzielle Nutzung.
(2) diese Lösung funktioniert in allen aktuellen (win95, win95osr2, win98, win98se, WinME, winNT4, win2k und WinXP) und wahrscheinlich auch in allen (zukünftigen Microsoft-OSs nah).


Der Exe-Name aus einem Fensterhandle zu erhalten

Der Exe-Name aus einem Fensterhandle zu erhalten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Freunden empfehlen
  • gplus
  • pinterest

Kürzliche Posts

Kommentar

Einen Kommentar hinterlassen

Wertung