Cuantas veces está abierta una aplicación
 

Buen día para todos

Podría alguien decirme si conoce una función que me permita saber cuántas veces esta abierta una aplicación. Esto para limitar la cantidad de veces que se pueda abrir, por ejemplo si ya está abierta 3 veces, que no se pueda abrir nuevamente. Yo se como verificar si está abierta con el FindWindow, pero lo que quiero es saber cuantas veces está abierta sin tener que almacenar esto en una tabla.

De antemano, muchas gracias

Hola,

ya que no quieres guardar esa info en una tabla, puedes guardarla en un fichero de texto o en el registro de windows, etc.
Revisa éste hilo.

Saludos

Si lo que quieres saber es cuantas instancias de nuestro programa están corriendo a la vez, prueba con esta función:

Código Delphi [-]
uses PsApi;

function CuantosSomos: Integer;
var
  Procesos: array[1..1024] of DWORD;
  Needed, i: DWORD;
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
begin
  Result:= 0;
  if EnumProcesses(@Procesos,SizeOf(Procesos),Needed) then
  begin
    for i:= 1 to (Needed div Sizeof(DWORD)) do
    begin
      Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        FALSE,Procesos[i]);
      if Process <> 0 then
      begin
        if GetModuleFileNameEx(Process,0,ModName,SizeOf(ModName)-1)>0  then
        begin
          if StrIComp(ModName,PChar(ParamStr(0))) = 0 then
            inc(Result);
        end;
        CloseHandle(Process);
      end;
    end;
  end;
end;

// Por ejemplo
ShowMessage(IntToStr(CuantosSomos));

Muchísimas gracias Seoane, eso era justo lo que estaba buscando. Funciona perfectamente.

Está buena para la sección de trucos del Club. Hasta pronto.

¿Y qué pasa si hago una copia del programa y le cambio de nombre?

// Saludos

Pues que no seria el mismo programa, si no una copia del mismo. :p

Ahora en serio, no tiene sentido andar moviendo los programas de sitio y esperar que funcionen bien. Así que pasaría lo que tiene que pasar, no funcionaria.

Ahora bien, que queremos hacer la súper aplicación a prueba de balas. Pues se hace, que a mi a matar moscas a cañonazos no me gana nadie :p

Código Delphi [-]
uses PsApi, Hashes;

function FSize(Path: String): Int64;
var
  SearchRec: TSearchRec;
begin
  if FindFirst(Path,faAnyFile,SearchRec) = 0 then
    Result:= SearchRec.Size
  else
    Result:= -1;
  FindClose(SearchRec);
end;

function CuantosSomos: Integer;
var
  Procesos: array[1..1024] of DWORD;
  Needed, i: DWORD;
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
  Size: int64;
  Hash: String;
begin
  Result:= 0;
  Size:= FSize(ParamStr(0));
  Hash:= CheckSum(ParamStr(0));
  if EnumProcesses(@Procesos,SizeOf(Procesos),Needed) then
  begin
    for i:= 1 to (Needed div Sizeof(DWORD)) do
    begin
      Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        FALSE,Procesos[i]);
      if Process <> 0 then
      begin
        if GetModuleFileNameEx(Process,0,ModName,SizeOf(ModName)-1)>0  then
        begin
          if Size = FSize(String(ModName)) then
            if CheckSum(String(ModName)) = Hash then
              inc(Result);
        end;
        CloseHandle(Process);
      end;
    end;
  end;
end;

La unit hashes se encuentra aquí
http://www.clubdelphi.com/foros/show...22&postcount=4

Tiene sentido en tanto se pregunta como evitarlo. De otra forma, sólo dígase al usuario que no se puede abrir más de tres veces.

Pues, hombre, ¿qué decirte? Si te tomas esto como una competencia, pues te declaro vencedor absoluto. No me interesa.

// Saludos

No es lo mismo, uno puede equivocarse y pulsar varias veces en el icono sin darse cuenta, o abrir una aplicación sin fijarse en que ya estaba abierta y minimizada, por ejemplo. Pero hacer una copia y cambiarle el nombre, me parece un acto consciente ...

:confused: ¿Competencia? ¿que competencia?, ahora si que me perdí.

Claro que no es lo mismo. Pero si tu aplicación depende funcionalmente de no poder abrir más de tres instancias, entonces debes asegurarte bien. Y si no depende de eso, entonces, dejen al usuario que abra tantas instancias como quiera.

// Saludos