Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Current User auslesen (https://www.delphipraxis.net/46824-current-user-auslesen.html)

konoko 1. Jun 2005 08:43


Current User auslesen
 
Hallo zusammen,

ich habe da mal ne kleine Frage: :?:

kann mir jemand von euch vielleicht sagen, wie ich den aktuell am PC angemeldtetn User auslesen kann???


Wäre echt super!!! :thumb:


Thanks konoko :angel:

Kroko1999 1. Jun 2005 08:45

Re: Current User auslesen
 
Delphi-Quellcode:
function UserName: string;
var
  Size: DWORD;
begin
  Size := MAX_PATH + 1;
  SetLength(Result, Size);
  if Windows.GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

Olli 1. Jun 2005 09:19

Re: Current User auslesen
 
Deine Frage ist uneindeutig, auch wenn es nicht so scheint. Schließlich reden wir ja potentiell auch von der NT-Plattform. Hingegen auf Consumer-Windows (außer XP Home?) geht ja nur ein Benutzer gleichzeitig. Die Frage ist also: willst du den Benutzer in dessen Kontext das Programm ausgeführt wird? Dann reicht dir obiges Beispiel. Ansonsten melde dich nochmal und ich kann dir mit einer Alternative auf die Sprünge helfen ;) ... denn potentiell können mehrere Benutzer gleichzeitig (wenn auch nicht zwangsweise interaktiv) eingeloggt sein.

MathiasSimmack 1. Jun 2005 09:36

Re: Current User auslesen
 
Ich behaupte jetzt einfach mal, konoko ging es primär um den Benutzer, der gerade angemeldet ist, und in dessen Kontext das Programm läuft. Quasi die gebotene Lösung von Kroko. Der Vollständigkeit halber könntest du aber trotzdem auch deine Lösung noch mal posten, Olli. :)

don't ask, just do it!


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz