UserName abfragen

[D13H4rdNL]

Wie kan ich den UserName abfragen einer aktive Session (WebDelphi).

Ich hab schon herausgefunden das das SessionService object (class TSessionService) alle Namen im RAM speichert.

Nog etwas:
Hab auch gelernt das Session.Values benutzt werden soll um Session daten zu speichern.
Kan ich UserName aus dem Session.Values bekommen? So ja, mit welcher String? 'UserName' geht nicht.....
Oder soll ich meine eigene 'UserName' in Session.Values speichern?

[Egon Kaschuba]

Username abfragen

hi,
hoffe das Du hiermit klar kommst.


function GetRegisteredOwner:string;
var VersionInfo : TOSVersionInfo;
reg : TRegistry;
begin
VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
GetVersionEx(VersionInfo);
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if (VersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) then // NT
reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',false)
else
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVer sion',false);
result := reg.ReadString('RegisteredOwner');
reg.free;
end;

function GetRegisteredOrganization:string;
var VersionInfo : TOSVersionInfo;
reg : TRegistry;
begin
VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
GetVersionEx(VersionInfo);
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if (VersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) then // NT
reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',false)
else
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVer sion',false);
result := reg.ReadString('RegisteredOrganization');
reg.free;
end;

procedure TForm4.FormActivate(Sender: TObject);
var memory :TMEMORYSTATUS;
begin

NALabel.caption:='Name :'+' '+GetRegisterEDOwner;


Gruß Egon Kaschuba