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

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...

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

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;

Gracias por la ayuda...