!!!

Tango600 · Jan 9, 2023 · d15b413 · d15b413
1 parent bfc1ac4
commit d15b413
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/DCLPlatform/uDCLUtils.pas b/DCLPlatform/uDCLUtils.pas
@@ -399,6 +399,7 @@ procedure ExecApp(const App: String; const CurrDir: String);
   SI: TStartupInfo;
   PI: TProcessInformation;
   CmdLine: String;
+  cd:PChar;
 begin
   Assert(App <> '');
 
@@ -412,8 +413,11 @@ procedure ExecApp(const App: String; const CurrDir: String);
   SI.wShowWindow := SW_SHOWNORMAL;
 
   SetLastError(ERROR_INVALID_PARAMETER);
+  if CurrDir<>'' then
+    cd:=PChar(CurrDir);
+
   {$WARN SYMBOL_PLATFORM OFF}
-  Win32Check(CreateProcess(nil, PChar(CmdLine), nil, nil, False, CREATE_DEFAULT_ERROR_MODE {$IFDEF UNICODE}or CREATE_UNICODE_ENVIRONMENT{$ENDIF}, nil, PChar(CurrDir), SI, PI));
+  Win32Check(CreateProcess(nil, PChar(CmdLine), nil, nil, False, CREATE_DEFAULT_ERROR_MODE {$IFDEF UNICODE}or CREATE_UNICODE_ENVIRONMENT{$ENDIF}, nil, cd, SI, PI));
   {$WARN SYMBOL_PLATFORM ON}
   CloseHandle(PI.hThread);
   CloseHandle(PI.hProcess);