Ver la Versión Completa : ¿Cómo puedo saber el nombre del equipo?
Neftali [Germán.Estévez]
30-06-2006, 14:28:05
Con esta pequeña función...
function ComputerName: string;
var
Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
MaxSize: Integer;
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;
Para probarla utiliza éste código:
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := ComputerName
end;
Migmam2
24-08-2006, 17:11:57
Poner:
Uses Windows;
Si no da error en GetComputerName
jjorell
24-08-2006, 17:55:01
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]
Juanito-Kun
25-10-2006, 20:18:59
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]
Juanito-Kun
25-10-2006, 20:19:17
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]
Juanito-Kun
25-10-2006, 20:20:55
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;
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.