Was passiert hier?

[Lefko]

Zitat von Christian Seehase:

Moin Lefko,
GetComputerName funktioniert bei Dir nicht?

stimmt immernoch, der string ist leer...

(hier nochmal die kurze function von Luckie dazu: )

Delphi-Quellcode:

function ComputerName: string; 
var
  Size : DWORD;
begin
  result := '';
  Size := MAX_COMPUTERNAME_LENGTH;
  SetLength(result, Size);
  if GetComputerName(PChar(result), Size) then
    SetLength(result, Size-1)
  else
    result := '';
end;

Zitat von Christian Seehase:

Dann könntest Du noch die Umgebungsvariable COMPUTERNAME auslesen (GetEnvironmentVariable oder ExpandEnvironmentStrings), obwohl ich mir nicht erklären kann, warum die Funktion bei Dir nicht geht.

Ich hab Showmessage(GetEnvironmentVariable(COMPUTERNAME)) geschrieben; auch dieser string ist '', also leer.

Zitat von Christian Seehase:

Hast Du Dir mal angeschaut, was GetLastError zurückliefert?

Der Wert von GetLastError ist 0.
---------

Ähm, vielleicht ist ja auch gar kein Name eingetragen?! Ich meine, bei der Netzwerkidentifikation steht zwar der, den ich dem PC mal gegeben hab beim Windows-Installieren, aber sonst... wo kann man den denn so ändern, damit ich nachsehen kann?

MfG Lefko.