FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
¿Cómo puedo saber el nombre del equipo?
Con esta pequeña función...
Para probarla utiliza éste código:
|
#2
|
|||
|
|||
Poner:
Uses Windows; Si no da error en GetComputerName |
#3
|
||||
|
||||
Esta muy bueno el codigo y me ayudo.
Solo me generó un error 'Types of actual and formal var parameters must be identical' en la linea del 'if not GetComputerName(@Buffer, MaxSize ) then', pero lo solucioné declarando como Cardinal la variable MaxSize en vez de Integer y me funcionó perfecto. [delphi] function ComputerName(): string; var Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char; MaxSize: Cardinal; begin MaxSize := SizeOf( Buffer ); if not GetComputerName(@Buffer, MaxSize ) then raise Exception.Create( 'No puedo determinar el nombre de la máquina' ); Result := StrPas( @Buffer ); end; [delphi] |
#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] |
#5
|
||||
|
||||
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] |
#6
|
||||
|
||||
Código:
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; |
|
|
|