in reply to Re: Install OS2::Process on windows
in thread Install OS2::Process on windows

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

Replies are listed 'Best First'.
Re^3: Install OS2::Process on windows
by bart (Canon) on Jun 14, 2005 at 10:22 UTC
    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.

[reply]
[d/l]
[select]
      Could you please tell me how to use 'GetWindowThreadProcessId' similarly?
[reply]
        GetWindowThreadProcessId translates into: 
        use Win32::API;
my $GetWindowThreadProcessId = Win32::API->new('user32', 'GetWindowThr
+eadProcessId', ['N', 'P'], 'N');
my $process_id = pack 'V', 0;  # buffer of 4 bytes
my $thread_id = $GetWindowThreadProcessId->Call($hwnd, $process_id);
$process_id = unpack 'V', $process_id;

        [download]
        If you don't need $process_id, you can just drop the lines for it and use undef in the API call, which Win32::API will translate into a null pointer.

        Apparently these two API calls return a completely different value for $hinstance and for $process_id.

[reply]
[d/l]

In Section Seekers of Perl Wisdom