Código Delphi [-] var hToken: Cardinal; begin Win32Check(LogonUser('usuario', nil, 'password', LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, hToken)); try { Tus Rutinas } finally CloseHandle(hToken); end;
var hToken: Cardinal; begin Win32Check(LogonUser('usuario', nil, 'password', LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, hToken)); try { Tus Rutinas } finally CloseHandle(hToken); end;