perlのGUI
メッセージボックスの表示
use Win32; Win32::MsgBox("message", 16, "caption");
コンソールウインドウを消す
use Win32::API::Prototype; ApiLink( 'kernel32.dll', 'HWND GetConsoleWindow()' ) || die; ApiLink( 'user32.dll', 'BOOL ShowWindow( HWND hWnd, int iCommand )' ) || die; my $hWnd = GetConsoleWindow(); ShowWindow( $hWnd, 0x00 );
- Win32::API::Prototypeの入手元
http://search.cpan.org/~daveroth/Win32-API-Prototype/lib/Win32%5CAPI/Prototype.PM