Saber nombre de PC

[dunia_lv]

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


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

[seoane]

Prueba de esta manera:


function GetPCName: string;
var
Buffer: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
Size: Cardinal;
begin
FillChar(Buffer,Sizeof(Buffer),0);
Size:= Sizeof(Buffer);
if GetComputerName(Buffer,Size) then
Result:= String(PChar(@Buffer))
else
Result:= '';
end;