Angemeldeter Benutzer auslesen

[cherry]

hi @ all

Progge grade einen Service... möchte jetzt den aktuellen Benutzer (Der Benutzer der momentan am PC angemeldet ist und damit arbeitet) auslesen. Wenn ich das auf die herkömmliche Methode GetUser mache, erhalte ich natürlich 'SYSTEM' weil der Dienst ja als solchen gestartet wurde...

Wie kriege ich den Benutzername des angemeldeten Benutzers also?

hab schon mal was ähnliches gefragt und da hat jmd gemeint, dass es vielleicht mit "JEDI API LIB & Windows Security Code Library (JWSCL) " gehen würde...

Das ist schon mal eine Spur, aber welche Funktion welcher Unit von JWSCL muss ich Wie Benutzer um das anzustellen...
Kenn mich mit JWSCL überhaupt nicht aus, also wäre ich dankbar wenn ihr mir helfen könnt. Oder gehts noch einfacher?

Liebe Grüsse

[RWarnecke]

Systemvariable USERNAME

[wido]

Darf man fragen wozu Du das benötigst?

[cherry]

LOOOOOOOOOOOOOOL!
ich sollte wohl besser nach hause gehen, ist wohl nicht mein Tag heute!

Vielen Dank

(Kann mal jmd diesen Thread wieder entfernen?! - Ist ja sinnlos)

[cherry]

Halt mal... das mit GetEnvironmentVariable('USERNAME'); geht doch nicht, ich erhalte einen leeren String! wo ist denn da das Problem?

Zitat:

Darf man fragen wozu Du das benötigst?

Ich erstelle in eine MSSQL DB einträge für den Benutzer, also muss ich irgendwie herausfinden welcher Benutzer angemeldet ist!

Gibts da keine Möglichkeit?

[Luckie]

Welchen Benutzer hättest du denn gerne? Der, der vor dem Bildschrim sitzt; der, der sich per Remotdeskop angemeldet hat oder den der sich gerade per FastUserSwitching angemeldet hat? Ganz abgesehen mal von den Benutzern, die sich per Terminalsession an dem Rechner angemeldet haben.

Es gibt nicht "den" angemeldeten Benutzer.

[cherry]

hi luckie, gute Frage. Ich meinte den Benutzer der vor dem Bildschirm sitzt!
geht das?

[Fussball-Robby]

[OT]

Zitat von cherry:

hi luckie, gute Frage. Ich meinte den Benutzer der vor dem Bildschirm sitzt!
geht das?

Über WebCam Gesicht scannen, Fingerabdruck nehmen und DNA überprüfen
[/OT]
Ich denke, Michael wollte damit sagen, dass es schwierig bzw. umständlich ist, den aktuellen Benutzer auszulesen, da es viele Wege gibt, sich anzumelden/den PC zu steuern.

Mfg

[Luckie]

Zitat von Fussball-Robby:

Ich denke, Michael wollte damit sagen, dass es schwierig bzw. umständlich ist, den aktuellen Benutzer auszulesen, da es viele Wege gibt, sich anzumelden/den PC zu steuern.

Nein, nicht schwierig oder umständlich, sondern unmöglich, denn wie gesagt, wer ist denn der aktuelle Benutzer, der für deine Datenbank relevant ist? Ermittelst du den Benutzer der vor dem Rechner an der Tastatur sitz, was machst du mit dem Benutzer, der per Remotedesktop oder per Terminalsession deine Anwendung benutzt?

[Popov]

Zitat von cherry:

hi luckie, gute Frage. Ich meinte den Benutzer der vor dem Bildschirm sitzt!
geht das?

Delphi-Quellcode:

function GetCurrentUserName: string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetCurrentUserName);
end;

Der Code ist nicht von mir, aber k.A. woher ich den habe.