Afventer programstart.

Prøv eksemplet på http://www.swissdelphicenter.com/en/showcode.php?id=1333

Eller http://www.swissdelphicenter.com/en/showcode.php?id=978 og http://www.swissdelphicenter.com/en/showcode.php?id=93

Snowball

Jeg har været inde og kigge på de pågældende eksempler før jeg skrev mit eget indlæg, men de opfylder desværre ikke helt mit behov.

Jeg ønsker ikke at venter på at program1 afsluttes, men blot at det er startet op! Alle fem programmer skal køre på samme tid, og skal placeres i en bestemt rækkefølge på proceslinien.

//Oergaard

Det er godt nok lidt af en "lappe løsning", men det burde som sådan virke. Du kan lave en timer der kører f.eks. hvert 5. sek og så starter programmet op alt efter hvad en counter indeholder. F.eks. som nedenstående:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If ProgramCounter = 1 Then Begin
    ShellExecute(Handle, nil, PChar(Program1), nil, nil, SW_SHOW);
    Inc(ProgramCounter);
  End
  Else If ProgramCounter = 2 Then Begin
    ShellExecute(Handle, nil, PChar(Program2), nil, nil, SW_SHOW);
    Inc(ProgramCounter);
  End
  Else If ProgramCounter = 3 Then Begin
    ShellExecute(Handle, nil, PChar(Program3), nil, nil, SW_SHOW);
    Inc(ProgramCounter);
  End
  Else If ProgramCounter = 4 Then Begin
    ShellExecute(Handle, nil, PChar(Program4), nil, nil, SW_SHOW);
    Inc(ProgramCounter);
  End
  Else If ProgramCounter = 5 Then Begin
    ShellExecute(Handle, nil, PChar(Program5), nil, nil, SW_SHOW);
    ProgramCounter := 1;
  End;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgramCounter := 1;
  Timer1.Interval := 5000;
end;

Snowball

Sådan har jeg egentlig også lavet det men, som du selv siger så er det lidt af en "lappe løsning" og det var egentlig det jeg ønskede at undgå! :-)

//Oergaard

En primitiv måde var at lade hvert program oprette en bestemt fil, som tegn på, at de er oppe at køre, og så lade hovedprogrammet teste på, om filen eksisterer.

I pseudokode noget i stil med:

for pgmnbr:=1 to 5
  delete file;
  start program number pgmnbr
  repeat
      wait a sec;
  until file exists;
end;

Og de kaldte programmer skal så bare oprette filen som det første.

Det kan formentlig give nogle problemer, hvis hovedprogrammet prøver at slette filen, før underprogrammet har fået lukket den, så alternativt kunne man sende et tal over som parameter til hvert af de kaldte programmer, og de skal så oprette en fil, hvor tallet indgår i navnet.
  Hvis man skal opføre sig pænt, så prøver hovedprogrammet at slette filerne til sidst, før det afslutter, men det er ikke kritisk for metoden, idet filerne jo slettes, før underprogrammerne aktiveres.

Ups - jeg manglede en linje i pseudokoden.  Efter "until file exists;" havde jeg tænkt en linje med "delete file;".  Det er årsagen til min kommentar om, at det måske kan give enqueue-problemer at forsøge at slette den.

Jeg har selv løst problemet - eller dvs. jeg bruger bare min første løsning (selvom jeg mener det er dårlig programmerling)

//Oergaard