Set hostname - can't write to registry

[jaenicke]

Zitat von WojTec:

Hm, now return True, but names are not changed after restart

For me it seems as if you look at the wrong position. Following the documentation only the NETBIOS name is changed by this function. This is not what you see in the system settings.

So you will have to follow the hint in the documentation:

Zitat:

To set the DNS host name or the DNS domain name, call the SetComputerNameEx function.

I guess you meant what SetComputerNameEx does.

[WojTec]

I have:

Delphi-Quellcode:

// Set DNS and NetBIOS
SetComputerName(ComputerNamePhysicalDnsHostname, FHostName);
// Set NetBIOS
SetComputerName(ComputerNamePhysicalNetBIOS, FComputerName);

My SetComputerName():

Delphi-Quellcode:

function SetComputerName(const AType: TComputerNameFormat; const AName: string): Boolean;
var
  Name: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
begin
  StrPCopy(Name, AName);
  Result := SetComputerNameEx(AType, Name);
end;

It seems there is some strange problem with permissions...