[DELPHI] PEGAR O NOME DO COMPUTADOR

//uses windows

procedure TForm1.Button1Click(Sender: TObject); 

var

  Buffer: array [0 .. 255] of char;

  Size: DWORD;

begin

  Size := 256;

  if GetComputerName(Buffer, Size) then

    ShowMessage('Computador: ' + Buffer)

  else

    ShowMessage('');

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】