RES: [delphi-br] Sistema de Lan House
Existe alguns comandos da API do windows que congelam um form na tela
impedindo a execução de outros... Tente algo como SetForegroungWindows, ou
coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na
lista mesmo pra todos poderem compartilhar...
Até +
Rodrigo
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Jeferson Adoryan
Enviada em: terça-feira, 13 de fevereiro de 2007 09:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta
rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte,
enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso)
nao permitir executar nenhum programa. Tive alguns problemas com micros
usando teclado multimidia. Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan. http://adoryan.byethost24.com byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização do
projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso
negociar os fontes.
É um sistema relativamente simples, já que na versão onde estou trabalhando
não há necessidade de controlar execução de jogos e/ou programas. É só o
controle de tempo de uso mesmo.
Contato em PVT.
Sds,
Ricardo.
Humberto humbertogrupos@ terra.com. br escreveu: Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber
se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar
rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99%
arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/
[As partes
Re: [delphi-br] Sistema de Lan House
Rodrigo, por favor poste na lista ou me coloque no CC, pios tenho interesse
em saber deste comando...
valeu
On 2/14/07, Rodrigo Madureira Barbosa [EMAIL PROTECTED] wrote:
Existe alguns comandos da API do windows que congelam um form na tela
impedindo a execução de outros... Tente algo como SetForegroungWindows, ou
coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na
lista mesmo pra todos poderem compartilhar...
Até +
Rodrigo
_
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Jeferson Adoryan
Enviada em: terça-feira, 13 de fevereiro de 2007 09:38
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta
rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte,
enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso)
nao permitir executar nenhum programa. Tive alguns problemas com micros
usando teclado multimidia. Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan. http://adoryan.byethost24.com byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização do
projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais
posso
negociar os fontes.
É um sistema relativamente simples, já que na versão onde estou
trabalhando
não há necessidade de controlar execução de jogos e/ou programas. É só o
controle de tempo de uso mesmo.
Contato em PVT.
Sds,
Ricardo.
Humberto humbertogrupos@ terra.com. br escreveu: Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
saber
se algum de vcs já fez um e se pode me ajudar no sentido de por onde
começar
rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99%
arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122
RES: [delphi-br] Sistema de Lan House
Não testei, mas o ForceForegroundWindow herda de SetForegroundWindows os
eventos padrões e acho que bloqueia os demais aplicativos... Vale a pena
testar e conferir... Assim que tiver o resultado avise-nos... ok ?! Segue o
código:
function ForceForegroundWindow(hwnd: THandle): Boolean;
const
SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
var
ForegroundThreadID: DWORD;
ThisThreadID: DWORD;
timeout: DWORD;
begin
if IsIconic(hwnd) then ShowWindow(hwnd, SW_RESTORE);
if GetForegroundWindow = hwnd then Result := True
else
begin
if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion 4))
or
((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
((Win32MajorVersion 4) or ((Win32MajorVersion = 4) and
(Win32MinorVersion 0 then
begin
Result := False;
ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow,
nil);
ThisThreadID := GetWindowThreadPRocessId(hwnd, nil);
if AttachThreadInput(ThisThreadID, ForegroundThreadID, True) then
begin
BringWindowToTop(hwnd);
SetForegroundWindow(hwnd);
AttachThreadInput(ThisThreadID, ForegroundThreadID, False);
Result := (GetForegroundWindow = hwnd);
end;
if not Result then
begin
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0),
SPIF_SENDCHANGE);
BringWindowToTop(hwnd);
SetForegroundWindow(hWnd);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0,
TObject(timeout), SPIF_SENDCHANGE);
end;
end
else
begin
BringWindowToTop(hwnd);
SetForegroundWindow(hwnd);
end;
Result := (GetForegroundWindow = hwnd);
end;
end; { ForceForegroundWindow }
//**
procedure ForceForegroundWindow(hwnd: THandle);
var
hlp: TForm;
begin
hlp := TForm.Create(nil);
try
hlp.BorderStyle := bsNone;
hlp.SetBounds(0, 0, 1, 1);
hlp.FormStyle := fsStayOnTop;
hlp.Show;
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
SetForegroundWindow(hwnd);
finally
hlp.Free;
end;
end;
//**
procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall;
external user32 Name 'SwitchToThisWindow';
{x = false: Size unchanged, x = true: normal size}
procedure TForm1.Button2Click(Sender: TObject);
begin
SwitchToThisWindow(FindWindow('notepad', nil), True);
end;
Até a próxima...
Rodrigo
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Henry Maltz
Enviada em: quarta-feira, 14 de fevereiro de 2007 08:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Sistema de Lan House
Rodrigo, por favor poste na lista ou me coloque no CC, pios tenho interesse
em saber deste comando...
valeu
On 2/14/07, Rodrigo Madureira Barbosa rodrigo.madu@
mailto:rodrigo.madu%40gmail.com gmail.com wrote:
Existe alguns comandos da API do windows que congelam um form na tela
impedindo a execução de outros... Tente algo como SetForegroungWindows, ou
coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na
lista mesmo pra todos poderem compartilhar...
Até +
Rodrigo
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
delphi-br%40yahoogrupos.com.br [mailto:
[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
delphi-br%40yahoogrupos.com.br] Em
nome de Jeferson Adoryan
Enviada em: terça-feira, 13 de fevereiro de 2007 09:38
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br delphi-br%40yahoogrupos.com.br
Assunto: Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta
rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte,
enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso)
nao permitir executar nenhum programa. Tive alguns problemas com micros
usando teclado multimidia. Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan. http://adoryan.
http://adoryan.byethost24.com byethost24.com byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase
Re: [delphi-br] Sistema de Lan House
Bom dia Ricardo , tem um cliente que me pediu para fazer um sistema para Lan House mais a falta de tempo nao permite desenvolver , topas fazer uma parceria ?? se sim favor entrar em contato pelo meu msn : [EMAIL PROTECTED] ou skype : itabytetec ou via e-mail : [EMAIL PROTECTED] JESUS TE AMA !!! - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Monday, February 12, 2007 9:51 AM Subject: Re: [delphi-br] Sistema de Lan House Estou finalizando um sistema de lan house (fase de personalização do projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso negociar os fontes. É um sistema relativamente simples, já que na versão onde estou trabalhando não há necessidade de controlar execução de jogos e/ou programas. É só o controle de tempo de uso mesmo. Contato em PVT. Sds, Ricardo. Humberto [EMAIL PROTECTED] escreveu: Olá caros colegas. Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar rsrs.. Imagino q seja usando Sockets etc.. Alguém pode me dar uma ajudinha? Vlw. [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta rodando
mas nao esta 100% pronto. O que eu queria fazer é o seguinte, enquanto o micro
esta bloqueado para uso (uso um form tela cheia pra isso) nao permitir executar
nenhum programa. Tive alguns problemas com micros usando teclado multimidia.
Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan.byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização
do projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso
negociar os fontes.
É um sistema relativamente simples, já que na versão onde estou trabalhando não
há necessidade de controlar execução de jogos e/ou programas. É só o controle
de tempo de uso mesmo.
Contato em PVT.
Sds,
Ricardo.
Humberto humbertogrupos@ terra.com. br escreveu:
Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se
algum de vcs já fez um e se pode me ajudar no sentido de por onde começar
rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização do projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso negociar os fontes. É um sistema relativamente simples, já que na versão onde estou trabalhando não há necessidade de controlar execução de jogos e/ou programas. É só o controle de tempo de uso mesmo. Contato em PVT. Sds, Ricardo. Humberto [EMAIL PROTECTED] escreveu: Olá caros colegas. Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar rsrs.. Imagino q seja usando Sockets etc.. Alguém pode me dar uma ajudinha? Vlw. [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
Essa dica não funciona no Windows 2000 / XP. Somente no Win98.
Hudson [EMAIL PROTECTED] escreveu: Ai vai um
codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
- Original Message -
From: Vinicius Latini
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, February 10, 2007 12:36 AM
Subject: Re: [delphi-br] Sistema de Lan House
Parece até concidencia peguei um pra fazer também
comecei a programar ontem
estou fazendo com socket ..
por enquantou tendo problemas no cliente referente a funções pra boquear
ALT+F4 ,Alt + Esc , CTRL + ESC
PS estou fazendo com o Builder
Quqlquer coisa manda mensagem
e a gente troca uma ideia ..
[EMAIL PROTECTED]
Em 09/02/07, Humberto [EMAIL PROTECTED] escreveu:
Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde
começar rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sistema de Lan House
Olá caros colegas. Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar rsrs.. Imagino q seja usando Sockets etc.. Alguém pode me dar uma ajudinha? Vlw. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
Parece até concidencia peguei um pra fazer também comecei a programar ontem estou fazendo com socket .. por enquantou tendo problemas no cliente referente a funções pra boquear ALT+F4 ,Alt + Esc , CTRL + ESC PS estou fazendo com o Builder Quqlquer coisa manda mensagem e a gente troca uma ideia .. [EMAIL PROTECTED] Em 09/02/07, Humberto [EMAIL PROTECTED] escreveu: Olá caros colegas. Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar rsrs.. Imagino q seja usando Sockets etc.. Alguém pode me dar uma ajudinha? Vlw. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
ESPERO PODER AJUDAR
public
{ Public declarations }
fecha: Boolean;
end;
implementation
{$R *.DFM}
Function GetStateK (Key: integer): boolean;
begin
Result := Odd (GetKeyState (Key));
end;
procedure Tfrm_HIP.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If Not fecha Then
Action := caNone Else
Action := caFree;
end;
procedure Tfrm_HIP.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If GetStateK (VK_LMENU) And (Key = VK_F4) Then
fecha := False;
end;
- Original Message -
From: Vinicius Latini
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, February 10, 2007 12:36 AM
Subject: Re: [delphi-br] Sistema de Lan House
Parece até concidencia peguei um pra fazer também
comecei a programar ontem
estou fazendo com socket ..
por enquantou tendo problemas no cliente referente a funções pra boquear
ALT+F4 ,Alt + Esc , CTRL + ESC
PS estou fazendo com o Builder
Quqlquer coisa manda mensagem
e a gente troca uma ideia ..
[EMAIL PROTECTED]
Em 09/02/07, Humberto [EMAIL PROTECTED] escreveu:
Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
saber se algum de vcs já fez um e se pode me ajudar no sentido de por onde
começar rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
é eu já tentei esses comandos mas eles não funcionan
o comando que o hudson mandou abaixo esta funcionando tranquilo
já converti pra C++ e ficou show
Em 10/02/07, Hudson [EMAIL PROTECTED] escreveu:
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
- Original Message -
From: Vinicius Latini
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Saturday, February 10, 2007 12:36 AM
Subject: Re: [delphi-br] Sistema de Lan House
Parece até concidencia peguei um pra fazer também
comecei a programar ontem
estou fazendo com socket ..
por enquantou tendo problemas no cliente referente a funções pra boquear
ALT+F4 ,Alt + Esc , CTRL + ESC
PS estou fazendo com o Builder
Quqlquer coisa manda mensagem
e a gente troca uma ideia ..
[EMAIL PROTECTED] viniciuslw%40gmail.com
Em 09/02/07, Humberto [EMAIL PROTECTED]humbertogrupos%40terra.com.br
escreveu:
Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
saber se algum de vcs já fez um e se pode me ajudar no sentido de por
onde
começar rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
Aqui vai o codigo pra desabilitar o ctrl+alt +DEL
esta funcionando 100%
OBS.:coloca a chamada DisableTaskMgr(true);
no formClose
que mesmo fechando a o programa a opção do ctrl+alt +del fica desabilitado
//Desabilita Ctrl Alt Del
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;
//Desabilita Ctrl Alt Del
DisableTaskMgr(false);
//habilita Ctrl Alt Del
DisableTaskMgr(true);
Em 10/02/07, Vinicius Latini [EMAIL PROTECTED] escreveu:
é eu já tentei esses comandos mas eles não funcionan
o comando que o hudson mandou abaixo esta funcionando tranquilo
já converti pra C++ e ficou show
Em 10/02/07, Hudson [EMAIL PROTECTED] escreveu:
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
- Original Message -
From: Vinicius Latini
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Saturday, February 10, 2007 12:36 AM
Subject: Re: [delphi-br] Sistema de Lan House
Parece até concidencia peguei um pra fazer também
comecei a programar ontem
estou fazendo com socket ..
por enquantou tendo problemas no cliente referente a funções pra boquear
ALT+F4 ,Alt + Esc , CTRL + ESC
PS estou fazendo com o Builder
Quqlquer coisa manda mensagem
e a gente troca uma ideia ..
[EMAIL PROTECTED] viniciuslw%40gmail.com
Em 09/02/07, Humberto [EMAIL PROTECTED]humbertogrupos%40terra.com.br
escreveu:
Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
saber se algum de vcs já fez um e se pode me ajudar no sentido de por
onde
começar rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
