Se me rompe Delphi

Gabriel2 · #2 05-08-2005

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.