Hvem er logget på

prøv den her :

Function GetCurrentUserName : String;
var
  Size : Cardinal;
begin
Size := MAX_PATH;
SetLength(Result, Size);
Windows.GetUserName(PChar(Result),Size);
SetLength(Result, Pred(Pos(#0,Result)));
end;


Jens B

Du kan også hente informationen direkte i Reg DB\'en !

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.Rootkey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey(\'\\Network\\Logon\', True) Then //Win9x
    begin
      edit1.text := reg.ReadString(\'username\'); //Wi9x
    end;
  finally
    reg.Free;
  end;
end;

Husk at tilføje Registry under Uses !

Snowball

problemet med smowballs løsning er blot at den ikke er versions uafhænig. Fx på windows 2000 vil det ikke virke .. Hvor i mod den løsning jeg foreslog er en wrapper omkring et API kald, og der af følgende virker på alle windows versioner ..

jens B

borrisholt: Det er jeg udemærket klar over, men spørgsmålet gik jo på en Win9x PC !!!

Desuden kan man jo bare lave lidt om det jeg har skrevet så virker det også i Win2k !

Snowball

Snowball hvorfor opfinde det dybe vand og den varme talerken igen ?

Det andet er vel basalt set det man har Windows API\'en til ...

Jens B

Enig ! Jeg skrev bare en anden måde man også kunne gøre det på, og så må personen jo selv vælge hvilken metode han/hun vil bruge !

Snowball