GetUsernameEx

[JYPDWhite]

So funktioniert es bei uns:

Delphi-Quellcode:

procedure GetUserNameEx(NameFormat: DWORD;lpNameBuffer: LPSTR; nSize: PULONG);
          stdcall; external 'secur32.dll' Name 'GetUserNameExW';



procedure UsernameAuslesen();
var
  UserName_array: array[0..250] of char;
  szUserName : array[0..99] of Char;
  Size: DWORD;
begin
    FillChar(szUserName, SizeOf(szUserName), 0);
     Size := SizeOf(szUserName);
    GetUserName(szUserName, Size);  // das holt erstmal die GID des aktuellen Nutzers
    UserNameLogin:=  Uppercase(szUserName);
    Size := 250;
    GetUserNameEx(3, @UserName_array, @Size); // das ließt dann vorname nachname usw aus
end;

Das ist jetzt aus nem größeren Teil Code zusammenkopiert. Kann also sein dass es jetzt nicht Copy&Paste funktioniert

[sx2008]

Zitat von JYPDWhite:

Das ist jetzt aus nem größeren Teil Code zusammenkopiert

Das ist doch ein kleiner Wink dass der größere Codeteil nicht optimal gebaut ist.
Es passiert zuviel innerhalb einer Funktion bzw. Methode.
Solange man aus einem größeren Codeblock nützliche Funktionen isolieren kann ist der Sourcecode noch nicht richtig sauber.

[JYPDWhite]

OT: Ich weiß... Aber wie du warscheinlich ebenfals aus der Praxis weißt kann man nicht einfach ein ganzes Programm was man übernommen hat direkt komplett umbauen sondern kann das allenfalls nach und nach machen, wer soll das den sonst bezahlen

[Sir Rufo]

Zitat von JYPDWhite:

OT: Ich weiß... Aber wie du warscheinlich ebenfals aus der Praxis weißt kann man nicht einfach ein ganzes Programm was man übernommen hat direkt komplett umbauen sondern kann das allenfalls nach und nach machen, wer soll das den sonst bezahlen

Aber du hast den Code doch jetzt in den Fingern, da bietet sich doch direkt ein Refactoring an