4programmers.net 4p Delphi FAQ Jak odczytać nazwę zalogowanego użytkownika
Delphi » FAQ

Jak odczytać nazwę zalogowanego użytkownika

Adam Boduch
Kopiuj
var
  User : String;
  Buff : DWORD;
begin
  // długość nazwiska
  Buff := 256; //stała UNLEN
  SetLength(User, Buff);
  GetUserName(PChar(User), Buff);
  ShowMessage(PChar(User)); //konstrukcja PChar(User) spowoduje obcięcie ciągu znaków na pierwszym znaku #0
FAQ

4 komentarzy

Patryk27

Bardzo przydatne :-)

Adam.Pilorz

Jak dla mnie przydałaby się jeszcze linijka:
User:=Copy(User, 1, Pos(#0, User));
przed ShowMessage. Wtedy można dać na przykład Buff:=80; i każda nazwa użytkownika się zmieści, a ta linijka obetnie wszystko od zakończenia nazwy.

urbi

Ale pod 2000 to chyba nie działa?? Przynajmniej u mnie a jak zrobić takie coś pod 2000??Z góry Dziękuje