Fixed: Run compiled exe

XusinboyBekchanov · Apr 14, 2022 · 6446780 · 6446780
1 parent 68beeff
commit 6446780
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/TabWindow.bas b/src/TabWindow.bas
@@ -7009,6 +7009,7 @@ Sub RunPr(Debugger As String = "")
 				SInfo.dwFlags = STARTF_USESHOWWINDOW
 				SInfo.wShowWindow = SW_NORMAL
 				pClass = CREATE_UNICODE_ENVIRONMENT Or CREATE_NEW_CONSOLE
+				ChDir(GetFolderName(*ExeFileName))
 				If CreateProcessW(NULL, CmdL, ByVal Null, ByVal Null, False, pClass, Null, Workdir, @SInfo, @PInfo) Then
 					WaitForSingleObject pinfo.hProcess, INFINITE
 					GetExitCodeProcess(pinfo.hProcess, @ExitCode)