diff options
author | sr55 <[email protected]> | 2007-07-02 16:31:09 +0000 |
---|---|---|
committer | sr55 <[email protected]> | 2007-07-02 16:31:09 +0000 |
commit | 7fec4627b8728cbb034de30c8d9f8634b6894a0c (patch) | |
tree | df8e36ed53f8e78fc862ad53b313d0db95c14b3b /win/Handbrake/frmMain.vb | |
parent | ae06dd90defa4838913845e9af21c959af4b4c74 (diff) |
WinGui:
- Changed shell() to System.Diagnostics.Process.Start()
Appears to work a bit better than shell()
git-svn-id: svn://svn.handbrake.fr/HandBrake/trunk@645 b64f7644-9d1e-0410-96f1-a4d463321fa5
Diffstat (limited to 'win/Handbrake/frmMain.vb')
-rw-r--r-- | win/Handbrake/frmMain.vb | 46 |
1 files changed, 27 insertions, 19 deletions
diff --git a/win/Handbrake/frmMain.vb b/win/Handbrake/frmMain.vb index 5b4ec26f2..534c7fce6 100644 --- a/win/Handbrake/frmMain.vb +++ b/win/Handbrake/frmMain.vb @@ -503,30 +503,37 @@ Public Class frmMain , "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
- Try
- If (QueryEditorText.Text = "") Then
- query = GenerateTheQuery()
- Shell("""" + ApplicationPath + "\hbcli.exe""" + query)
+ Try
+ If (QueryEditorText.Text = "") Then
+ query = GenerateTheQuery()
+
+ Dim params As String = query
+ Dim proc As New System.Diagnostics.Process
+ proc = System.Diagnostics.Process.Start("""" + ApplicationPath + "\hbcli.exe""", params)
+
MessageBox.Show("The Handbrake encoder (CLI) will now start and should be encoding your video.", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
- 'Lets start the process monitor to keep an eye on things.
- hbcliMonitor = New ProcessMonitor()
- Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)
- t.Start()
- Else
- query = QueryEditorText.Text
- Shell("""" + ApplicationPath + "\hbcli.exe""" + query)
+ 'Lets start the process monitor to keep an eye on things.
+ hbcliMonitor = New ProcessMonitor()
+ Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)
+ t.Start()
+ Else
+ query = QueryEditorText.Text
+
+ Dim params As String = query
+ Dim proc As New System.Diagnostics.Process
+ proc = System.Diagnostics.Process.Start("""" + ApplicationPath + "\hbcli.exe""", params)
MessageBox.Show("The Handbrake encoder (CLI) will now start and should be encoding your video.", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
- 'Lets start the process monitor to keep an eye on things.
- hbcliMonitor = New ProcessMonitor()
- Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)
- t.Start()
- End If
- Catch ex As Exception
+ 'Lets start the process monitor to keep an eye on things.
+ hbcliMonitor = New ProcessMonitor()
+ Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)
+ t.Start()
+ End If
+ Catch ex As Exception
MessageBox.Show("Unable to launch the HandBrake encoder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- MessageBox.Show(ex.ToString) ' Debug
- End Try
+ MessageBox.Show(ex.ToString) ' Debug
+ End Try
End Sub
@@ -1269,4 +1276,5 @@ Public Class frmMain End Sub
'-----------------------------------------------
+
End Class
\ No newline at end of file |