Discussion :

[tomy_libre]

saut à tous,
je veus récpurer la session courante de 'utiisateur.
et merci

[BuzzLeclaire]

Salut,

essaie ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function NomUser : string;
var
  Utilisateur : Array[0..255] Of Char;
  Taille      : Cardinal;
begin
Try
  Taille := SizeOf(Utilisateur);
  If GetUserName(@Utilisateur,Taille) then
     Result := strpas(Utilisateur)
  else
    Result :='';
Except
  on E : Exception do
  Begin
    ShowMessage('Ton message d''erreur');
  Result := '';
  End;
End;
end;