Shell nach Beendigung freigabe Bottun

[loow]

Hallo zusammen,

ich bin recht neu hier aber Gambas ist nicht ganz neu für mich. Schreibe ein Programm mit einer Installation Anweisung die im
Hintergrund per Shell aufrufen wird. Starte ich die Installation per Bottum, wird dieser gesperrt und es laufen mehrere Shell Anweisung durch.
Nach Abschluss, soll der Button wieder freigegeben werden, eigentlich geht das auch ABER, der Button wird zu früh freigegeben und die Shell laufen teilweise gleichzeitig.
Hier mal ein abgespeckter Auszug: gambas code

Install.Enabled = False
  If Not Exist(User.Home &/ ".test") Then 
    Wait 0.5
    Shell App_DIR &/ "bin/cli config" Wait For Read Write As "Install_list_Contents"
    Wait 0.5
    Shell App_DIR &/ "bin/cli core install" Wait For Read Write As "Install_list_Contents"
    Wait 0.5
    Shell App_DIR &/ "bin/cli core update" Wait For Read Write As "Install_list_Contents"
  Endif 
  Wait 1
  Shell App_DIR &/ "bin/cli listall" Wait For Read As "Install_list_Contents"
  Install.Enabled = True

Wenn ich hier "Wait For..." einsetzte, geht es, aber da ich die Ausgabe haben möchte und ich Wait entferne, wird er Button zu früh freigegeben und die Shell verschluckt sich teilweise.
Wie kann ich die Shell einzeln ausführen und er Button erst nach Abschluss wieder Freigeben.

Gruß an alle

[Honsek]

Hallo,

ein Blick auf https://gambas-buch.de/doku.php?id=k21: ... &s[]=shell
könnte Dir helfen, einen geeigneten Ansatz zu finden.

Mit freundlichem Gruß

Honsek

[loow]

Hallo,

hab ich schon und einige andere Seiten auch, aber finde da keine Lösung.
Gambas ist leider nicht weit verbreitet, obwohl ich die GUI sehr gut finde,
habe keine andere Sprache gesehen, die alles in einem hat...

Aber gut, das löst leider nicht mein Problem...

Gruß

[Honsek]

Hallo,

es wäre hilfreich, wenn genau beschrieben wird, was in den offensichtlich 4 Schritten realisiert werden soll.
Bisher kann ich im verkürzten Quelltext nichts erkennen.

Mit freundlichem Gruß

Honsek

[Bonus]

Die Verwendung von „Wait“ funktioniert nicht so, wenn „For Read“ verwendet wird.

Sie müssen die Process.class verwenden, um auf das Ende des Prozesses zu warten.
gambas code

Dim hProc As Process

hProc = Shell "command" For Read Write As "Install_list_Contents"

While hProc.State = Process.Running  ' Wait
  Wait 0.1
Wend

If hProc.Value Then Message.Error("Error " & hProc.Value)

[Bonus]

OR..
gambas code

  Dim sResult As String
  Dim hProc As Process

  Install.Enabled = False
  If Not Exist(User.Home &/ ".test") Then Shell "cd '" & App_DIR &/ "bin/'; cli config; cli core install; cli core update" Wait To sResult
 
  hProc = Shell App_DIR &/ "bin/cli listall" For Read Write As "Install_list_Contents"
 
  While hProc.State = Process.Running  ' Wait
    Wait 0.1
  Wend

  Install.Enabled = True