http://dn.codegear.com/article/26731 2008-11-19T05:03:48-08:00 Arthur van Dijk http://threads.codegear.com/threads/threads.exe/userall?commentid=39920 http://threads.codegear.com/threads/threads.exe/view?commentid=39920 2007-02-27T09:34:49-08:00 2007-02-27T09:34:49-08:00

re: How to display the current user name.

Happend here too... I solved the problem like this:added the following line in the Procedure declarations section:function CurrentUserName: String;then added the function like this:function TForm1.CurrentUserName:String;var u: array[0..127] of Char; sz:DWord;begin sz:=SizeOf(u); GetUserName(u,sz); Result:=u;end;Now you can call it anytime using Form1.CurrentUserName and it acts as a String. Ben Hull http://threads.codegear.com/threads/threads.exe/userall?commentid=27931 http://threads.codegear.com/threads/threads.exe/view?commentid=27931 2001-02-12T06:45:00-08:00 2001-02-12T06:45:00-08:00

How to display the current user name.

I have found that there is a high failure rate on GetUserName (50%) if you do not call it like this:procedure TfrmMain.FormCreate(Sender: TObject);var UserName : PChar; c : Cardinal;begin//Get User Name Windows API call c := 0; GetUserName(nil, c); UserName := StrAlloc(c); if GetUserName(UserName, c) then UserRec.Login := Uppercase(StrPas(UserName)); StrDispose(UserName);//NT GetUserName Windows API call//Other stuff goes here end;