Delphi 10.2 Tokyo Starter

[Glados]

Muss man doch eh alles selber schreiben:

Delphi-Quellcode:

function getUsername: string;
var
 Buffer: array [0 .. 255] of Char;
 Size: DWORD;
begin
 Result := '';
 Size := SizeOf(Buffer);

 if Winapi.Windows.getUsername(Buffer, Size) then // Winapi.Windows in uses aufnehmen
  SetString(Result, Buffer, Size - 1);
end;

function getComputerName: string;
var
 Len: DWORD;
begin
 Result := '';

 Len := MAX_COMPUTERNAME_LENGTH + 1;
 SetLength(Result, Len);

 if Winapi.Windows.getComputerName(PChar(Result), Len) then // Winapi.Windows in uses aufnehmen
  SetLength(Result, Len);
end;