Lazarus a command line

Sekcia: Programovanie 08.04.2009 | 16:57
Avatar dzairo Teraz nic  Používateľ
Ahoj vsetci .
Potrebujem radu zo spustanim externeho scriptu.
Pouzil som komponent TProcess . nastavil som cestu a prikaz.
a po stlaaceni nejakeho tlacidla mi Process.Active:=true;
a na pozadi mi spusti moju apolikaciu ale neviem ako sa to sprava ten komponent. ak by som to chcel spustit este raz tak dam Active na false a potom true alebo Process1.Execute.
Ako to mam pouzit.
script je napisany tak ze ak uz program bezi a pokusimsa ho spustit este raz tak potom ten uz spusteny vypne a spusti novy . takze dva bezat nebudu . nepotrebujem ziadny navratovy parameter a ani ziadny dalsi parameter pre spustene.

co poradite.

vdaka
    • Re: Lazarus a command line 08.04.2009 | 17:54
      Avatar Zefram Cochrane MS Windows Vista Ultimate 64bi  Používateľ
      program pokus;
      
      uses SysUtils, Classes, Process;
      
      begin
      
        with TProcess.Create(nil) do
        try
          CommandLine := 'echo hello';
          Options := Options + [poWaitOnExit];
          Execute;
        finally
          free;
        end;
        
        // spustime druhy proces
        with TProcess.Create(nil) do
        try
          CommandLine := 'echo world';
          Options := Options + [poWaitOnExit];
          Execute;
        finally
          free;
        end;
      
      end.