Re^2: How can I close a Windows program called from a my Perl script?

[danren924]

The program is, unfortunately, a proprietary GUI program, and not widely available. It does, however, use standard Windows GUI controls or keyboard shortcuts to close, such as "Alt-F, E" or a mouse click on the "X".

The only command line parameters are the source and destination file names.

Thanks again.

[BrowserUk]

Then you might be able to use something like this which starts a copy of notepad aysnchronously (system 1, ...), then waits 10 seconds before sending it the Alt-F X key sequnce to close it:

#! perl -slw
use strict;
use Win32::GuiTest qw[FindWindowLike SetForegroundWindow SendKeys];

system 1, q[notepad.exe];

Win32::Sleep( 10000 );

for ( FindWindowLike( undef, 'Notepad' ) ) {
    SetForegroundWindow( $_);
    SendKeys( '%fx', 5 );
}

Note: that as coded, this will close all running copies of notepad. To be more selective, see the pod for Win32::GuiTest::FindWindowLike().

), then waits 10 seconds before sending it the Alt-F X key sequnce to close it: #! perl -slw use strict; use Win32::GuiTest qw