[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 メーリングリストの案内