My program uses Win32::IProc but it also serveral other modules like
Win32::API and Win32::IPC, I think. The module is available at Jenda's
repository (http://jenda.krynicky.cz/perl/).
Below is a snippet of the code that use Win32::Iproc:
sub subIfProcessRunning {
print "Performing Process Verification\n";
my($myPassedInProcess) = shift;
my($myProcessName, $myRunningProccess);
my($obj)=new Win32::IProc || return 0, "Can't create Win32::IProc";
my @EnumInfo;
$obj->EnumProcesses([EMAIL PROTECTED],"NOPATH");
foreach my $Process (@EnumInfo) {
$myProcessName = $Process->{ProcessName};
if ($myProcessName =~ /^$myPassedInProcess$/i) {
$myRunningProccess = 1;
last;
}
}
return $myRunningProccess;
}
-----Original Message-----
From: Autrijus Tang [mailto:[EMAIL PROTECTED]
Sent: Monday, February 23, 2004 5:01 PM
To: Tony Wong (IT)
Cc: [EMAIL PROTECTED]
Subject: Re: Win32/IIPC.pm error
On Mon, Feb 23, 2004 at 05:46:43PM -0700, Tony Wong (IT) wrote:
> Hi,
> I am getting below error when running a packaged exe. The script
> itself doesn't exhibit such error. The script uses Win32::Iproc.
Any
> advice? Thanks.
As these modules are not on CPAN, I have no idea how they work. :-/
Can you provide the module sources and the script that triggers the
problem?
Thanks,
/Autrijus/
