Da hier schon eine Möglichekeit für VB gepostet wurde, dachte mir ich schreib mal wies in Delphi geht.

Benutze diese Funktion auch in meinem Chattool:

function GetUsername: String;
var
Buffer: array[0..255] of Char;
Size: DWord;
begin
Size := SizeOf(Buffer);
if not Windows.GetUserName(Buffer, Size) then
RaiseLastOSError;
SetString(Result, Buffer, Size - 1);
end;