Con esta pequeña función...
Código Delphi
[-]
function ComputerName: string;
var
Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
MaxSize: Integer;
begin
MaxSize := SizeOf( Buffer );
if not GetComputerName( @Buffer, MaxSize ) then
raise Exception.Create( 'No puedo determinar el nombre de la máquina' );
Result := StrPas( @Buffer );
end;
Para probarla utiliza éste código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := ComputerName
end;