 |
|
||||
Você está aqui: Delphi ::: Dicas & Truques ::: Sistema |
Como retornar o nome NetBIOS do computador (ou nome do sistema)Quantidade de visualizações: 12099 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:BOOL GetComputerName( LPTSTR lpBuffer, 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:
function GetComputerNetName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH] of char;
size: dword;
begin
size := MAX_COMPUTERNAME_LENGTH + 1;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := 'Não definido';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. |
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
