サーバレス練習帳

着眼大局着手小局

【Delphi】コンピューター名とログインユーザー名の確認

これでできた。
Delphi FAQ: Win32のコンピュータ名の取得

var
  ComputerName: array[0..127] of Char;
  UserName : array [0..127] of char;
  Size: DWORD;
begin
  Size:=128;
  GetComputerName(ComputerName, Size);
  GetUserName(UserName, Size);
  ShowMessage('ComputerName : '+ComputerName
    +', UserName : '+UserName);
end;

よくわかりませんが、コンピューター名もユーザー名も128文字以内としました。
長い名前があったらどうしよう。