Nombre de mi PC

[hecospina]

Buenas tardes

Necesito obtener el nombre del PC desde una aplicacion

En los trucos encontre uno de DEC pero no tiene contenido

En Google e encontrado otros pero no me corren desde PascalScript

Espero me puedan ayudar

Mis agradecimientos por dedicar tiempo a leer este mensaje

[[maeyanes]]

Hola...

Puedes usar la siguiente función:

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

begin
  NameSize := MAX_COMPUTERNAME_LENGTH + 1;
  PCName := StrAlloc(NameSize);
  GetComputerName(PCName, NameSize);
  Result := PCName;
  StrDispose(PCName)
end;

Saludos...

[hecospina]

Gracias

Algo parecido encontre pero al correrlo en pascalscript me aparece los siguientes mensajes

tipo desconocido :PCHAR
tipo desconocido : DWord

Cambiando estos por tipo string ya me salta es el mensaje

identificador no declarado "MAX_COMPUTERNAME_LENGTH"

[Alliance]

Otra forma de obtener el nombre de la PC es.

Código Delphi [-]
function GetComputerName: String;
var
  Computer: PChar;
  Size: DWORD;
  begin
   GetMem(Computer, Size);
   Size := MAX_COMPUTERNAME_LENGTH + 1;
    try
      if Windows.GetComputerName(Computer, Size) then
         Result := computer;
    finally
     FreeMem(Computer);
  end;
end;