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]
|