![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
||||
|
||||
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] |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|