perl-win32-gui-users

[perl-win32-gui-users] FindWindow and SendMessage

[Perl R. <pe...@co...>]

Hi all,

 

I'm attempting to close a window using the FindWindow() and SendMessage()
functions as documented in MSDN. I can't get it to work, so I was wondering
if anyone might help me see what's wrong with my code:

 

######################################################

 

use Win32::API;

 

my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'P' );

my $sendMessage = Win32::API->new( 'user32', 'SendMessage', 'PIIN', 'P' );

 

my $windowToClose =
$findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");

$sendMessage->Call($windowToClose,"WM_CLOSE",0,0);

 

######################################################

 

In particular, I'm not sure whether I'm specifying the correct parameters
for each method. (Should the parameters for FindWindow() be 'PP', with a
return value of 'P'? And should the parameters for SendMessage() be 'PIIN',
with a return value of 'P'?)

 

Thanks in advance,

Rob

Re: [perl-win32-gui-users] FindWindow and SendMessage

[tk102 <kci...@ya...>]

Perl Rob wrote:
> 
> I'm attempting to close a window using the FindWindow() and SendMessage()
> functions as documented in MSDN. I can't get it to work, so I was
> wondering
> if anyone might help me see what's wrong with my code:
> 
> use Win32::API;
> my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'P' );
> my $sendMessage = Win32::API->new( 'user32', 'SendMessage', 'PIIN', 'P' );
> my $windowToClose =
> $findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");
> $sendMessage->Call($windowToClose,"WM_CLOSE",0,0);
> 
I see you've already answered your own question regarding the use of
Win32::GUI over Win32::API, but FTR, if you wanted to use Win32::API the
syntax would be

use Win32::API;

my $WM_CLOSE=16;  # you must assign this value manually
my $findWindow = Win32::API->new( 'user32', 'FindWindow', 'PP', 'N' );
my $sendMessage_lParam_as_number = Win32::API->new( 'user32', 'SendMessage',
'NNNN', 'N' );
my $sendMessage_lParam_as_stringpointer = Win32::API->new( 'user32',
'SendMessage', 'NNNP', 'N' );
my $windowToClose =
$findWindow->Call("PGPtray_Hidden_Window","PGPtray_Hidden_Window");
$sendMessage_lParam_as_number->Call($windowToClose,$WM_CLOSE,0,0);

-- 
View this message in context: http://www.nabble.com/FindWindow-and-SendMessage-tf4274735.html#a12258679
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.