Execute third party program using purebasic

[stmdbe2019]

When i run the obs.bat file it works, but when i run the obs32.exe its not starting. What am i doing wrong?

obs.bat

Code: Select all

cd C:\Program Files (x86)\Innosetup\obs\bin\32bit
start "" obs32.exe

my.pb

Code: Select all

Procedure Button_setup(EventType)
  ;h = RunProgram("C:\Program Files (x86)\Innosetup\obs.bat", "", "", #PB_Program_Open | #PB_Program_Read) ; works
  cmd$="C:\Program Files (x86)\Innosetup\obs\bin\32bit\obs32.exe"  ; does not work
  h = RunProgram("cmd.exe", "/c " + cmd$, "", #PB_Program_Open | #PB_Program_Read)
  WaitProgram(h)
  CloseProgram(h)

  ;ShellExecute_(#Null, #Null, cmd$, #Null, #Null, #SW_SHOWNORMAL) ; same does not work
EndProcedure

[stmdbe2019]

OK - following works.

Code: Select all

Procedure Button_setup(EventType)
  ;cmd$="C:\Program Files (x86)\Mysetup\obs\bin\32bit\obs32.exe"
  sMyFolder.s = "C:\Program Files (x86)\Mysetup\obs\bin\32bit\"
  sMyExeFullPath.s = "C:\Program Files (x86)\Mysetup\obs\bin\32bit\obs32.exe"
  MyExeArgs.s = " /a /t"
  SetCurrentDirectory(sMyFolder)
  RunProgram(sMyExeFullPath, "", sMyFolder, #PB_Program_Hide)
EndProcedure