Cómo se el nombre de mi pc...

[Gabriel2]

Hola a todos, necesito crear una aplicacion que detecte el nombre de la pc en la que estoy trabajando en ese momento. Cómo puedo obtener ese nombre?



saludos. gracias...

[roman]

Quizá esta función te sirva:

Código Delphi [-]
function GetComputerName: String;
var
  Buffer: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  BufferLength: Cardinal;

begin
  BufferLength := SizeOf(Buffer);
  Windows.GetComputerName(Buffer, BufferLength);

  Result := Buffer;
end;

// Saludos

[[maeyanes]]

Usa la función GetComputerName del API de Windows...

Código Delphi [-]
var
  PCName: PChar;
  NameSize: DWord;

begin
  NameSize := MAX_COMPUTERNAME_LENGTH + 1; 
  // MAX_COMPUTERNAME_LENGTH es una constante definida en Windows.pas
  PCName := strAlloc(NameSize);
  GetComputerName(PCName, NameSize)
end;

[Gabriel2]

Gracias por la ayuda...