Ver Mensaje Individual
  #4  
Antiguo 30-11-2017
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Sobre la copia y creación de nuevos archivos, a raíz de este hilo: Saber cuando se crea un archivo nuevo en un directorio publiqué esto otro más completo: Monitorizando el Shell sólo con la API

Sobre la monitorización del ClipBoard tenemos Visor del ClipBoard y Explorar el ClipBoard en busca de ficheros copiados

Una forma de conocer el usuario de la sesión:
Código Delphi [-]
type
  PTOKEN_USER = ^TOKEN_USER;
  TOKEN_USER = record
    User: TSidAndAttributes;
  end;

function GetCurrentUser: String;
var
  hToken: THANDLE;
  Buffer: array [0..1023] of BYTE;
  cbBuf: DWORD;
  ptiUser: PTOKEN_USER;
  snu: SID_NAME_USE;
  User, Domain: ShortString;
  USize, DSize: DWORD;
begin
  ptiUser:= PTOKEN_USER(@Buffer[0]);
  if OpenProcessToken(THANDLE(-1), TOKEN_QUERY, hToken) then
    if GetTokenInformation(hToken, TokenUser, ptiUser, sizeof(Buffer), cbBuf) then
      LookupAccountSid(nil, ptiUser.User.Sid, @User[1], USize, @Domain[1], DSize, snu);

  User[0]:= CHAR(USize);
  Result:= User;
end;

Saludos.
Responder Con Cita