Obtener nombre de usuario de windows
Tengo un sistema que controla almacenes, producción y otras cosas, el problema es que en programa que lo utilizan varias personas es por ello que se tienen que delegar algunos privilegios de consultas o modificaciones, la pregunta es como puedo obtener el nombre de la sesión de un cliente esto con el fin de detectar que usuario esta manejando el sistema y delegarle sus privilegios que le correspondes.
Nota. Se que puedo manejar un nombre de usuario y una contraseña pero no lo quiero hacer así preferiría con el nombre de sesión de windows
Nota. Se que puedo manejar un nombre de usuario y una contraseña pero no lo quiero hacer así preferiría con el nombre de sesión de windows
1 Respuesta
Respuesta de felixthecat
1
Prueba la siguiente función:
uses Windows;
function GetLoginName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetUserName(buffer, size) then
Result := buffer
else
Result := ''
end;
uses Windows;
function GetLoginName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetUserName(buffer, size) then
Result := buffer
else
Result := ''
end;
