Cita:
Empezado por bosster_018
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.
|
Gracias Amigo pero funciona Pero el Problema Que yo Quiero Cerrar los Procesos por WindowsName.. te doy un Ejemplo:
Cheat Engine.exe
el WIndows Name Quiero Cerrar Process List
De Todas Maneras Gracias..