Problem beim auslesen des Aktuellen Benutzers

[pikman]

Hallo,

hier ist mein Code zum Auslesen des Benutzers:

Delphi-Quellcode:

var
  Wert: PChar;
  Laenge: integer;
begin
  Laenge := GetEnvironmentVariable('USERNAME',nil,0);
  GetMem(Wert, Laenge);
  GetEnvironmentVariable('USERNAME',Wert,Laenge);
 RESULT := String(Wert);
 ShowMessage(Wert);
  FreeMem(Wert);

Das funktioniert auch super. Nun wird mein Programm aber beim Drucken einer Datei aufgerufen. Also der Druckertreiber startet das Programm.
Wenn nun aber der Druckertreiber das Programm startet bekomme ich bei der oben genanten Funktion SYSTEM als aktuellen Benutzer augegeben.
Ich will aber den Angemeldeten Benutzer bekommen.

Ich hoffe mein Problem ist verständlich rübergekommen, wenn ihr was nicht verstanden habt fragt nach.

Ich danke schon mal im vorraus für Euere Antworten.
MFG