¿Cómo puedo saber el nombre del equipo?

[Neftali [Germán.Estévez]]

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;

[Migmam2]

Poner:
Uses Windows;

Si no da error en GetComputerName

[jjorell]

Esta muy bueno el codigo y me ayudo.

Solo me generó un error 'Types of actual and formal var parameters must be identical' en la linea del 'if not GetComputerName(@Buffer, MaxSize ) then', pero lo solucioné declarando como Cardinal la variable MaxSize en vez de Integer y me funcionó perfecto.

[delphi]
function ComputerName(): string;
var Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
MaxSize: Cardinal;
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;
[delphi]

[Juanito-Kun]

Se que no cambia mucho pero me funciono asi:

[code]
function ComputerName: string;
var
Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
MaxSize: DWORD;
begin
MaxSize := SizeOf( Buffer );
if not GetComputerName(Pchar(@Buffer),MaxSize) then
raise Exception.Create( 'No puedo determinar el nombre de la máquina' );
Result := StrPas( @Buffer );
end;
[code]

[Juanito-Kun]

Se que no cambia mucho pero me funciono asi:

[code]
function ComputerName: string;
var
Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
MaxSize: DWORD;
begin
MaxSize := SizeOf( Buffer );
if not GetComputerName(Pchar(@Buffer),MaxSize) then
raise Exception.Create( 'No puedo determinar el nombre de la máquina' );
Result := StrPas( @Buffer );
end;
[code]

[Juanito-Kun]

function ComputerName: string;
var
  Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
  MaxSize: DWORD;
begin
  MaxSize := SizeOf( Buffer );
  if not GetComputerName(Pchar(@Buffer),MaxSize) then
    raise Exception.Create( 'No puedo determinar el nombre de la máquina' );
  Result := StrPas( @Buffer );
end;