Ver Mensaje Individual
  #1  
Antiguo 03-08-2006
dunia_lv dunia_lv is offline
Miembro
 
Registrado: feb 2005
Posts: 60
Reputación: 20
dunia_lv Va por buen camino
Saber nombre de PC

Hola necesito saber sobre alguna función que devuelva el nombre de la pc, he encontrado un truco en delphi 7

Código Delphi [-]
 
function GetPcName: string;
var size: DWORD;
begin
 size := 128;
 setlength(result, size);
 if GetComputername(PChar(result), size) then
   setlength(result, size)
 else result := 'desconocido';
end;

pero resulta que trabajo en delphi 2005(vcl) y me da un error en la línea que puse en negrita...
"Invalid type cast"

Gracias desde ya

Dunia

Última edición por dec fecha: 04-08-2006 a las 15:59:26.
Responder Con Cita