Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-02-2008
sur-se sur-se is offline
Miembro
 
Registrado: May 2003
Posts: 212
Poder: 15
sur-se Va por buen camino
Detección aplicaciones en ejecución

Hola. Utilizo el código siguiente en Delphi 5 para detectar una aplicación en ejecución a partir del nombre del ejecutable:
Código Delphi [-]
function Ejecutandose(FileName:String):boolean;
var
    ContinueLoop:BOOLean;
    FSnapshotHandle:THandle;
    FProcessEntry32:TProcessEntry32;
    flag:boolean;
begin
    flag:=false;
    FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
    ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
    while integer(ContinueLoop)<>0 do
    begin
        if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=UpperCase(FileName))
           or (UpperCase(FProcessEntry32.szExeFile)=UpperCase(FileName))) then
        begin
             Flag:=true;
             break;
        end
        else ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
    end;
    CloseHandle(FSnapshotHandle);
    Result:=flag;
end;
Esto funciona bien, pero cuando la aplicación se ejecuta en Terminal Server, entonces deja de funcionar y me detecta en ejecución la misma aplicación pero en otras sesiones, mientras que en la actual no lo está.
¿Cómo podría cambiar el código para que funcione bien en la sesión de TS? ¿sería mejor usar otro código para delphi 5?
Gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Deteccion de Dispositivos USB marceloalegre Varios 9 22-09-2016 14:12:55
Detección de movimiento Peregrino Gráficos 8 14-02-2008 06:27:45
problemas en ejecucion de aplicaciones oavch Windows 1 08-04-2005 12:27:49
Detección de navegador WEB aerosB4 Internet 5 08-03-2004 18:27:10
Detección de Carga de un programa craven Varios 3 24-11-2003 17:10:46


La franja horaria es GMT +2. Ahora son las 11:42:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi