BomDia!
Temcomo utilizar esta função: blockinput(.t. ou .f.)
.t. bloqueia e .f. desbloqueia
Dizem que é do delphi, mas eu estouachando que compilando com harbour via fivewin daria....
A coisa seria mais ou menos assim:
if file(um arquivo)
blockinput(.t.)
else
blockinput(.f.)
endif
Dá para fazer isso em fivewin + xHarbour?
Obrigado.
Mário
bloquear teclado pelo blockinput
Moderador: Moderadores
8 Mensagens • Página 1 de 1
bloquear teclado pelo blockinput
por Mário Isa » 31 Jan 2007 10:41
-
Mário Isa Usuário NÃvel 4 
- Mensagens: 902
- Data de registro: 07 Jul 2004 13:54
- Cidade/Estado: Ilha Solteira-sp
- Curtiu: 5 vezes
- Mens.Curtidas: 8 vezes
Re: bloquear teclado pelo blockinput
por Maurilio Viana » 01 Fev 2007 10:05
Mário,
A BlockInput é uma função da API do Windows, defina-a assim:
dll32 function blockinput(lbloq as 5) as 5 pascal lib "user32.dll"
Aà é só chamar:
blockinput(.T.) // bloqueia
blockinput(.F.) // desbloqueia
[ ]'s
Maurilio
A BlockInput é uma função da API do Windows, defina-a assim:
dll32 function blockinput(lbloq as 5) as 5 pascal lib "user32.dll"
Aà é só chamar:
blockinput(.T.) // bloqueia
blockinput(.F.) // desbloqueia
[ ]'s
Maurilio
-
Maurilio Viana Usuário NÃvel 1 
- Mensagens: 1
- Data de registro: 01 Fev 2007 10:00
- Cidade/Estado: Garça - SP
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por Mário Isa » 12 Fev 2007 14:27
Vou passar aqui o programinha que fiz em clipper mas que precisa ser compilado em xHarbour.
É preciso que a cada vez que o executa ele crie um Ãcone na bandeija perto do relógio com o menu só com uma opção:
Sair
veja o programinha
//------>>> InÃcio
function main()
while .t. // laço perpétuo
// note que tirei o C:\ da jogada e sendo assim ele sentirá o arquivo no próprio diretório em que foi iniciado.
if file("trava.txt")
ferase("trava.txt")
blockinput(.t.)
end
if file("destrava.txt")
ferase("destrava.txt")
blockinput(.f.)
end
// Aqui é uma forma de o meu programa finalizar o trava.exe
if file("finaliza.txt")
ferase("finaliza.txt")
quit
end
/ Aqui , a cada 0,5 segundos, além de fazer todas essas coisas ele também gravao arquivo activated.txt para o meu programa saber que ele está ativo.
Meu programa deleta o arquivo activated.txt e se ele for novamente criado é porque o trava.exe está ativo entende? */
// Isso para ocaso de alguem desabilitá-lo, o meu próprio programa reativa-o.
if !file("activated.txt")
fll := "1"
memowrit("activated.txt")
end
inkey(0.5) // aguarda meio segundo
enddo
return nil
//--->> Final
É preciso que a cada vez que o executa ele crie um Ãcone na bandeija perto do relógio com o menu só com uma opção:
Sair
veja o programinha
//------>>> InÃcio
function main()
while .t. // laço perpétuo
// note que tirei o C:\ da jogada e sendo assim ele sentirá o arquivo no próprio diretório em que foi iniciado.
if file("trava.txt")
ferase("trava.txt")
blockinput(.t.)
end
if file("destrava.txt")
ferase("destrava.txt")
blockinput(.f.)
end
// Aqui é uma forma de o meu programa finalizar o trava.exe
if file("finaliza.txt")
ferase("finaliza.txt")
quit
end
/ Aqui , a cada 0,5 segundos, além de fazer todas essas coisas ele também gravao arquivo activated.txt para o meu programa saber que ele está ativo.
Meu programa deleta o arquivo activated.txt e se ele for novamente criado é porque o trava.exe está ativo entende? */
// Isso para ocaso de alguem desabilitá-lo, o meu próprio programa reativa-o.
if !file("activated.txt")
fll := "1"
memowrit("activated.txt")
end
inkey(0.5) // aguarda meio segundo
enddo
return nil
//--->> Final
-
Mário Isa Usuário NÃvel 4 - Mensagens: 902
- Data de registro: 07 Jul 2004 13:54
- Cidade/Estado: Ilha Solteira-sp
- Curtiu: 5 vezes
- Mens.Curtidas: 8 vezes
por rochinha » 12 Fev 2007 14:49
Amiguinho
O que voce pretende afinal? pois li o codigo e fiquei sem entender o motivo de seu uso.
Me ajuda.
Talvez o codigo abaixo possa dar uma luz, ele apresenta como usar as APIs do Windows.
O que voce pretende afinal? pois li o codigo e fiquei sem entender o motivo de seu uso.
Me ajuda.
Talvez o codigo abaixo possa dar uma luz, ele apresenta como usar as APIs do Windows.
/*
Controlando el Sistema desde Fivewin
by TheFull & Joaquim Ferrer (2000)
Hola a Todos,
Aqui os dejamos estos TIPS para el Disfrute del Personal.
*/
#include "FiveWin.ch"
#include "dll.ch"
#DEFINE WM_SYSCOMMAND 274 // &H112
#DEFINE SC_TASKLIST 61744 //&HF130
#DEFINE SC_SCREENSAVE 61760 // &HF140
#DEFINE SW_HIDE 0 // &H0
#DEFINE SW_SHOWNA 8 // &H8
#DEFINE SW_SHOW 5 // &H5
#DEFINE SW_SHOWNORMAL 1
#DEFINE SC_MONITORPOWER 61808 //&HF170 Gracias a Ramon Ramirez por la info
#DEFINE SM_CLEANBOOT 67
Static oWnd
Function Main()
local oBar, oFnt
// Lanzo conexion a Internet |-----------> Nombre Conexion
//Winexec("rundll rnaui.dll,RnaDial Uni2",0);
? GetEnv( "WinDir" )
DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
TITLE "Controlando el Sistema desde Fivewin"
DEFINE BUTTONBAR oBar OF oWnd SIZE 150,26 3D
DEFINE FONT oFnt NAME "Arial" SIZE 0, 12
DEFINE BUTTON OF oBar PROMPT "Disable Barra " FONT oFnt ;
ACTION ( EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), .F. ) )
DEFINE BUTTON OF oBar PROMPT "Enable Barra " FONT oFnt ;
ACTION ( EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), .T. ) )
// Ocultar Iconos del Escritorio
DEFINE BUTTON OF oBar PROMPT "Ocultar iconos del Escritorio " FONT oFnt ACTION ShowWindow( FindWindow(nil,'Program Manager'), SW_HIDE)
// Mostrar Iconos del Escritorio
DEFINE BUTTON OF oBar PROMPT "Mostrar Iconos del Escritorio " FONT oFnt ACTION ShowWindow( FindWindow(nil,'Program Manager'), SW_SHOW)
// Ocultar Barra de Tareas de WIndows
DEFINE BUTTON OF oBar PROMPT "Ocultar Barra de Tareas " FONT oFnt ACTION ShowWindow(FindWindow( 'Shell_TrayWnd',nil), SW_HIDE )
// Mostrar Barra de Tareas de WIndows
DEFINE BUTTON OF oBar PROMPT "Mostrar Barra de Tareas " FONT oFnt ACTION ShowWindow(FindWindow( 'Shell_TrayWnd',nil), SW_SHOWNA)
// Pulsar el boton de Inicio
DEFINE BUTTON OF oBar PROMPT "Boton Inicio" FONT oFnt ACTION (SendMessage(oWnd:hWnd,WM_SYSCOMMAND,SC_TASKLIST,0))
// Lanza el salvapantallas
DEFINE BUTTON OF oBar PROMPT "Salvapantallas" FONT oFnt ACTION GetForeWin( ) // GetDeskWin( ) // (SendMessage(oWnd:hWnd,WM_SYSCOMMAND,SC_SCREENSAVE,0))
// Abrir el Panel de Control
DEFINE BUTTON OF oBar PROMPT "Panel Control" FONT oFnt ACTION (Control("shell32.dll,Control_RunDLL",oWnd))
// Mostrar el diálogo 'Agregar/Quitar programas' (Instalar/Desinstalar)
DEFINE BUTTON OF oBar PROMPT "Agregar/Quitar programas" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL appwiz.cpl,,1',oWnd))
//Mostrar el diálogo 'Agregar/Quitar componentes de windows' (Instalar/Desinstalar)
DEFINE BUTTON OF oBar PROMPT "Agregar Componentes" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL appwiz.cpl,,2',oWnd))
//Crear Disco de Sistema
DEFINE BUTTON OF oBar PROMPT "Disco Inicio" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL appwiz.cpl,,3',oWnd))
//Mostrar el diálogo 'Propiedades de pantalla (Fondo)'
DEFINE BUTTON OF oBar PROMPT "Pantalla(Fondo)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL desk.cpl,,0',oWnd))
//Mostrar el diálogo 'Propiedades de pantalla (Protector de Pantalla)'
DEFINE BUTTON OF oBar PROMPT "Pantalla(Protector) " FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL desk.cpl,,1',oWnd))
//Mostrar el diálogo 'Propiedades de pantalla (Apariencia)'
DEFINE BUTTON OF oBar PROMPT "Pantalla(Apariencia)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL desk.cpl,,2',oWnd))
//Mostrar el diálogo 'Propiedades de pantalla (Configuracion)'
DEFINE BUTTON OF oBar PROMPT "Pantalla(Propiedades)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL desk.cpl,,3',oWnd))
//Mostrar el diálogo 'Busqueda rápida'
DEFINE BUTTON OF oBar PROMPT "Busqueda rapida" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL findfast.cpl',oWnd))
//Mostrar el diálogo 'Internet (General)
DEFINE BUTTON OF oBar PROMPT "Internet General" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL inetcpl.cpl,,0',oWnd))
//Mostrar el diálogo 'Internet (Seguridad)'
DEFINE BUTTON OF oBar PROMPT "Internet Seguridad" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL inetcpl.cpl,,1',oWnd))
//Mostrar el diálogo 'Internet (Contenido)'
DEFINE BUTTON OF oBar PROMPT "Internet Contenido" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL inetcpl.cpl,,2',oWnd))
//Mostrar el diálogo 'Internet (Conexion)'
DEFINE BUTTON OF oBar PROMPT "Internet Conexion" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL inetcpl.cpl,,3',oWnd))
//Mostrar el diálogo 'Internet (Programas)'
DEFINE BUTTON OF oBar PROMPT "Internet Progrograma" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL inetcpl.cpl,,4',oWnd))
//Mostrar el diálogo 'Internet (Avanzado)'
DEFINE BUTTON OF oBar PROMPT "Internet Avanzado" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL inetcpl.cpl,,5',oWnd))
//Mostrar el diálogo 'Propiedades de Configuracion Regional (Configuracion Regional)
DEFINE BUTTON OF oBar PROMPT "Config.Regional" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL intl.cpl,,0',oWnd))
//Mostrar el diálogo 'Propiedades de Configuracion Regional (Numero)'
DEFINE BUTTON OF oBar PROMPT "Config.Reg.Numero" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL intl.cpl,,1',oWnd))
//Mostrar el diálogo 'Propiedades de Configuracion Regional (Moneda)'
DEFINE BUTTON OF oBar PROMPT "Config.Reg.Moneda" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL intl.cpl,,2',oWnd))
//Mostrar el diálogo 'Propiedades de Configuracion Regional (Hora)'
DEFINE BUTTON OF oBar PROMPT "Config.Reg.Hora" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL intl.cpl,,3',oWnd))
//Mostrar el diálogo 'Propiedades de Configuracion Regional (Fecha)'
DEFINE BUTTON OF oBar PROMPT "Config.Reg.Fecha" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL intl.cpl,,4',oWnd))
//Mostrar el diálogo 'Dispositivos de Juego (General)'
DEFINE BUTTON OF oBar PROMPT "Juegos(General)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL joy.cpl,,0',oWnd))
//Mostrar el diálogo 'Dispositivos de Juego (Avanzado)'
DEFINE BUTTON OF oBar PROMPT "Juegos(Avanzado)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL joy.cpl,,0',oWnd))
//Mostrar el diálogo 'Raton'
DEFINE BUTTON OF oBar PROMPT "Raton" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL main.cpl @0',oWnd))
//Mostrar el diálogo 'Teclado'
DEFINE BUTTON OF oBar PROMPT "Teclado" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL main.cpl @1',oWnd))
//Mostrar el diálogo 'Impresora'
DEFINE BUTTON OF oBar PROMPT "Impresora" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL main.cpl @2',oWnd))
//Mostrar el diálogo 'Fuentes'
DEFINE BUTTON OF oBar PROMPT "Fuentes" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL main.cpl @3',oWnd))
//Mostrar el diálogo 'Propiedades Multimedia (Sonido)'
DEFINE BUTTON OF oBar PROMPT "Multimedia(Sonido)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL mmsys.cpl,,0',oWnd))
//Mostrar el diálogo 'Propiedades Multimedia (Video)'
DEFINE BUTTON OF oBar PROMPT "Multimedia(Video)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL mmsys.cpl,,1',oWnd))
//Mostrar el diálogo 'Propiedades Multimedia (Midi)'
DEFINE BUTTON OF oBar PROMPT "Multimedia(Midi)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL mmsys.cpl,,2',oWnd))
//Mostrar el diálogo 'Propiedades Multimedia (Cd audio)'
DEFINE BUTTON OF oBar PROMPT "Multimedia(Cd Audio)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL mmsys.cpl,,3',oWnd))
//Mostrar el diálogo 'Propiedades Multimedia (Dispositivos)'
DEFINE BUTTON OF oBar PROMPT "Multimedia(Dispositivos)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL mmsys.cpl,,4',oWnd))
//Mostrar el diálogo 'Propiedades de red'
DEFINE BUTTON OF oBar PROMPT "Propiedades de Red" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL netcpl.cpl',oWnd))
//Mostrar el diálogo 'Asistente para conexión de red'
DEFINE BUTTON OF oBar PROMPT "Asistente Conexion Red" FONT oFnt ACTION (Control('rnaui.dll,RnaWizard',oWnd))
//Mostrar el diálogo 'Administracion OBDC'
DEFINE BUTTON OF oBar PROMPT "Administracion OBDC" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL odbccp32.cpl',oWnd))
//Mostrar el diálogo 'Sistema (General)'
DEFINE BUTTON OF oBar PROMPT "Sistema(General)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL sysdm.cpl,,0',oWnd))
//Mostrar el diálogo 'Sistema (Dispositivos)'
DEFINE BUTTON OF oBar PROMPT "Sistema(Dispositivos)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL sysdm.cpl,,1',oWnd))
//Mostrar el diálogo 'Sistema (Perfiles hardware)'
DEFINE BUTTON OF oBar PROMPT "Sistema(Perfiles)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL sysdm.cpl,,2',oWnd))
//Mostrar el diálogo 'Sistema (Rendimiento)'
DEFINE BUTTON OF oBar PROMPT "Sistema(Rendimiento)" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL sysdm.cpl,,3',oWnd))
//Mostrar el diálogo 'Asistente hardware'
DEFINE BUTTON OF oBar PROMPT "Asistente Hardware" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL sysdm.cpl @1',oWnd))
//Mostrar el diálogo 'Asistente para añadir impresoras'
DEFINE BUTTON OF oBar PROMPT "Asistente Impresoras" FONT oFnt ACTION (Control('shell32.dll,SHHelpShortcuts_RunDLL AddPrinter',oWnd))
//Mostrar el diálogo 'Temas de escritorio'
DEFINE BUTTON OF oBar PROMPT "Temas Escritorio" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL themes.cpl',oWnd))
//Mostrar el diálogo 'Fecha/Hora (General)'
DEFINE BUTTON OF oBar PROMPT "Fecha/Hora General" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL timedate.cpl',oWnd))
//Mostrar el diálogo 'Fecha/Hora (Zona horaria)'
DEFINE BUTTON OF oBar PROMPT "Fecha/Hora Zona" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL timedate.cpl,,/f',oWnd))
//Mostrar el diálogo 'Asistente para añadir modem'
DEFINE BUTTON OF oBar PROMPT "Asistente Modem" FONT oFnt ACTION (Control('shell32.dll,Control_RunDLL modem.cpl,,add',oWnd))
//Mostrar el diálogo 'Instalar TCP/IP'
DEFINE BUTTON OF oBar PROMPT "Instalar Tcp/IP" FONT oFnt ACTION (Control('setupapi.dll,InstallHinfSection MSTCP.Install 4 nettrans.inf',oWnd))
//Mostrar el diálogo 'Instalar Adaptador telefonico para redes'
DEFINE BUTTON OF oBar PROMPT "Instalar Adap.Tele.Redes" FONT oFnt ACTION (Control('setupx.dll,InstallHinfSection RNA 12345 rna.inf',oWnd))
//Mostrar el diálogo 'Llamar a traves del acceso telefonico'
DEFINE BUTTON OF oBar PROMPT "LLama Tel" FONT oFnt ACTION (Control('rnaui.dll,RnaDial DUNConnectionName',oWnd))
//Mostrar Dialogo de Formateando discos
// Donde esta el 0 ->Formateo Rapido
// Si pones el 1 ->Formateo Total
// Si pones el 2 ->Copiar Solamente Archivos Sistema
DEFINE BUTTON OF oBar PROMPT "Formateando.." FONT oFnt ;
ACTION ( ShellExecute(oWnd:hWnd,"Open","C:\Windows\Rundll32.exe","Shell32.dll,SHFormatDrive","C:\WINDOWS",0))
//Apagar el Equipo si nos deja otras aplicaciones que esten abiertas
DEFINE BUTTON OF oBar PROMPT "Apagar Equipo Confirma." FONT oFnt ACTION ( Apaga(1,0) )
//Reiniciar el equipo
DEFINE BUTTON OF oBar PROMPT "Reiniciar el Equipo." FONT oFnt ACTION ( Apaga(2,0) )
//Apagar el Equipo sin pedir confirmacion ni nada. Las aplicaciones abiertas que se las apañen.. ;)
DEFINE BUTTON OF oBar PROMPT "Apaga y Vamonos XD." FONT oFnt ACTION ( Apaga(5,0) )
//Lanza el navegador por defecto
DEFINE BUTTON OF oBar PROMPT "Navegador" FONT oFnt ;
ACTION ShellExecute( GetActiveWindow() ,nil,'c:\html\index.htm','','',SW_SHOW)
// Apagamos( bajo consumo ) y encedemos el Monitor
// Ojo!! Si lo apagas, la unica manera de encenderlo es con la instruccion con contiene -1
// En un timer funcionaria de muerte!!!
DEFINE BUTTON OF oBar PROMPT "Apagando / Encendiendo Monitor " FONT oFnt ;
ACTION ( SendMessage(oWnd:hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 0 ),syswait(20),;
SendMessage(oWnd:hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1 ))
// Saber como Arranque de Windows
// 0- Si se hizo un arranque normal
// 1- Si se hizo un arranque a prueba de fallos
// 2- Si se hizo un arranque a prueba de fallos con arranque en red
DEFINE BUTTON OF oBar PROMPT "Como he arrancado Win? " FONT oFnt ;
ACTION ( MsgInfo( GetSysTemMetrics(SM_CLEANBOOT)) )
// Barra flotante en el INIT de la Ventana porque la Clausula FLOAT en la
// barra se hace la 'titola' un lio
ACTIVATE WINDOW oWnd MAXIMIZED ON INIT ( oBar:Float() )
oFnt:End()
// Por si acaso nos vamos con la barra ocultada
ShowWindow(FindWindow( 'Shell_TrayWnd',nil), SW_SHOWNA)
return nil
//
// Funcion Generica
// Recibe : cString - Cadena a montar ( orden )
// : oWnd - Ventana para coger el Handle
function Control(cString,oWnd)
Local Result := ShellExecute(oWnd:hWnd, nil,GetWinDir()+'\system32\rundll32.exe',;
cString, nil, SW_SHOW)
RETURN NIL
function GetSysTemMetrics(cString,oWnd)
RETURN GetSysMetrics(cString)
function FindWindowEx(cString)
RETURN .t.
DLL32 Function Apaga(uFlags As LONG,dwReserved AS LONG) ;
AS LONG PASCAL FROM "ExitWindowsEx" LIB "USER32.DLL"
DLL32 FUNCTION GetDeskWin( ) ;
AS LONG PASCAL FROM "GetDesktopWindow" LIB "USER32.DLL"
DLL32 FUNCTION GetForeWin( );
AS LONG PASCAL;
FROM "GetForegroundWindow" LIB "USER32.DLL"
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master 
- Mensagens: 4545
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 806 vezes
- Mens.Curtidas: 245 vezes
por Mário Isa » 13 Fev 2007 05:25
Olá amigo,
A idéia era só bloquear o teclado ou desbloquear dependendo da existência do arquivo trava.txt ou do destrava.txt, utilizando a função blockinput(.t. ou .f.) (bloqueia ou desbloqueia).
Também pode finalizá-lo pela existencia do finaliza.txt
E que ele grave o arquivo activated.txt a cada 0.5 só para minha aplicação saber que ele está ativo.
Obrigado.
Mário
A idéia era só bloquear o teclado ou desbloquear dependendo da existência do arquivo trava.txt ou do destrava.txt, utilizando a função blockinput(.t. ou .f.) (bloqueia ou desbloqueia).
Também pode finalizá-lo pela existencia do finaliza.txt
E que ele grave o arquivo activated.txt a cada 0.5 só para minha aplicação saber que ele está ativo.
Obrigado.
Mário
-
Mário Isa Usuário NÃvel 4 - Mensagens: 902
- Data de registro: 07 Jul 2004 13:54
- Cidade/Estado: Ilha Solteira-sp
- Curtiu: 5 vezes
- Mens.Curtidas: 8 vezes
por rochinha » 13 Fev 2007 12:49
Amiguinho
Só a existencia ou não de um arquivo já pode comandar travar ou destravar.
Crie um pequenino aplicativo que faça isto e fique rodando em background e em silencio e que verifique a existencia deste arquivo.
Ao detectar use as função de trava, esconda a barra de tarefas e apresente um dialogo de tela inteira, sem bordas e sem titulos com um campo no centro pedindo uma senha de liberação.
Ao ser colocada a senha o arquivo sera apagado e desfeitas todas operações anteriores.
Só a existencia ou não de um arquivo já pode comandar travar ou destravar.
Crie um pequenino aplicativo que faça isto e fique rodando em background e em silencio e que verifique a existencia deste arquivo.
Ao detectar use as função de trava, esconda a barra de tarefas e apresente um dialogo de tela inteira, sem bordas e sem titulos com um campo no centro pedindo uma senha de liberação.
Ao ser colocada a senha o arquivo sera apagado e desfeitas todas operações anteriores.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master - Mensagens: 4545
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 806 vezes
- Mens.Curtidas: 245 vezes
por Mário Isa » 14 Mar 2007 14:57
:)) :D :)Pos
Olha pessoal!
Eu consegui fazer o programinha tá ok ?
Fiz em xHarbour e, caso sua aplicação seja clipper + blinker e vc, como eu, ainda não teve tempo de migrar tudo pode comandar direto de sua aplicação.
Você grava um arquivo TRAVATEC.TXT e ele trava
Depois vc grava um NTRAVATC.TXT e ele destrava.
Grava um FINALIZA.TXT e ele finaliza. (se fecha)
Ele grava, a cada 0.5 segundos um ACTIVA.TXT para mostrar que está ativo. Neste caso, toda vez que você for utilizá-lo, você deleta o ACTIVA.TXT, espera 1 segundos e pergunta se existe o ACTIVA.TXT, se existe é porque ele está ativo. se não existe é porque alguem (os homologadores, provavelmente) pararam o programinha com CTRL+ALT+DEL e neste caso, vc executa novamente a aplicação.
Chama-se TRAVA.EXE.
Se alguem interessar me avise aqui.
Abraços
Mário
:|<
Olha pessoal!
Eu consegui fazer o programinha tá ok ?
Fiz em xHarbour e, caso sua aplicação seja clipper + blinker e vc, como eu, ainda não teve tempo de migrar tudo pode comandar direto de sua aplicação.
Você grava um arquivo TRAVATEC.TXT e ele trava
Depois vc grava um NTRAVATC.TXT e ele destrava.
Grava um FINALIZA.TXT e ele finaliza. (se fecha)
Ele grava, a cada 0.5 segundos um ACTIVA.TXT para mostrar que está ativo. Neste caso, toda vez que você for utilizá-lo, você deleta o ACTIVA.TXT, espera 1 segundos e pergunta se existe o ACTIVA.TXT, se existe é porque ele está ativo. se não existe é porque alguem (os homologadores, provavelmente) pararam o programinha com CTRL+ALT+DEL e neste caso, vc executa novamente a aplicação.
Chama-se TRAVA.EXE.
Se alguem interessar me avise aqui.
Abraços
Mário
:|<
-
Mário Isa Usuário NÃvel 4 - Mensagens: 902
- Data de registro: 07 Jul 2004 13:54
- Cidade/Estado: Ilha Solteira-sp
- Curtiu: 5 vezes
- Mens.Curtidas: 8 vezes
por Mário Isa » 14 Mar 2007 16:12
O programinha que usei tá aqui:
http://www.pctoledo.com.br/forum/viewto ... highlight=
http://www.pctoledo.com.br/forum/viewto ... highlight=
-
Mário Isa Usuário NÃvel 4 - Mensagens: 902
- Data de registro: 07 Jul 2004 13:54
- Cidade/Estado: Ilha Solteira-sp
- Curtiu: 5 vezes
- Mens.Curtidas: 8 vezes
Ver tópicos ativos •
8 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
