var
Buffer:array[0..255] of char;
Len:integer;
begin
Len :=255;
GetEnvironmentVariable('USERDOMAIN',Buffer,Len);
ShowMessage(Buffer);
end;
2023-11-24 10:02:46
var
Buffer:array[0..255] of char;
Len:integer;
begin
Len :=255;
GetEnvironmentVariable('USERDOMAIN',Buffer,Len);
ShowMessage(Buffer);
end;