Hallo,
hat vielleicht jemand Lust mir einen kleinen Code nach VB umzusetzen bitte?
Delphi-Quellcode:
function GetUser: String;
var
Buffer: Array[0..MAX_COMPUTERNAME_LENGTH +1] of Char;
Size: DWord;
begin
Size := Pred(SizeOf(Buffer));
Windows.GetUserName(Buffer, Size);
Result := StrPas(Buffer);
end;
Das wäre schon alles, von VB hab ich leider weder die Ahnung, noch die Möglichkeit es zu testen.
