Re^2: Using GetWindowThreadProcessId(). Want to move to AS 5.16 64bit Perl, but Win32::GUI doesn't build. Now what?

[syphilis]

Since the OP is wanting to distribute the code, it becomes necessary to ensure that Inline::C is installed on the target machines (or other appropriate action taken).

<PLUG>
I would therefore probably take the code that BrowserUk provided and turn it into a standalone module - which could be distributed in either source or pre-built (binary) form.
First, create a directory ./Win32-ThreadID-0.01 and a file ./ThreadID.c; where ThreadID.c contains the following section of BrowserUk's code:

#include <windows.h>

#define IS_VARS Inline_Stack_Vars
#define IS_RESET Inline_Stack_Reset
#define IS_PUSHIV( iv ) Inline_Stack_Push( sv_2mortal( newSViv( iv ) )
+ )
#define IS_PUSHUV( uv ) Inline_Stack_Push( sv_2mortal( newSVuv( uv ) )
+ )
#define IS_DONE Inline_Stack_Done

void getWindowThreadProcessId( SV* hwnd ) {
    IS_VARS;
    DWORD pid;
    DWORD tid = GetWindowThreadProcessId( (HWND)SvUV(hwnd), &pid );

    IS_RESET;
    IS_PUSHUV( tid );
    IS_PUSHUV( pid );
    IS_DONE;
    return;
}

Then run this script:

use warnings;
use strict;
use InlineX::C2XS qw(c2xs);

my $mod = 'Win32::ThreadID';
my $pkg = $mod;
my $build_dir = './Win32-ThreadID-0.01';

c2xs($mod, $pkg, $build_dir,
     {WRITE_PM => 1,
      WRITE_MAKEFILE_PL => 1,
      VERSION => '0.01',
      MANIF => 1,
      SRC_LOCATION =>  './ThreadID.c',
      EXPORT_OK_ALL => 1,
     });

That will create a Win32-ThreadID-0.01 source distro in the Win32-ThreadID-0.01 directory - complete with ThreadID.pm, ThreadID.xs, Makefile.PL, INLINE.h and MANIFEST, where ThreadID.pm exports (upon request) the getWindowThreadProcessId function. That distro as it then stands is already buildable and installable - though there's yet no test script (which would have to be added by hand, if desired).
</PLUG>

Hmmm .... come to think of it, an option to generate a test script (that simply tests the loadability of the module) might be a useful addition to InlineX::C2XS ...

Cheers,
Rob

[bulk88]

You could use Win32::API.