Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r144 -r148
--- AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 144)
+++ AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 148)
@@ -46,6 +46,7 @@
     fUiContext: TUiContext;
   protected
     function ComputerName: String;
+    function WUserName: String;
     function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; isVraag: boolean = false; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult;
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
@@ -160,11 +161,21 @@
     PopupScherm.lblActie2.Align := alBottom;
   end;
 
-
-
   result := PopupScherm.ShowModal;
 end;
 
+function TfmDrieKnoppenScherm.WUserName: String;
+var
+  nSize: DWord;
+begin
+ nSize := 1024;
+ SetLength(Result, nSize);
+ if GetUserName(PChar(Result), nSize) then
+   SetLength(Result, nSize-1)
+ else
+   RaiseLastOSError;
+end;
+
 function TfmDrieKnoppenScherm.ComputerName: String;
 var
   buffer: array[0..255] of char;