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.