[Tokyo.pm] Re: [perl-win32-gui] Windows always on top...
matsumotoya
matsumotoya @ om.jalinfotec.co.jp
1999年 7月 22日 (木) 22:34:26 CDT
Hi.
I know how to always on top.
use Tk;
use Win32::GUI;
use Win32::API;
#use strict;
#no strict 'refs';
my ($mw);
$APISetWindowPos = new
Win32::API("user32","SetWindowPos",[N,N,N,N,N,N,N],N);
$mw = new MainWindow;
$mw->title("neko");
$mw->after(200,\&start);
MainLoop;
sub start
{
my ($desktop,$window,$title);
my $Ret;
$desktop = GUI::GetDesktopWindow();
print "Desktop Window: $desktop\n";
$window = GUI::GetWindow($desktop, GW_CHILD);
while($window) {
$title = GUI::Text($window);
if ($title eq "neko"){
printf("%16d: %s\n", $window, $title);
$Ret =$APISetWindowPos->Call($window,-1,0,0,0,0,3);
}
$window = GUI::GetWindow($window, GW_HWNDNEXT);
}
}
-----------
Y.Matsumoto(matsumotoya @ om.jalinfotec.co.jp)
Frederic.Descamps @ origin-it.com wrote:
>
> Hi =;^D,
>
> I'd know how to create a window which will stay always on top over all
> others windows (even if they are from another program)...?
>
> If it's possible of course....
>
> Thank you !
>
> ps: Aldo thank you for treeview's tips, it works fine ! :))
> Frederic Descamps
> Origin ICA - QAD Service Line
> B-1930 Zaventem
> *: +32 2 712 3863
> GSM: +32 95 69.86.68
> *: Frederic.Descamps @ origin-it.com
Tokyo-pm メーリングリストの案内