Can't killprogram()

[rotacak]

Hi, I have simple code:

Code: Select all

a =  RunProgram("cmd.exe", "", "")
Delay(1000)
Debug a
Debug IsProgram(a)
Debug ProgramRunning(a)
Debug KillProgram(a)

But it will fail at ProgramRunning(a). Can someone explain me why?

[Little John]

Use this:
a = RunProgram("cmd.exe", "", "", #PB_Program_Open)

For details, see the documentation of RunProgram().

[rotacak]

Little John: Thank you. I did not realized that kill program is also "communication" which will need #PB_Program_Open.

[BarryG]

But it will fail at ProgramRunning(a). Can someone explain me why?

Little John gave you the answer (it's in the manual too), but the line before it was your clue: IsProgram(a) returned 0, so you're trying to kill a program that isn't identified.

Code: Select all

a =  RunProgram("cmd.exe", "", "")
Delay(1000)
If IsProgram(a) = 0
  Debug "Program not found"
Else
  KillProgram(a)
  Debug "Program found and killed"
EndIf