TIP [Delphi] – Leggere l’host name su cui gira la vs applicazione

In Delphi è possibile accedere a tutte le API (Advanced Program Interfaces) di Windows, molte di queste già importate in molte librerie preconfezionate per semplificarci la vita.
La funzione di Windows che permettere di legere l’host name è GetComputerName implementata nella dll di windows “Kernel32.dll”.
La “Kernel32.dll” viene mappata in Delphi dalla unit Windows.pas.

Codice Esempio :

Uses Windows;

Function ComputerName : String;

Var

  CName : Array[0..200] of char;

  D     : Cardinal;

Begin

 D := 200;

 GetComputerName(CName,D);

 Result := CName;

End;