Você já se deparou com a necessidade de recuperar o nome do
computador em que o executável está rodando?
Veja nesta dica uma função muito simples que resolve este problema.
É necessário estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows;
Abaixo segue o código fonte da função:
1 2 3 4 5 6 7 8 9 10 11 12 13 | function GetNomeComputador : String; const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1; var lpBuffer : PChar; nSize : DWord; begin nSize := Buff_Size; lpBuffer := StrAlloc(Buff_Size); GetComputerName(lpBuffer, nSize); Result := String(lpBuffer); StrDispose(lpBuffer); end; |
Exemplo de uso:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetNomeComputador); end; |
Você precisa fazer o login para publicar um comentário.
Eu Amo demais o delphi, mais como ainda não dou especialista então tenho que fazer os cursos que tem aqui no site para mais ainda, Obrigado.