Ver Mensaje Individual
  #2  
Antiguo 15-11-2009
Avatar de bosster_018
bosster_018 bosster_018 is offline
Miembro
 
Registrado: nov 2009
Ubicación: Bolivia
Posts: 127
Reputación: 15
bosster_018 Va por buen camino
Explica mejor tu duda

No te entendí muy bien, pero lo que quieres hacer es detectar el proceso y cerrarlo. ¿Al mismo tiempo que abre una página Web?

Si es así puede servirte este pequeño ejemplo:

//Este ejemplo toma como proceso el "notepad.exe" pero puedes cambiarlo por el proceso que quieras

Antes que nada en las Uses de tu formulario desbes escribir
ShellApi y TlHelp32:

Código Delphi [-]
Uses
  TlHelp32, ShellApi;

En un timer con intervalo de 1 milisegundo escribes esto:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Abrir_Procesos : Integer;
  Leer_Procesos : TProcessEntry32;
  Seguir_Leyendo: BOOL;
  Preguntar : string;
begin
  // Abre y lee la lista de procesos en éste momento
  Abrir_Procesos := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  Leer_Procesos.dwSize := SizeOf(Leer_Procesos);

  // Acceder al primer proceso
  Seguir_Leyendo := Process32First(Abrir_Procesos, Leer_Procesos);

  // Condicion para recorer los procesos activos hasta que sea igual a 0
    while (Integer(Seguir_Leyendo) <> 0) do
    begin
      // Añadirlo a la lista
      preguntar:= ExtractFileName(Leer_Procesos.szExeFile);
      // Empezar a leer los procesos
      Seguir_Leyendo := Process32Next(Abrir_Procesos, Leer_Procesos);
      // Preguntar si encontró el proceso
        if Preguntar='notepad.exe' then
        begin
          //Elimina el proceso con tskill
          ShellExecute(Handle, nil, 'tskill', 'notepad', nil, SW_HIDE);
          //Acceder a una página Web
          ShellExecute(Handle, 'Open', 'Alguna_Página_WEB', nil, nil, S_NORMAL);
        end;
      end;
    // cerrar la lectura de procesos
    CloseHandle(Abrir_Procesos);
end;


Nota aparte: Me siento alegre de poder participar de nuevo en el foro, pues mi cuenta practicamente desapareció del servidor , pero no pasa nada... al final de cuenta soy novato y no tenía mucha participación, pero sigo siendo fiel al ClubDelphi ya que es una página de ayuda muy eficáz.
Además no quería dar problemas para reparar mi cuenta.
Responder Con Cita