«

I want a perl script to set the DOS-Box it is running in to be "always
on top".
Maybe I can use SetWindowPos from user32.dll but therefor I need the
window handle of the DOS-Box. How can I get out this handle?
Is there any easy way to get the window on top?

"Daniel Kelber" <> wrote:

> I want a perl script to set the DOS-Box it is running in to be "always
> on top".
> Maybe I can use SetWindowPos from user32.dll but therefor I need the
> window handle of the DOS-Box. How can I get out this handle?
> Is there any easy way to get the window on top?

If you want to keep an eye on things, why not open your own window on top
with Tk (I am quite sure this is possible)?

--
John Experienced Perl programmer: http://castleamber.com/

Perl help, tutorials, and examples: http://johnbokma.com/perl/

John Bokma schrieb:

> If you want to keep an eye on things, why not open your own window on top
> with Tk (I am quite sure this is possible)?
>
> --
> John

Hi John,
the aim is to drag a file from the windows explorer and drop it in the
DOS-Box where the script is waiting with

<STDIN>;

When I drag the file from windows explorer the DOS box gets in
background so dropping is more complicated...

Hi Len,

l v schrieb:
> Is this option available in a native windows DOS box?

Yes, this works: dropping a file from win explorer into a DOS box
writes the path and filename to STDIN (tested under WinXP).

> If you drag from windows explorer and hover over the dos box in the
> taskbar, the dos box will open on top. You then drop on the now opened
> dos box.

It would be better an faster if hovering over the taskbar is not
necessary....

Daniel

l v <> wrote:

> Sure it would. But then companies like Actual Tools couldn't sell their
> product.

There is a focus follows mouse power toy from Microsoft, for free, which
probably does the same. I never understood why the window with focus has
to pop to the front anyway.

--
John Experienced Perl programmer: http://castleamber.com/

Perl help, tutorials, and examples: http://johnbokma.com/perl/

l v <> wrote:

> John Bokma wrote:
>> l v <> wrote:
>>
>>> Sure it would. But then companies like Actual Tools couldn't sell
>>> their product.
>>
>> There is a focus follows mouse power toy from Microsoft, for free,
>> which probably does the same. I never understood why the window with
>> focus has to pop to the front anyway.
>>
>
> I did not read

It was a suggestion.

> that the OP was looking for the X windows feel with the
> focus follows mouse option within TweakUI. He can certainly drop
> something from windows explorer right on the dos box in the
> background, no need to raise it to the top

If only the window chrome is visible, I get a "forbidden" sign. AFAIK,
focus follows mouse will raise the window even if above window chrome.

--
John Experienced Perl programmer: http://castleamber.com/

Perl help, tutorials, and examples: http://johnbokma.com/perl/

Daniel Kelber wrote:
> I want a perl script to set the DOS-Box it is running in to be "always
> on top".
> Maybe I can use SetWindowPos from user32.dll but therefor I need the
> window handle of the DOS-Box. How can I get out this handle?

On Win2000 and above there is an SPI call GetConsoleWindow() that gets
the handle. From MSDN:

The GetConsoleWindow function retrieves the window handle used by the
console associated with the calling process.

HWND GetConsoleWindow(void);

Regards,
Rob.

Robert May schrieb:

> The GetConsoleWindow function retrieves the window handle used by the
> console associated with the calling process.
>
> HWND GetConsoleWindow(void);

Hi Rob,
this works very well! Thanks.

Here the resulting code:

#!/usr/bin/perl -w

use strict;
use Win32::API;

my %wFlag = ( HWND_TOP => 0,
HWND_BOTTOM => 1,
HWND_TOPMOST => -1,
HWND_NOTOPMOST => -2,
SWP_NOSIZE => 1,
SWP_NOMOVE => 2,
SWP_NOZORDER => 4,
SWP_NOREDRAW => 8,
SWP_NOACTIVATE => 16,
SWP_SHOWWINDOW => 64 );


my $GetConsoleWindow = new Win32::API('kernel32', 'GetConsoleWindow',
[],'N');
my $SetWindowPos = new Win32::API('user32', "SetWindowPos",
'NNNNNNN', 'N');

if (defined($GetConsoleWindow) and defined($SetWindowPos)) {
my $windowHandle = $GetConsoleWindow->Call();

$SetWindowPos->Call($windowHandle,$wFlag{HWND_TOPMOST},0,0,0,0 ,
$wFlag{SWP_NOSIZE} | $wFlag{SWP_NOMOVE} )
if($windowHandle);
}

Daniel