Maestros .... Una Inquietud con Windows Xp

Maestros .... Una Inquietud con Windows Xp

Postby albeiroval » Mon Feb 11, 2008 5: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,
User avatar
albeiroval
 
Posts: 380
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela

Postby karinha » Mon Feb 11, 2008 6:38 pm

Code: Select all  Expand view  RUN
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
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby albeiroval » 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,
User avatar
albeiroval
 
Posts: 380
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela

Postby mmercado » Tue Feb 12, 2008 2: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
Code: Select all  Expand view  RUN
DEFINE WINDOW ........ NOMINIMIZE NOMAXIMIZE
Saludos
Manuel Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 55 guests