But it didn't come with ActivePerl, that's for sure — or any other Perl for Windows that I tried.

There's a separate package on CPAN too, a Google search for OS2-Process PPD, usually a surefire way to find some PPM distributions, comes up blank.

I even have doubts if you can get it to compile on Windows. And I doubt its usefulness on Windows anyway. What are you trying to achieve, actually?

I am trying to get the pid of a process.

use Win32;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use Win32::OLE;
use Win32::OLE::Const;
use OS2::Process;

$Win32::OLE::Warn = 3; # die on errors...
$Constant = Win32::OLE::Const->Load('Microsoft Excel');
$Excel = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) ||
  die "Error launching MS Excel ".Win32::OLE->LastError(1);  

$hwnd = $Excel->{"Hwnd"};
        ($pid, $tid) = WindowProcess($hwnd) ;
        print "\n\n $pid \n\n";
....
....
...
[download]

Is there any other way to find pid of a process by using Hwind? kindly help

Ah indeed. Well, I don't think anything based on the OS2 API can work on Windows.

I've been poking around a little in the Windows API, and I think the "application instance handle" is the value you're after. You can retrieve it from a handle using the GetWindowLong API call, with the GWL_HINSTANCE constant — its value is -6. Translating the API call to Win32::API, I get:

use Win32::API;
use constant GWL_HINSTANCE => -6;
my $GetWindowLong = Win32::API->new('user32', 'GetWindowLong', ['N', '
+N'], 'N');

my $hinstance =$GetWindowLong->Call($hwnd, GWL_HINSTANCE);
[download]

I get a number back, I just hope it agrees with you PID. I think it does.

p.s. If you're still thinking of killing Excel when you're finished: you don't have to. You specified the sub sub {$_[0]->Quit;} to be called when the $Excel object is destroyed, which makes Excel exit. That really should suffice.