[for those interested]
Sample below really controls console close button on Windows XP and
later systems. Please test it and enjoy:)
--->>>
#include 'inkey.ch'
proc main()
local nKey
while (nKey := Inkey(0)) # K_ESC
Qout(Str(nKey) +' "' +Chr(nKey) +'"')
if nKey == Asc("0") .or. nKey == Asc("1")
SetConsoleMenuClose(nKey == Asc("1"))
Qqout(if(SetConsoleMenuClose(), ' enabled', ' disabled'))
endif
end
return
#PRAGMA BEGINDUMP
#include "windows.h"
#include "hbapi.h"
BOOL WINAPI
SetConsoleMenuClose( IN BOOL fEnable );
// SetConsoleMenuClose( lEnable ) -> lPreviousState
HB_FUNC( SETCONSOLEMENUCLOSE )
{
HMENU hSysMenu = GetSystemMenu( GetConsoleWindow(), FALSE );
if( hSysMenu )
{
BOOL fCurrent = ( GetMenuState( hSysMenu, SC_CLOSE, MF_BYCOMMAND
) & MF_GRAYED ) == FALSE;
if( hb_pcount() )
{
BOOL fEnable = hb_parl( 1 );
if( fCurrent != fEnable )
{
/*
SetConsoleMenuClose() API really controls Close Menu
status, but "forgets"
to gray close button on titlebar. EnableMenuItem() API
does this trick.
Without SetConsoleMenuClose() clicking on titlebar icon
close button becomes enabled.
*/
SetConsoleMenuClose( fEnable );
EnableMenuItem( hSysMenu, SC_CLOSE, MF_BYCOMMAND | (
fEnable ? MF_ENABLED : MF_GRAYED ) );
}
}
hb_retl( fCurrent );
}
else
hb_retl( FALSE );
}
#PRAGMA ENDDUMP
<<<---
Best regards,
Saulius
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
