permisos de red

[nicocer]

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:
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]

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;

[vic_ia]

... 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....