5 respuestas en este tema

[martinartaza]

Hola querida comunidad, le comento el titulo está cortado porque no sabia como abreviarlo, quise poner lo siguiente:
"Cómo abro la ayuda ejecutando el firefox en una pagina web sin trabar lazarus o como ejecuto un proceso que llama a firefox en un hilo aparte del principal"

Le comento en el programa que estoy haciendo, quiero que cuando aprieten en el menu donde dice ayuda abra el firefox con la pagina web de ayuda y resulta que todo va de 10, pero se abre la pagina y el programa queda trabado hasta que cierro el firefox, y yo deseo que el programa siga ejecutándose de lo más normal.

No implemente nunca hilos y quería pedirle sin no es mucha molestia una ayuda, que me recomienda para ejecutar un proceso en un hilo aparte.

Ahora me voy a poner a probar, espero que no me lleve mucho tiempo, si doy con la respuesta la posteo acá si no la postee es que estoy enrredado.

el código que uso para abrir el firefox es el siguiente.

delphi

procedure Tfzvac.MMostrarAyudaClick(Sender: TObject);
var Proc : TProcess;
dir: string;
 
begin
   dir:= ExtractFilePath(Application.ExeName);
   Proc := TProcess.Create(nil);
/////ya se que debo usar directorio relativo, ya lo are.
   Proc.CommandLine := 'firefox "file:///home/martin/Programacion/Lazarus/tercera%20iteracion/Menu%20completo/ayuda/index.html"';
   Proc.Options := Proc.Options + [poWaitOnExit, poUsePipes];
   PRoc.Execute;
   Proc.free;
end;

Si leen esto y no puse la solución me dan una mano, desde ya muchas gracias.

[egostar]

Hola amigo, checa esto a ver si te ayuda en algo, está en inglés.

http://www.lazarus.f...hp?topic=5982.0

Salud OS

[Héctor Randolph]

Hola martinartaza

También podría servirte este hilo

http://www.delphiacc...nes-en-lazarus/

Saludos

[escafandra]

Independientemente de como termines realizando tu ayuda, el problema de tu código es la línea:

delphi

Proc.Options := Proc.Options + [poWaitOnExit, poUsePipes];

Ella obliga a esperar a que termine el proceso que abres. Coméntala.

delphi

procedure Tfzvac.MMostrarAyudaClick(Sender: TObject);
var Proc : TProcess;
dir: string;
 
begin
   dir:= ExtractFilePath(Application.ExeName);
   Proc := TProcess.Create(nil);
/////ya se que debo usar directorio relativo, ya lo are.
   Proc.CommandLine := 'firefox "file:///home/martin/Programacion/Lazarus/tercera%20iteracion/Menu%20completo/ayuda/index.html"';
//   Proc.Options := Proc.Options + [poWaitOnExit, poUsePipes];
   PRoc.Execute;
   Proc.free;
end;

Piensa que es posible que además tengas que dar la ruta completa de la aplicación que quieres abrir.

Saludos.

[martinartaza]

Muchisimas gracias a todos, hoy cuando termine de trabajar y llegue a mi casa chequeo todos, desde ya muchas gracias.

[martinartaza]

Muchas gracias escafandra y era como tu decías, comentando esa linea ya está, logro abrir el firefox sin trabar el programa creado.

Por otro lado, Héctor Randolph te pasaste, te fuiste al .... con ese tutorial, sos groso sabelo. Ahora me pongo a seguirlo al pie de la letra, lo lei de pasada en el descanso en el trabajo y parece buenisimo, ahora en mi casa me pongo hacer lo que pusiste ahí.

Que linda que es está comunidad, gracias a todos.