Código: Selecionar todos
HandlerRoutineCódigo: Selecionar todos
SetConsoleCtrlHandlerCódigo: Selecionar todos
#pragmaCódigo: Selecionar todos
#include <stdio.h>
#include <windows.h>
BOOL WINAPI closeHandler(DWORD Evento)
{
switch (Evento)
{
case CTRL_CLOSE_EVENT:
MessageBox(NULL, "Vc clicou no X", "Eba Oba!!", MB_OK);
break;
}
return TRUE;
}
int main()
{
int counter = 0;
SetConsoleCtrlHandler(closeHandler, true);
for (;;)
{
printf("oi %d\n", counter);
counter++;
}
}
Código: Selecionar todos
function start()
CTRL_HANDLE_CONSOLE()
for i:=1 to 1000000000
? "oi"
next
return nil
#pragma BEGINDUMP
#include "hbapi.h"
#include <windows.h>
int WINAPI closeHandler(DWORD Evento)
{
switch (Evento)
{
case CTRL_CLOSE_EVENT:
MessageBox(NULL, "Vc clicou no X", "Eba Oba!!", MB_OK);
return 0;
break;
}
return 1;
}
HB_FUNC( CTRL_HANDLE_CONSOLE )
{
SetConsoleCtrlHandler(closeHandler, 1);
}
#pragma ENDDUMP
Não consegui entender.Sim, eles pertencem a API( application programming interface ) do windows.andlerRoutine e SetConsoleCtrlHandler seriam 2 APIs, certo ?
No caso, utilizo o comando de pre-processamento, #pragma, para dizer ao compilador que daquele ponto, #pragma begindump até o #pragma enddump vai ser código nativo CO comando #pragma permite que o programador diga ao compilador para fazer certas coisas. Uma vez que o comando #pragma é específico da implementação, os seus usos variam de compilador para compilador. Uma opção possível é traçar a execução do programa.
http://pt.cppreference.com/w/cpp/preprocessor/pragma
está é uma função que é executada a cada evento que ocorrer no console, eu poderia ter dado qualquer nome a ela...BOOL WINAPI closeHandler () executa a API, é isso ?
Sim, essa é a entrada do programa.Depois vem Int Main(). Seria meu Function Main ?
Neste trecho do código, dentro do case...Mas em qual linha é acionada qual função no Clique do X do Windows?
Código: Selecionar todos
04 BOOL WINAPI closeHandler(DWORD Evento)
05 {
06 switch (Evento)
07 {
08 case CTRL_CLOSE_EVENT:
09 MessageBox(NULL, "Vc clicou no X", "Eba Oba!!", MB_OK);
10 break;
11 }
12 return TRUE;
13 }Até onde eu saiba, não tem como....1) É possível também impedir o fechamento no X? Sei de função que desabilita o X da janela, mas ela não impede que o usuário clique na opção de fechar a janela na própria barra de tarefas.
Tem sim, é muito simples, veja o anexo.2) Tem como executar uma função normal do Harbour de dentro da função C compilada junto? Estou tentando simplesmente chamar a função assim: minha_função(), mas dá erro na compilação
Código: Selecionar todos
function start()
CTRL_HANDLE_CONSOLE()
inkey(10)
for i:=1 to 1000000000
? "oi"
next
return nil
function minha_funcao()
QOut("Ola mundo, da minha funcao")
return nil
#pragma BEGINDUMP
#include "hbapi.h"
#include "hbinit.h"
#include "hbvm.h"
#include <windows.h>
HB_FUNC_EXTERN( MINHA_FUNCAO ); // define como função externa
int WINAPI closeHandler(DWORD Evento)
{
switch (Evento)
{
case CTRL_CLOSE_EVENT:
MessageBox(NULL, "Vc clicou no X", "Eba Oba!!", MB_OK);
return 0;
}
return 1;
}
HB_FUNC( CTRL_HANDLE_CONSOLE )
{
HB_FUNC_EXEC( MINHA_FUNCAO ); // chamada da função HARBOUR
SetConsoleCtrlHandler(closeHandler, 1);
}
#pragma ENDDUMP
Código: Selecionar todos
/*
TESTE DE USO SIMPLES DE ATIVAR OU DESATIVAR O X DA JANELA
COMPILAR COM HBMK2 DEMO.PRG -GUI -GTWVT
*/
#include 'inkey.ch'
#include 'hbgtinfo.ch'
function main()
hb_gtInfo( HB_GTI_CLOSABLE,.f.) // inibe o fechamento no X da janela
setcursor(0)
cls
?'TESTE PARA FECHAMENTO DE JANELA'
while .t.
tk:= inkey(0,128 + HB_INKEY_GTEVENT)
if (lastkey() == HB_K_CLOSE)
if alert('Deseja fechar o sistema ? ',{'Sim','Nao'}) == 1
exit
endif
endif
end Código: Selecionar todos
#include "inkey.ch"
function main()
CTRL_HANDLE_CONSOLE()
IF FILE("cliente.dbf") == .F.
aDB := { { "Codigo", "N", 3, 0 }, { "Nome", "C", 50, 0 } }
DbCreate( "clientes", aDB )
ENDIF
USE Clientes EXCLUSIVE NEW
while .t.
tk := inkey(0,INKEY_ALL)
if tk==27 .and. nextkey()==0
minha_funcao()
endif
end
return nil
function minha_funcao()
? "Fechando tudoooo!!!"
CLOSE ALL
QUIT
return nil
#pragma BEGINDUMP
#include "hbapi.h"
#include "hbinit.h"
#include "hbvm.h"
#include <windows.h>
HB_FUNC_EXTERN( MINHA_FUNCAO ); // define como função externa
int WINAPI closeHandler(DWORD Evento)
{
switch (Evento)
{
case CTRL_CLOSE_EVENT:
MessageBox(NULL, "Vc clicou no X", "Eba Oba!!", MB_OK);
HB_FUNC_EXEC( MINHA_FUNCAO ); // chamada da função HARBOUR
return 0;
}
return 1;
}
HB_FUNC( CTRL_HANDLE_CONSOLE )
{
SetConsoleCtrlHandler(closeHandler, 1);
}
#pragma ENDDUMP