GetUsernameEx

[kuba]

Zitat von himitsu:

Vermutlich wird man irgendwie rausfinden müssen welcher "Desktop" aktuell auf dem Monitor angezeigt wird und liest dann von Diesem den Account aus.

Super Idee, so "ähnlich" habe ich es jetzt für meine Zwecke gelöst. Wenn der richtige Benutzer angemeldet ist läuft eine bestimmte Anwendung im Hintergrund, das reicht mir vollkommen

Vielen Dank für die Anregungen.

KUBA

[Kurt56]

Ich habe das Problem, den Usernamen zu finden, so gelöst:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
    lpbuff : pchar;
    nSize : dword;
begin

lpbuff:=PChar(AllocMem(30));
getusername(lpbuff, nsize);
//showmessage(lpbuff);
getusername(lpbuff, nsize);
//showmessage(lpbuff);
end;

Leider erhalte ich bei dem ersten Aufruf von "getusername" nur einen leeren String.
Doch mit dem gleich darauf folgenden Aufruf erhalte ich den Usernamen, der sich aktuell angemeldet hat.

Warum der 1. Aufruf noch nicht zum Ziel führt, habe ich nie untersucht, Hauptsache ich komme so an den Usernamen.

Kurt

[Bernhard Geyer]

Zitat von Kurt56:

Leider erhalte ich bei dem ersten Aufruf von "getusername" nur einen leeren String.
Doch mit dem gleich darauf folgenden Aufruf erhalte ich den Usernamen, der sich aktuell angemeldet hat.

Warum der 1. Aufruf noch nicht zum Ziel führt, habe ich nie untersucht, Hauptsache ich komme so an den Usernamen.

Da brauchst du nix untersuchen, einfach die Funktionsbeschreibung durchlesen.
Der zweite Parameter ist ein In/Out-parameter. Rein gibtst du die Buffergröße, raus bekommst du die nötige Buffergröße.
Also beim ersten Aufruf geht du mit größe 0 rein, raus kommt die nötige größe und beim zweiten aufruf hast du diese als in-Wert.

[Uwe Raabe]

Zitat von Bernhard Geyer:

Also beim ersten Aufruf geht du mit größe 0 rein

Das ist aber bei einer lokalen Variable eher Zufall. Steht auf dem Stack an der Position von nWord irgendein gültiger Wert, kann das auch mal zu einem Bufferoverflow führen.

[hathor]

Delphi-Quellcode:

function GetUser: String;
const
   MAX_USERNAME_LENGTH = 256;
var
    Buffer: Array[0..MAX_USERNAME_LENGTH] of WIDEChar;
    Size: DWord;
begin
    Size := Pred(SizeOf(Buffer));
    Winapi.Windows.GetUserName(Buffer, Size);
    Result := StrPas(Buffer);
end;

[Uwe Raabe]

Zitat von hathor:

Wozu Platz verschwenden: MAX_COMPUTERNAME_LENGTH = 15 !

Wobei es hier ja nicht um den Computernamen sondern um den Usernamen geht - der kann bis zu 256 Zeichen lang sein!

[hathor]

@Uwe Raabe:
Du hast recht.
Ich habe mich bei den Constanten vergriffen...
Was mein DELPHI nicht kennt, muss ich dann eben selbst definieren:

const
MAX_USERNAME_LENGTH = 256;

[Bernhard Geyer]

Zitat von Uwe Raabe:

Das ist aber bei einer lokalen Variable eher Zufall.

Wobei wir schon fast wieder hier wären: http://www.delphipraxis.net/182840-w...reeandnil.html

[DeddyH]

Ich mach da einfach 2 Aufrufe wie von Bernhard schon angedeutet, siehe hier: http://forum.delphi-treff.de/index.p...tzer-auslesen/

[Kurt56]

Zitat von Bernhard Geyer:

Da brauchst du nix untersuchen, einfach die Funktionsbeschreibung durchlesen.
Der zweite Parameter ist ein In/Out-parameter. Rein gibtst du die Buffergröße, raus bekommst du die nötige Buffergröße.
Also beim ersten Aufruf geht du mit größe 0 rein, raus kommt die nötige größe und beim zweiten aufruf hast du diese als in-Wert.

Oh, Asche auf mein Haupt. Vielen Dank für den Hinweis.


Als USERNAME habe ich bisher erlebt, dass der Nachname 12 Stellen hatte. Da mehrere Personen der Familie einen Account hatten, kam noch der Vorname dazu.
10 Stellen sind da nicht gut ausreichend.