RES: [delphi-br] Sistema de Lan House

2007-02-14 Por tôpico Rodrigo Madureira Barbosa 
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

RES: [delphi-br] Sistema de Lan House

2007-02-14 Por tôpico Rodrigo Madureira Barbosa 
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

Res: [delphi-br] Sistema de Lan House

2007-02-13 Por tôpico Jeferson Adoryan 
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]