FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Maestros .... Una Inquietud con Windows Xp
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Maestros .... Una Inquietud con Windows Xp
Posted: Mon Feb 11, 2008 05:57 PM

Buenas Tardes Foro,

Quisiera bloquear la barra de tareas de windoes XP ( La linea Completa Donde se encuentra INICIO ) para que el usuario no se pueda salir de la aplicacion que desarrolle.

Ademas No se si FHW 7.12 en el commando....

DEFINE WINDOW oWinMain, tiene algun comando para bloquear la "X"

De Antemano muchas gracias por la ayuda,

Saludos,

Albeiro,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Maestros .... Una Inquietud con Windows Xp
Posted: Mon Feb 11, 2008 06:38 PM
FUNCTION MAIN()
...
    ACTIVATE WINDOW oWnd MAXIMIZED                                           ;
             ON INIT( HIDETASKBAR() )

...
RETURN NIL

//--------------------------------------------------------------------------//

/*
SHOWTASKBAR() // Habilita
HIDETASKBAR() // Desabilita
TIRA_X()      // Desabilita o X da Janela
PISCA_EXE()   // Vai Piscar o Seu EXE na Barra do Windows
*/

#pragma BEGINDUMP

#include "windows.h"
#include "shlobj.h"
#include "hbapi.h"
#include "math.h"
#include "hbvm.h"
#include "hbstack.h"
#include "hbapiitm.h"
#include "hbapigt.h"

HB_FUNC ( SHOWTASKBAR ) //Habilita o botao INICIAR
{
HWND hWnd = FindWindow("Shell_TrayWnd", "");

ShowWindow( hWnd, 1 );
}

HB_FUNC ( HIDETASKBAR ) //Desabilita o botao Iniciar
{
HWND hWnd = FindWindow("Shell_TrayWnd", "");

ShowWindow( hWnd, 0 );
}

HB_FUNC ( PISCA_EXE ) // VAI PISCAR O SEU EXE NA BARRA
{
HWND Handle = GetForegroundWindow();

FlashWindow(Handle,TRUE); // VAI PISCAR O SEU EXE NA BARRA

Sleep(300); // TEMPO DE ESPERA
}


HB_FUNC ( TIRA_X ) // DESABILITA O X da janela

{
HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE);

EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
}

HB_FUNC ( VOLTA_X ) // HABILITA O X da janela

{
HMENU MenuH = GetSystemMenu(GetForegroundWindow(),TRUE);

EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
}

#pragma ENDDUMP

//--------------------------------------------------------------------------//
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Maestros .... Una Inquietud con Windows Xp
Posted: Mon Feb 11, 2008 10:17 PM

mil y mil gracias karinha,

funciono perfecto.

Disculpa por Molestarte mas, pero se puede deshabilitar tambien la
opcion de reducir la ventana ?

de los Los Botones de la parte superior derecha de una ventana

 [ minimiza ] / [ reduce ] / [ eXit ]

desde ya muchas gracias,

Albeiro,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Maestros .... Una Inquietud con Windows Xp
Posted: Tue Feb 12, 2008 02:06 AM
albeiroval wrote:se puede deshabilitar tambien la
opcion de reducir la ventana ?
de los Los Botones de la parte superior derecha de una ventana
DEFINE WINDOW ........ NOMINIMIZE NOMAXIMIZE
Saludos
Manuel Mercado
manuelmercado at prodigy dot net dot mx

Continue the discussion