Obtenir le nom de l'exécutable à partir d'un handle de fenêtre
Comment faire pour obtenir l'exécutable de nom de fichier lorsque la poignée de la fenêtre.
utilise ..., enumStuff
la fonction WindowToExe(fenêtre: dword) : string
var pid : dword
pl : TProcessList
i1 : integer
begin
result := '
pl := nil
GetWindowThreadProcessID(fenêtre, @pid)
si pid <> 0 then begin
pl := GetProcessList
i1 := 0 haute(pl) ne
si pl[i1].pid = pid puis commencer
result := pl[i1].nom de
break
fin
fin
fin
& & & & &
Deux remarques:
(1) Mon unité 'enumStuff' est gratuit, même pour un usage commercial.
(2) Cette solution fonctionne dans tous les courants (win95, win95osr2, win98, win98se, winME, winNT4, win2k et winXP) et probablement aussi dans tous les futur (proche) de Microsoft systèmes d'exploitation.
Obtenir le nom de l'executable a partir d'un handle de fenetre
Obtenir le nom de l'executable a partir d'un handle de fenetre : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment faire pour obtenir l'executable de nom de fichier lorsque la poignee de la fenetre.
utilise ..., enumStuff
la fonction WindowToExe(fenetre: dword) : string
var pid : dword
pl : TProcessList
i1 : integer
begin
result := '
pl := nil
GetWindowThreadProcessID(fenetre, @pid)
si pid <> 0 then begin
pl := GetProcessList
i1 := 0 haute(pl) ne
si pl[i1].pid = pid puis commencer
result := pl[i1].nom de
break
fin
fin
fin
& & & & &
Deux remarques:
(1) Mon unite 'enumStuff' est gratuit, meme pour un usage commercial.
(2) Cette solution fonctionne dans tous les courants (win95, win95osr2, win98, win98se, winME, winNT4, win2k et winXP) et probablement aussi dans tous les futur (proche) de Microsoft systemes d'exploitation.
Obtenir le nom de l'exécutable à partir d'un handle de fenêtre
By commentfaire
Obtenir le nom de l'exécutable à partir d'un handle de fenêtre : Plusieurs milliers de conseils pour vous faciliter la vie.
