Nome do Computador diferenciando caracteres

[Israel O P Lopes]

Preciso retornar o nome do computador para tanto estou usando a Function

function nomecomputador : String;

var

lpBuffer : PChar;

nSize : DWord;

const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;

begin

nSize := Buff_Size;

lpBuffer := StrAlloc(Buff_Size);

GetComputerName(lpBuffer,nSize);

Result := String(lpBuffer);

StrDispose(lpBuffer);

end;

Até ai tudo bem. A questão é que só retorna o nome da máquina em LETRAS MAIUSCULAS, gostaria que retornasse tal qual está escrito. Na maquina onde realizo o teste está assim Trabalho-PC mas só retorna TRABALHO-PC o que devo fazer?

[Jhonas]

1ª opção:

function GetLocalComputerName : string;
var c1 : dword; arrCh : array [0..MAX_PATH] of char;
begin
   c1 := MAX_PATH;
   GetComputerName(arrCh, c1);
   if c1 > 0 then
      result := arrCh
   else result := '';
end;

2ª opção

voce pode tentar ler o registro da chave

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName

3ª opção

pegar a string e trabalhar os caracteres, transformando em maiusculas e minusculas as letras

abraço