Einzelnen Beitrag anzeigen

pikman

Registriert seit: 22. Sep 2004
8 Beiträge
 
Delphi 7 Enterprise
 
#1

Problem beim auslesen des Aktuellen Benutzers

  Alt 16. Okt 2004, 18:28
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
  Mit Zitat antworten Zitat