DelpheroMn

Jhonas como sempre me salvando rs Muito obrigado era isso mesmo

Olá pessoal. Eu tenho um sistema um tanto complexo, com inúmeras funções (15000 linhas). E meus usuários ao usárem o sistema, se deparam com um "erro" um tanto estranho, após algum tempo o sistema ligado ele abre a tela para desligar o pc do windows (só ocorre do windows 7 pra cima) não é possivel eu analisar função por função porque são muitas, eu queria saber como é possivel fazer essa chamada , eu devo ter feito sem querer, e queria saber como eu faço pra chamar essa tela? talvez entendendo como é a chamada dela eu consigo eliminar a parte do código.

mas nesse caso ele tira tipo um "print" do fundo e grava até fechar o form. Então se caso você minimizar a janela que estava no fundo , o fundo que ele iniciou continuará. Teria alguma forma que fosse em tempo real? porque fica meio esquisito, ao mover o form a imagem de fundo ficar travada

Nesse caso também não funciona Jhonas, porque no fundo da imagem que era pra ficar transparente por ela ser em png, fica preto com essa função.. Estava pesquisando sobre componentes do gênero também e não achei nada :/

Não Jhonas, oque essa função faz é aumentar a transparencia do form inteiro. Provavelmente foi feita para as versões do delphi anteriores ao 4 , porque após essa versão eles criaram a propriedade AlphaBlendValue e AlphaBlend. Posso fazer fácilmente oque esta função fez ultilizando o seguinte código: Self.AlphaBlend := true; Self.AlphaBlendValue := 120; No caso ele coloca a transparência no form inteiro, se houvesse um método de colocar a transparencia sómente no fundo do form, deixando os componentes visiveis me ajudaria da forma que quero. Exemplo: O Form por inteiro transparente, porém o Componente TImage Visível.

Self.TransparentColor := True; Self.TransparentColorValue := ColorToRGB(Self.Color);

Olá galera, eu estou com um problema. Meu programa eu quero que tenha uma borda modelada, com transparencias nessas bordas, pra ficar algo mais bonito e agradável, no entanto estou tendo problemas com a propriedade transparentcolor. Observem: http://i50.tinypic.com/j96n8z.png A função em si funciona perfeitamente, porém a parte que imagem é semi transparente, como uma sombra ou algo do tipo ele não aplica a propriedade. Existe algum componente que possa me ajudar?

Depois de muitos pensamentos filosóficos resolvi fazer uma "gambiarrinha" básica né?! HAHA quem quiser ta aí.. procedure TForm1.Button1Click(Sender: TObject); var lista:TStringList; i,l1,l2,l3,l4,l5,l6 : integer; begin lista := TStringlist.create; lista.loadfromfile('sys.db'); for i := 0 to lista.Count -1 do begin if lista.Strings[i] = '#1' then begin l1 := i; end; if lista.Strings[i] = '#2' then begin l2 := i; end; if lista.Strings[i] = '#3' then begin l3 := i; end; if lista.Strings[i] = '#4' then begin l4 := i; end; if lista.Strings[i] = '#5' then begin l5 := i; end; if lista.Strings[i] = '#6' then begin l6 := i; end; end; for i := l1 to lista.Count -1 do begin if i < l2 then begin listbox1.Items.Add(lista.Strings[i]); end else begin break; end; end; for i := l2 to lista.Count -1 do begin if i < l3 then begin listbox2.Items.Add(lista.Strings[i]); end else begin break; end; end; for i := l3 to lista.Count -1 do begin if i < l4 then begin listbox3.Items.Add(lista.Strings[i]); end else begin break; end; end; for i := l4 to lista.Count -1 do begin if i < l5 then begin listbox4.Items.Add(lista.Strings[i]); end else begin break; end; end; for i := l5 to lista.Count -1 do begin if i < l6 then begin listbox5.Items.Add(lista.Strings[i]); end else begin break; end; end; for i := l6 to lista.Count -1 do begin if i < lista.count then begin listbox6.Items.Add(lista.Strings[i]); end else begin break; end; end; end; ele grava as linhas em que os determinados dados começam e depois da o for sómente nas linhas necessárias. rodou bem legal e sem erros, tópico resolvido !

Eu tenho uma variável do tipo TStringList com os seguintes dados #1 dados1 dados1 dados1 dados1 #2 dados2 dados2 dados2 dados2 #3 dados3 dados3 dados3 dados3 Quero que os dados do "#1" fiquem no listbox1 os dados "#2" fiquem no listbox 2 e os "#3" fiquem no listbox3 , tentei fazer de vários métodos usando while e for mas até agora sem sucesso, por favor alguém poderia me dar uma luz? Agradeço desde já

Para o desenvolvimento de um sistema de Antihacker micheus. Ao altera o processo do jogo aleatóriamente os hackers não achariam o processo para ser injectado a dll e eu acabaria de vez com 90% dos hackers.. Não é nada com virus não , não trabalho com isso. Queria algo para ficar mudando o nome do meu processo aleatóriamente várias vezes por alguns segundos..

Olá pessoal.. Hoje eu queria saber se é possivel mudar o nome de um processo em runtime.. Alguém teria algum exemplo ou material para estudo? Não encontrei nada relacionado. Agradeço desde já

Amigo, o Jhonas quis dizer que os suportos erros que você encontrou não são erros e sim avisos. Nada que interfere na compilação do programa..

Olá meus amigos, estou desenvolvendo uma espécie de firewall , onde eu preciso de uma autenticação para acessar uma determinada porta do servidor. Assim, eu já consegui listar todos os ips que acessar minha determinada porta, agora preciso saber como bloquear ou ao menos desconectar um determinado ip da conexão dessa minha porta, vou explicar a abaixo o porque: Eu possuo um cliente Esse cliente Acessa um servidor por uma porta TCP Mas antes de acessar esse servidor, ele precisa ser autenticado pelo firewall, porque não são todos os ips que estão liberados a acessar esse determinado servidor.. Eu já consegui selecionar todos os ips que estão sendo conectados a uma determinada porta, agora preciso saber como bloquear a conexão de um determinado ip a essa minha porta. Será que alguém poderia me dar uma base para eu estudar ? Agradeço desde já !

use os componentes TServerSocket e TClienteSocket na aba internet após a instalação deles use a função sendsocket.. Exemplo: procedure button1.click (sender: TObject); begin ClientSocket1.Socket.SendText('DADOS A SEREM ENVIADOS'); end; com essa função ele envia os dados para o servidor, caso queira enviar a um determinado cliente é o mesmo processo com o servidor.

Jhonas o .pas do qual você passou o link está offline "Aqui os .PAS que deve usar: http://home1.stofanet.dk/nitezhifter/files/Delphi%20Pcap.zip " Poderia me passar ao menos o nome dele? seria mais fácil de procurar na net.. ----------------------------------------------------------------------------------------------------- Edit Resolvido ! Depois de muita procura consegui achar um link ainda ativo, se alguém precisar é só baixar http://nzlab.dk/files/DelphiPcap%2025-05-2005.zip