FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
permisos de red
Hola!
Necesito un concepto. Tengo que escrito un programa que se ejecuta en un dominio de red. Y la idea es hacer que cuando inicien sesion en la red( los usuarios), ese mismo logeo me sirva para la aplicación. Es decir que el S.O. me brinde que usuario esta usando la sesion y yo apartir de eso le de persmiso de lectura escritura etc. , que poseen sobre el archivo.exe de mi aplicacion. Para no pedir passwd y usuario en la aplicación nuevamante. Es seguro?, se hace de esta manera? o es mejor que la aplicación vuelva a pedir passw? Este codigo lo encontre en este foro: Código:
Function NombreUsuarioWindows: String; var pcComputerUser : PChar; dwCSize : DWORD; begin Result := '' ; dwCSize := MAX_COMPUTERNAME_LENGTH + 1; GetMem( pcComputerUser, dwCSize ); try if Windows.GetUserName( pcComputerUser, dwCSize ) then Result := pcComputerUser; finally FreeMem( pcComputerUser ); end; end; Desde ya muchas Gracias Nicocer Última edición por nicocer fecha: 17-06-2004 a las 18:27:31. |
#2
|
||||
|
||||
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 Código:
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; |
#3
|
||||
|
||||
Cita:
saludos.... |
|
|
|