PC_Namen auslesen ?

[Mark90]

Diesen Code verwende ich

Code:

function GetComputerName: String;
var
  Len: DWORD;
begin
  Len := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Len);
  if Windows.GetComputerName(PChar(Result), Len) then
    SetLength(Result, Len)
  else
    RaiseLastOSError;
end;