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
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
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]