Hola
Aqui con una pregunta
Primero inicio una sesion con escritorio remoto, bien con usuario x,
Este inicia un programa que tengo definido.
Al salir del programa quiero que se cierre la sesion en windows
Actualmente lo que me cierra es windows completo y me apaga el ordenador
Estoy usando una funcion para apagar, pero no se como modificarla para cerrar la sesion.
Esta es la funcion
Código Delphi
[-]
function ShutDownWindows(Flag: word): Boolean;
var
TokenPriv: TTokenPrivileges;
H: DWord;
HToken: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES,HToken);
LookUpPrivilegeValue(NIL, 'SeShutdownPrivilege',
TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
H := 0;
AdjustTokenPrivileges(HToken, FALSE,
TokenPriv, 0, PTokenPrivileges(NIL)^, H);
CloseHandle(HToken);
end;
Result := ExitWindowsEx(Flag, 0);
end;
y con esto apaga
Código Delphi
[-]
ShutDownWindows(EWX_POWEROFF);
Me pueden explicar que modifico para que cierre en vez de apagar.
Gracias de antemano
Saludos