GDI objects of a win32 process

slloyd has asked for the wisdom of the Perl Monks concerning the following question:

Is there a way to capture the GDI Object count of a win32 process using Perl? I checked Win32::Process::Info and searched on CPAN but was not able to find anything. Steve

http://www.basgetti.com

Comment on GDI objects of a win32 process

Replies are listed 'Best First'.
Re: GDI objects of a win32 process by slloyd (Hermit) on Jul 13, 2005 at 18:16 UTC
As is the case, I was able to answer my own question with a bit more digging... There is an Win32 API for this called GetGuiResources. With a little help from Win32::API I was able to get the GDI objects and the User Objects as follows: `sub getGuiResources{ my $hwnd = shift \|\| 0; #$hwnd it the handle to the process my $dword = shift \|\| 0; #$dword=0 for GDI Objects, $dword=1 for User Objects $GetGuiResources \|\|= new Win32::API("user32", "GetGuiResources", [ +'N','N'], 'N') \|\| return undef; my $count = $GetGuiResources->Call($hwnd,$dword); return $count; }` [download] http://www.basgetti.com	[reply] [d/l]

Replies are listed 'Best First'.

Re: GDI objects of a win32 process
by slloyd (Hermit) on Jul 13, 2005 at 18:16 UTC

sub getGuiResources{
    my $hwnd = shift || 0;
    #$hwnd it the handle to the process
    my $dword = shift || 0;
    #$dword=0 for GDI Objects, $dword=1 for User Objects
    $GetGuiResources ||= new Win32::API("user32", "GetGuiResources", [
+'N','N'], 'N') || return undef;
    my $count = $GetGuiResources->Call($hwnd,$dword);
    return $count;
    }
[download]

http://www.basgetti.com

[reply]
[d/l]