Ir al contenido


Foto

[TRUCO DELPHI] Determinar si mi aplicacion esta corriendo en la Cuenta SYSTEM.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 29 agosto 2016 - 08:27

[TRUCO DELPHI] Determinar si mi aplicacion esta corriendo en la Cuenta SYSTEM.


delphi
  1. function OnSystemAccount(): Boolean;
  2. const
  3. cnMaxNameLen = 254;
  4. var
  5. sName: string;
  6. dwNameLen: DWORD;
  7. begin
  8. dwNameLen := cnMaxNameLen - 1;
  9. SetLength(sName, cnMaxNameLen);
  10. GetUserName(PChar(sName), dwNameLen);
  11. SetLength(sName, dwNameLen);
  12. if UpperCase(Trim(sName)) = 'SYSTEM' then Result := True
  13. else
  14. Result := False;
  15. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.