Win32::GuiTest process id

[leonidlm]

Hi all, I searched all the documentation and all the threads here in a solution to one simple task:
I want to run a specific gui program, get it's pid and automate only this program (the problem is that on the same machine someone can use the same program with the same caption, this is why I need to match between the window handlers returned by findWindowLike() procedure of win32::GuiTest to the PID of the process I just executed).
Does someone succeeded in doing so in the past ?

[cdarke]

When you run the program use Win32::Process::Create (bundled with ActiveState Perl). This sets a process object, and you can call a GetProcessID() method on it to get the PID.

[leonidlm]

Yes, thank you!
The problem is how I perform the findWindowLike() from the Win32::GuiTest module with the PID of the newly created process instead of the "window caption" regular expression.
I want to automate only the window of the program I run and not some other instance of it!

[Anonymous Monk]

http://search.cpan.org/grep?cpanid=KARASIK&release=Win32-GuiTest-1.56&string=pid&i=1&n=1&C=0 http://search.cpan.org/grep?cpanid=KARASIK&release=Win32-GuiTest-1.56&string=process&i=1&n=1&C=0

Either hack Win32::GuiTest to expose GetWindowThreadProcessId, or use Win32::API

use Win32::API;
BEGIN {
    Win32::API::->Import("user32","DWORD GetWindowThreadProcessId( HWN
+D hWnd, LPDWORD lpdwProcessId)") or die $^E;
}

[leonidlm]

Thank you. I used the second approach.
And to share that knowledge with other monks I attach the final code I used:

use Win32::API;
use Win32::guiTest qw( :ALL );

my ($repMainWindow) = FindWindowLike(undef, "Caption") or die $!;
    
Win32::API::->Import("user32","DWORD GetWindowThreadProcessId( HWND hW
+nd, LPDWORD lpdwProcessId)") or die $^E;

my $pidLPDWORDStruct = pack( "L", 0 );
GetWindowThreadProcessId($repMainWindow, $pidLPDWORDStruct);
my ($pid) = unpack ("L", $pidLPDWORDStruct);

Thanks for everyone who helped!