Re: GetWinFileName

From: Geoffrey Summerhayes <sumrnot@xxxxxxxxx>
Date: Fri, 9 May 2008 06:15:18 -0700 (PDT)

On May 8, 4:40 pm, battles <batt...@xxxxxxxxxxxxxx> wrote:

Thanks. Just didn't need this - GetModuleFileNameExA.
Here is what I was able to come up with:

uses PSAPI

function GetWindowExeName(PassedHandle: THandle): String;
var StrngLen: Integer; ProcID: Cardinal; ProcHndl: THandle;
begin
GetWindowThreadProcessID(PassedHandle, @ProcID);
ProcHndl := OpenProcess(PROCESS_QUERY_INFORMATION or
PROCESS_VM_READ, FALSE, ProcID);
SetLength(Result, 250);
StrngLen := GetModuleFileNameEx(ProcHndl, 0, PChar(Result), 250);
SetLength(Result, StrngLen);

Play nice, blah, blah, dire consequences, yadda, yadda, Oooooh!

CloseHandle(ProcHndl);

end;

---
Geoff
.

Follow-Ups:
- Re: GetWinFileName
  - From: Maarten Wiltink

References:
- GetWinFileName
  - From: battles
- Re: GetWinFileName
  - From: Geoffrey Summerhayes
- Re: GetWinFileName
  - From: battles
- Re: GetWinFileName
  - From: Geoffrey Summerhayes
- Re: GetWinFileName
  - From: battles

Prev by Date: Re: GetWinFileName
Next by Date: Re: GetWinFileName
Previous by thread: Re: GetWinFileName
Next by thread: Re: GetWinFileName
Index(es):
- Date
- Thread

Relevant Pages

Re: [SLE] MickySoft and Office.
... blah blah blah... ... who cares? ... M$ ports office to linux - linux gets critical mass on the desktop in ...
(SuSE)
Re: Creating an alias to an existing hash (from a hash reference)
... draws an uninitialized warning: ... True, but the uninitialized warning happened because you used the ... will have access to %ENV via %blah. ... Even though the code inside fis in a completely different scope ...
(comp.lang.perl.misc)
Re: Pythonic indentation (or: beating a dead horse)
... blah ... demonstrates that using dedent couldn't work. ...
(comp.lang.ruby)
Re: [SLE] MickySoft and Office.
... blah blah blah... ... who cares? ... M$ ports office to linux - linux gets critical mass on the ...
(SuSE)
Re: how to know local port used in an udp client ?
... Blah, blah, blah. ... http://en.wikipedia.org/wiki/Aspergers ... ISO standard has no support for ports, udp, or upnp, your question ... if its C related post here. ...
(comp.lang.c)