Ir para conteúdo
Fórum Script Brasil

robinhocne

Membros
  • Total de itens

    854
  • Registro em

  • Última visita

2 Seguidores

Sobre robinhocne

  • Data de Nascimento 13/02/1987

Contatos

  • Website URL
    http://
  • ICQ
    0
  • Skype
    robinhocne

Perfil

  • Gender
    Male
  • Location
    Rio de Janeiro

Últimos Visitantes

3.010 visualizações

robinhocne's Achievements

0

Reputação

  1. Bom dia, Jhonas, mas pelo windows etá imprimindo normalmente e já tinha removido e instalado novamente, mas mesmo assim continua.
  2. Bom dia, Estou tendo esse erro ao imprimir em rede em uma impressora matricial lx 300 para geral o relatório eu uso o fortes report.
  3. valeu Jhonas, consegui, me ajudou muito sua explicação e esse artigo também; implementation {$R *.dfm} uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg, subReg: TRegistry; chaves, chaves1: TStringList; i:integer; caminho : String; begin caminho := '\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\'; Reg := TRegistry.Create; Reg.Access := KEY_READ; Reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey(caminho,false); chaves := TStringList.Create; reg.GetKeyNames(chaves); subReg := TRegistry.Create; subReg.Access := KEY_READ; subReg.RootKey := HKEY_LOCAL_MACHINE; chaves1 := TStringList.Create; for i :=0 to chaves.Count -1 do begin subreg.OpenKey(caminho+chaves[i],false); subReg.GetKeyNames(chaves1); //ShowMessage('\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\'+chaves[i]+'\Connection'); if (copy(chaves[i],0,1) = '{') then begin // ShowMessage(chaves1.strings[0]); reg.OpenKey(caminho+chaves[i]+'\'+chaves1.strings[0],false); //reg.GetKeyNames(chaves1); ShowMessage(reg.ReadString('PnPInstanceId')); if (reg.ReadString('PnPInstanceId') <> '') then cbAdaptador.Items.Add(reg.ReadString('Name')); end; end; reg.CloseKey(); reg.free; chaves.free; subReg.CloseKey(); subReg.free; chaves1.free; end; end.
  4. Bom dia, há uns dias estava com um problema onde necessitava alterar o IP do pc, consegui porém essa façanha necessita passar o nome do adaptador de rede, infelizmente para cada sistema operacional isso muda e hoje descobri que piora mais ainda quando uma placa de rede queima, quando temos wifi, maquina virtual e etc, então uma solução que estou procurando para capturar o nome desse adaptador é vasculhando os registros do windows, acho que encontrei o caminho certo, porém como nem tudo é simples.... a lista de adaptadores aparece dessa forma nos registros do windows o Caminho dos registros é : Computador\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318} Porém eu tenho uma lista enorme, isso porque sinceramente não parei para analisar, a situação é que eu teria que percorrer essas pastas, entrar e pegar o Name dentro do Connection e só assim eu conseguirei obter o que necessito; Outros adaptadores que são inativos, ou não existe fica dessa maneira; Como faço isso ? pegar o nome especifico eu consegui, porém nesse caso terei que percorrer essas pastas e em cada uma acessar o Connection e pegar quem está ativo.
  5. Jhonas, testei aqui em ambos windows e infelizmente não deu certo, ele não traz os nomes do Adaptador, vou mudar a tática, vou verificar qual S.O. tem instalado no PC e vou passar o nome da rede para verificar....
  6. Não Jhonas....são esses 1ª Imagem é do Windows 8, 2ª Imagem é do Windows 10 e 3ª Imagem é do XP.
  7. Jhonas, mas esses exemplos lista o IP e nome do computador, não do adaptador de Rede
  8. já tentei esses ai Jhonas, todos que pesquisei não tive sucesso....
  9. Boa tarde, Criei um processo para alterar o IP do computador sem precisar reiniciar, porém nesse metodo tenho que passar o nome do adaptador de rede que infelizmente dependendo do SO e do adaptador isso muda, por exemplo XP "Conexão Local", W8 "Ethernet" e W10 "Rede", então qual minha ideia.... é pegar o nome desse adaptador, porém não achei como fazer....
  10. show consegui Jhonas era erro meu aqui
  11. tentei, mas não funcionou...por exemplo esse; if Win32Platform = VER_PLATFORM_WIN32_NT then begin comando := 'cmd /cnetsh interface ip set address "Conexão local" static '+txIp.Text+' 255.255.254.0 10.11.1.1 1'; WinExec(PChar(comando), SW_SHOWNORMAL) end else begin MessageBox(Handle, 'esse Comando não pode ser rodado fora da plataforma NT', 'NETSH', MB_ICONWARNING); end;
  12. Bom dia, sim, mas queria pelo delphi, para que não precisamos abrir as configurações para alterar.
  13. Como faço para alterar o ip do pc ?
×
×
  • Criar Novo...