Voilà une petite fonction qui te permet de savoir sur quel contexte utilisateur tu es.
function Utilisateur(): string; var LongMax: DWORD; begin LongMax:= 255; {Longeur Max. du nom d'utilisateur} SetLength(Result, LongMax); {Préparation du résultat} if GetUserName(PChar(Result), LongMax) then SetLength(Result, LongMax- 1) else Result := ''; end;
|