Ir al contenido


Foto

[TRUCO DELPHI] Nombre de tu Ordenador.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 04:24

[TRUCO DELPHI] Nombre de tu Ordenador.


delphi
  1. function GetLocalComputerName: String;
  2. Var
  3. aLength : DWORD;
  4. aLocalComputerName: Array[0..MAX_PATH - 1] Of Char;
  5. begin
  6. aLength := MAX_COMPUTERNAME_LENGTH + 1;
  7. GetComputerName(aLocalComputerName, aLength);
  8. Result := aLocalComputerName;
  9. end;

Saludos!


  • 1