List running applications on Win32

[Francis]

Dear All

Can someone tell me how to get a list of running applications on
Win32?
I am essentially looking to get the same list as appears in the
Applications tab of the Windows Task Manager. I can easily get the
equivalent of the Processes tab in Windows Task Manager (using
Win32::Setupsup or Win32::IProc) but I can't seem to find a way to
retrieve only the running applications.

Thanks

Flibble

[Francis]

co.uk (Francis Libble) wrote in message news:<google.com>...

Nevermind, after much gnashing of teeth:

use Win32::Setupsup;

Win32::Setupsup::EnumWindows(\@windowlist) or
die "process list error: ".Win32::Setupsup::GetLastError( )."\n";

foreach $whandle (@windowlist)
{
if (Win32::Setupsup::GetWindowProperties($whandle,[visible,text,pid],\%winprop))
{
if ($winprop{visible} == 1)
{
my $wintitle = $winprop{text};
unless($wintitle eq "" || $wintitle eq "Program Manager")
{
print "$wintitle:$winprop{pid}\n";
}
}
}
else
{
warn "Can't get text for $whandle" .
Win32::Setupsup::GetLastError( )."\n";
}
}