Bisschen Delphi nach VB umsetzen

[Daniel B]

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.

[Luckie]

Google: vb GetUserName, erste Treffer.

[Daniel B]

Danke!