Existe un control llamado "MenuXP" que utilizaba en windows 98 y delphi 5 para que el menu tuviera aspecto a Windows XP. Lo quite del programa junto con un procedimiento :
Código:
procedure TFormMenuPrin.ObtieneNombreMaquina;
var
wVersionRequested : WORD;
wsaData : TWSAData;
s : array[0..128] of char;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Get the computer name}
GetHostName(@s, 128);
ComputadoraNombre:=s;
WSACleanup;
end;
que utilizaba para saber el nombre de las pc de una red y santo remedio. Todo anduvo de 10.
Saludos suerte.