permisos de red

[Alexander]

Pues a mí me funciona de esta forma, obtengo el usuario y luego le pregunta a mi base de datos los permisos que debe tener en mi aplicación.

SUERTE

function UsuarioActual : String;
var
Usuario : String;
K : Cardinal;
begin
try
	 K := 255;
	 Setlength(Usuario,256);
	 Getusername(pchar(Usuario),K);
	 Setlength(Usuario,Strlen(pchar(Usuario)));
	 Result := Usuario;
except
	 Result := '';
end;
end;