Você está aqui: Delphi ::: Dicas & Truques ::: Sistema |
||
Como retornar o nome NetBIOS do computador (ou nome do sistema)Quantidade de visualizações: 12116 vezes |
||
Em algumas situações precisamos obter o nome do computador na rede (ou nome do sistema) no qual nossa aplicação está sendo executada. Isso pode ser feito por meio de uma chamada à função GetComputerName() da API do Windows. Veja sua assinatura:
Veja que esta função recebe como argumentos um buffer de caracteres e seu tamanho, ou seja, a quantidade de caracteres contidos no buffer e que serão usados para armazenar o nome do computador. O tamanho do buffer deve ser superior ou igual a MAX_COMPUTERNAME_LENGTH + 1. Se a função GetComputerName() retornar verdadeiro, o parâmetro lpnSize guardará a quantidade de caracteres contidos no valor resultante. Veja o exemplo:
Veja que criamos uma função personalizada GetComputerNetName() que retorna uma string contendo o nome do sistema, ou a string "Não definido" se o nome do computador não puder ser obtido. Note que se o nome do computador for alterado com uma chamada à SetComputerName() ou SetComputerNameEx(), tal alteração estará visível à função GetComputerNetName() somente depois que o computador for reiniciado. Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
||
![]() |
||
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
JavaScript - JavaScript Avançado - Como remover todas as ocorrências de uma substring em uma string usando uma função recursiva VisuAlg - Exercícios Resolvidos de VisuAlg - Como calcular e exibir os 50 primeiros números primos em VisuAlg |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
1º lugar: Java |