Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   permisos de red (https://www.clubdelphi.com/foros/showthread.php?t=11538)

nicocer 16-06-2004 22:19:38

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;

Lo que necesitaria ahora es alguna funcion me devuelva los permisos de un archivo (EJ: aplicacion.exe)

Desde ya muchas Gracias
Nicocer

Alexander 17-06-2004 22:50:24

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;


vic_ia 18-06-2004 20:17:46

Cita:

Empezado por nicocer
... 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?

solo como comentario, para decirte si es seguro o no tal vez dependa de que tan sensible sea la información que maneja tu programa, en muchas empresas se comparten equipos (por espacio, por presupuesto, etc.) o en ocaciones, por alguna razon (indebida) las personas comparten sus claves pensando que solo accesarn a la compu para trabajar en word o excel, y no pensando que tendran acceso a información especial...

saludos....


La franja horaria es GMT +2. Ahora son las 02:19:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi