PC_Namen auslesen ?

[HolgerCW]

Hallo zusammen,

weiss jemand wie man den Namen des Anmelders an Windwos XP auslesen kann ?

Gruss

Holger

[mkinzler]

Schau mal in der JCL (JclSysInfo)

[HolgerCW]

Wo muss ich da schauen.

Ich kenne keine JCL ?

Gruss

Holger

[s-off]

Solltest Du die Jedis nicht haben, schaust Du in der Code-Lib

Edit: Rechtschreibfehler ausgebaut

[mkinzler]

http://www.delphipraxis.net/internal...t.php?t=117311

Zitat:

Edit: Rechtschreibfehler ausgebaut

Wieviel sind denn Soll? :mrgreen:

[Luckie]

Forensuche Rechnername. :roll:

[HolgerCW]

Vielen dank für die ganzen Hilfen,

habe das Programm von Luckie zum auslesen des Namens genommmen.

Das funktioniert gut.

Danke und Gruss

Holger

[Mark90]

Diesen Code verwende ich

Code:

function GetComputerName: String;
var
  Len: DWORD;
begin
  Len := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Len);
  if Windows.GetComputerName(PChar(Result), Len) then
    SetLength(Result, Len)
  else
    RaiseLastOSError;
end;

[HolgerCW]

Hi,

dieser Code liest ja den PC-Namen aus. Ich wollte ja den Namen, welcher sich unter Windows angemeldet hat.

Gruss

Holger

[fLaSh11]

Leider ist deine Überschrift verwirrend xD

[Torpedo]

Das kann man auch ohne Komponente mit GetUserName

[marabu]

Stimmt:

Delphi-Quellcode:

function CurrentUser: string;
var
  buf: array [0..256] of Char;
  size: Cardinal;
begin
  size := SizeOf(buf);
  if Windows.GetUserName(@buf, size)
    then Result := buf
    else Result := '';
end;

[HolgerCW]

Sorry für die verwirrende Überschrift.

Danke für die einfache Lösung.

Gruss

Holger

[mkinzler]

Zitat:

Zitat von HolgerCW

Sorry für die verwirrende Überschrift.

Dann ändere sie doch!