Benutzer auslesen, der das Programm ausführt

Nano-Ware · Beiträge: 394 Erhaltene Danke: 7

Hey,

ich hab sehr lange gesucht, habe aber bisher nur Funktionen gefunden, die ALLE angemeldeten User auslesen. Ich möchte den Benutzer auslesen, der diese Software ausführt!

Vielen lieben Dank schonmal

Moderiert von Narses: Topic aus VisualCLX (Component Library for Cross Platform) verschoben am Sa 22.05.2010 um 09:21

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GetCurrUserName: string;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme