PC Toledo

Código: Selecionar todos

comando := GETENV("PROGRAMFILES")
comando += "Windows Media Player\wmplayer.exe "+denreco_da_radio

hb_processRun( comando, , , , .f. )

Código: Selecionar todos

//comando := GETENV("PROGRAMFILES")
//comando += "Windows Media Player\wmplayer.exe "+denreco_da_radio

Exemplo executando um arquivo de audio:

cArqAudio:="D:\SOUND\TANGERINE DREAM.MP3"
comando:="wmplayer "+'"'+cArqAudio+'"' //tem que estar entre aspas duplas para funcionar o parâmetro.
	 
MyRun( comando, .f. )

FUNCTION MyRun( cComando,lEspera )
LOCAL oShell, lOk:=.T.
   HB_Default(@lEspera,.T.)
   TRY
      oShell:=CreateObject( "WScript.Shell" )
   CATCH
      TRY
         oShell:=CreateObject( "WScript.Shell" )
      CATCH
         lOk:=.F.
      END
   END
   IF lOk
      TRY
       /*
       intWindowStyle
       Description
       0
       Hides the window and activates another window.
       1
       Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
       2
       Activates the window and displays it as a minimized window.
       3
       Activates the window and displays it as a maximized window.
       4
       Displays a window in its most recent size and position. The active window remains active.
       5
       Activates the window and displays it in its current size and position.
       6
       Minimizes the specified window and activates the next top-level window in the Z order.
       7
       Displays the window as a minimized window. The active window remains active.
       8
       Displays the window in its current state. The active window remains active.
       9
       Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
       10
       Sets the show-state based on the state of the program that started the application. 
       */
      nWindowStyle:=0
      oShell:Run( cComando, nWindowStyle, lEspera ) //0 Executa o wmp e não mostra.
      CATCH
         lOk:=.F.
      END
      oShell:=Nil
   ENDIF
RETURN lOk