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
By Wiezutun
Der Exe-Name aus einem Fensterhandle zu erhalten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.