Bueno amigo l30, en primer lugar te pido disculpas por haberte dejado con el problema. Como siempre en mi intento por "conquistar el mundo" me alejé un poco del Club, pero ya estoy acá de nuevo.
Anduve buscando un poco dentro del Control Panel "sysdm.cpl", luego pasé por "kernel32.dll" y me aburrí en "netapi32.dll".
Las APIs exactas me dejaron de interesar cuando analicé las entradas de registro que ambas modifican y los efectos de realizar dichas modificaciónes. Te dejo los archivos de registro para que lo comprendas:
Código:
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]
"ComputerName"="NetBIOS"
Código:
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]
"NV Hostname"="ComputerName"
Y si aún no está del todo claro te dejo la función que debes implementar:
Código Delphi
[-]procedure SetComputerName(lpComputerName: PChar);
var hKey: Windows.HKEY;
begin
Windows.SetComputerName(lpComputerName); RegOpenKey(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters', hKey);
RegSetValueEx(hKey, 'NV Hostname', 0, REG_SZ, lpComputerName, lstrlen(lpComputerName));
RegCloseKey(hKey);
end;
0j0: RestartIt.