PureBasic

Code : Tout sélectionner

  FFmpeg$="ffmpeg.exe"
  Parameter.s="-h" 
  Parameter.s="-i -"+Chr(34)+File.s+Chr(34)+" -vcodec libx264 -vpre hq -b 5000k test3.mp4";Mettre cette ligne en commentaire pour tester  avec les parametre -h
  Exec=RunProgram(FFmpeg$,Parameter,"",#PB_Program_Open|#PB_Program_Read);
  If Exec  
    While ProgramRunning(Exec)
      Debug ReadProgramString(Exec)
      
    Wend
    Debug "Error:"+ReadProgramError(Exec)
    Debug (ProgramExitCode(Exec))     
  EndIf
  WaitProgram(Exec)
  CloseProgram(Exec)

Code : Tout sélectionner

If OpenConsole()
    
    ConsoleTitle("Ceci est le titre de la console")
    EnableGraphicalConsole(1) ; passe en mode graphique
    ConsoleColor(10,0)  ; couleur de text vert, couleur fond noir
    ConsoleCursor(10) ; gros curseur
    ConsoleLocate(5, 30); positionne le curseur
    PrintN("Appuyez sur [Entree] pour quitter") ; ecrit
    ConsoleLocate(40, 30) ; laisse le curseur a la fin
    a$ = Input() ; attent une reponse :D
    MessageRequester("", a$)
    Coordinate.l
    x.w = 5: Y.w = 30
    PokeW(@Coordinate, x)
    PokeW(@Coordinate + 2, Y)
    NumCharsRead.l
    Buffer$=Space(100)
    ReadConsoleOutputCharacter_(7, Buffer$, 100, Coordinate, @NumCharsRead)
    Debug Buffer$
    CallDebugger
    
  EndIf