dunestorm/GBM
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix #171

Browse Source
This commit is contained in:
MikeMaximus
2018-11-16 09:52:48 -06:00
parent 21cce19c92
commit 783bf89241
1 changed files with 5 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
GBM/Managers/mgrPath.vb
+5 -13
View File
@@ -292,22 +292,14 @@ Public Class mgrPath
End Function End Function
Public Shared Function GetWinePrefix(ByVal prs As Process) As String Public Shared Function GetWinePrefix(ByVal prs As Process) As String
Dim prps As Process Dim sEnv As String
Dim sPsinfo As String Dim oParse As New Regex("WINEPREFIX=.+?(?=\x00)")
Dim oParse As New Regex("WINEPREFIX=.+?(?= )")
Dim oMatch As Match Dim oMatch As Match
Try Try
prps = New Process sEnv = File.ReadAllText("/proc/" & prs.Id.ToString() & "/environ")
prps.StartInfo.FileName = "/bin/ps" If oParse.IsMatch(sEnv) Then
prps.StartInfo.Arguments = "e " & prs.Id.ToString oMatch = oParse.Match(sEnv)
prps.StartInfo.UseShellExecute = False
prps.StartInfo.RedirectStandardOutput = True
prps.StartInfo.CreateNoWindow = True
prps.Start()
sPsinfo = prps.StandardOutput.ReadToEnd()
If oParse.IsMatch(sPsinfo) Then
oMatch = oParse.Match(sPsinfo)
Return oMatch.Value.Trim("/").Split("=")(1) Return oMatch.Value.Trim("/").Split("=")(1)
Else Else
'When WINEPREFIX is not part of the command, we will assume the default prefix. 'When WINEPREFIX is not part of the command, we will assume the default prefix.