Hvordan få exe filnavnet når gitt et vindu håndtak
bruker ..., enumStuff;
funksjon WindowToExe (vindu: DWORD):. String; Var pid: dword; pl: TProcessList; i1: integer; begynne resultat: = ''; pl: = null; GetWindowThreadProcessID (vindu,pid); hvis pid < > 0 da begynne pl: = GetProcessList; for i1: = 0 til høy (pl) gjøre hvis pl [i1] .pid = pid deretter begynne resultat: = pl [i1] .name; gå i stykker; ende; ende; end;
---------- To merknader: (1) Min enhet " enumStuff " er gratis, selv for kommersiell bruk. (2) Denne løsningen fungerer i all strøm (win95, win95osr2, win98, Win98SE, WinME, WinNT4, win2k og winXP) og trolig også i det hele tatt (nær) fremtid Microsoft operativsystemer. Anmeldelser