Set hostname - can't write to registry

[himitsu]

Zitat:

Delphi-Quellcode:

ShowMessage(BoolToStr(SetComputerName('TTX'), True));
ShowMessage(SysErrorMessage(GetLastError));

ShowMessage benutzt die WinAPI.
Und nun rate mal, vor welchem API-Aufruf das GetLastError den Status liefert?

Tipp: Das Anzeigen des Message-Form war erfolgreich.

[WojTec]

I don't understand what you mean. What I should to do to make it working?

[jaenicke]

You have to ensure, that no other API function is called after the one you want to check against errors. Otherwise the error state is overwritten before you check it...
But here you call ShowMessage for the result of SetComputerName and fetch the error after this. So you won't get an error unless ShowMessage fails...
What about this way?

Delphi-Quellcode:

if SetComputerName('TTX') then
  ShowMessage('Success')
else
  ShowMessage(SysErrorMessage(GetLastError));

[WojTec]

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

[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...