fix, mostly win32, tools not found when launched from shortcut or shell ctxt handler

tools reside in same folder as CE
- happened if shortcut start directory is not CE app dir
- happened if CE is launched from open/with: cwd didn't allow to find the tools

lazproj/coedit.lpi

@@ -112,7 +112,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <CommandLineParams Value="-noplugs"/>
+        <WorkingDirectory Value="C:\"/>
       </local>
     </RunParams>
     <RequiredPackages Count="6">
@@ -148,7 +148,6 @@
       <Unit2>
         <Filename Value="..\src\ce_d2syn.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ce_d2syn"/>
       </Unit2>
       <Unit3>
         <Filename Value="..\src\ce_dcd.pas"/>
@@ -170,7 +169,6 @@
       <Unit7>
         <Filename Value="..\src\ce_dockoptions.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ce_dockoptions"/>
       </Unit7>
       <Unit8>
         <Filename Value="..\src\ce_editor.pas"/>
@@ -190,12 +188,10 @@
       <Unit11>
         <Filename Value="..\src\ce_interfaces.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ce_interfaces"/>
       </Unit11>
       <Unit12>
         <Filename Value="..\src\ce_libman.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ce_libman"/>
       </Unit12>
       <Unit13>
         <Filename Value="..\src\ce_libmaneditor.pas"/>
@@ -241,7 +237,6 @@
         <ComponentName Value="CEOptionEditorWidget"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="ce_optionseditor"/>
       </Unit19>
       <Unit20>
         <Filename Value="..\src\ce_procinput.pas"/>
@@ -249,7 +244,6 @@
         <ComponentName Value="CEProcInputWidget"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="ce_procinput"/>
       </Unit20>
       <Unit21>
         <Filename Value="..\src\ce_projconf.pas"/>
@@ -262,6 +256,7 @@
       <Unit22>
         <Filename Value="..\src\ce_project.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="ce_project"/>
       </Unit22>
       <Unit23>
         <Filename Value="..\src\ce_projinspect.pas"/>
@@ -269,7 +264,6 @@
         <ComponentName Value="CEProjectInspectWidget"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="ce_projinspect"/>
       </Unit23>
       <Unit24>
         <Filename Value="..\src\ce_search.pas"/>
@@ -284,12 +278,10 @@
         <ComponentName Value="CEShortcutEditor"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Frame"/>
-        <UnitName Value="ce_shortcutseditor"/>
       </Unit25>
       <Unit26>
         <Filename Value="..\src\ce_staticmacro.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="ce_staticmacro"/>
       </Unit26>
       <Unit27>
         <Filename Value="..\src\ce_symlist.pas"/>
@@ -326,7 +318,6 @@
         <ComponentName Value="CEToolsEditorWidget"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="ce_toolseditor"/>
       </Unit32>
       <Unit33>
         <Filename Value="..\src\ce_txtsyn.pas"/>
@@ -346,6 +337,7 @@
         <ComponentName Value="CEWidget"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="ce_widget"/>
       </Unit36>
     </Units>
   </ProjectOptions>

src/ce_common.pas

@@ -175,6 +175,11 @@ type
    *)
   function exeInSysPath(anExeName: string): boolean;
 
+  (**
+   * Returns the full to anExeName. Works if exeInSysPath().
+   *)
+  function exeFullName(anExeName: string): string;
+
   (**
    * Clears then fills aList with aProcess output stream.
    *)
@@ -687,6 +692,7 @@ end;
 function exeInSysPath(anExeName: string): boolean;
 var
   ext: string;
+  env: string;
 begin
   ext := extractFileExt(anExeName);
   if ext <> exeExt then
@@ -694,7 +700,31 @@ begin
   if FileExists(anExeName) then
     exit(true)
   else
-    exit(ExeSearch(anExeName, '') <> '');
+  begin
+    env := sysutils.GetEnvironmentVariable('PATH');
+    if Application <> nil then
+      env += PathSeparator + ExtractFileDir(ExtractFilePath(application.ExeName));
+    exit(ExeSearch(anExeName, env) <> '');
+  end;
+end;
+
+function exeFullName(anExeName: string): string;
+var
+  ext: string;
+  env: string;
+begin
+  ext := extractFileExt(anExeName);
+  if ext <> exeExt then
+    anExeName += exeExt;
+  if FileExists(anExeName) then
+    exit(anExeName)
+  else
+  begin
+    env := sysutils.GetEnvironmentVariable('PATH');
+    if Application <> nil then
+      env += PathSeparator + ExtractFileDir(ExtractFilePath(application.ExeName));
+    exit(ExeSearch(anExeName, env));
+  end;
 end;
 
 procedure processOutputToStrings(aProcess: TProcess; var aList: TStringList);

src/ce_dcd.pas

@@ -74,14 +74,14 @@ begin
     exit;
   //
   fClient := TProcess.Create(self);
-  fClient.Executable := clientName;
+  fClient.Executable := exeFullName(clientName);
   fClient.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
   fClient.ShowWindow := swoHIDE;
   //
   fServerWasRunning := AppIsRunning((serverName));
   if not fServerWasRunning then begin
     fServer := TProcess.Create(self);
-    fServer.Executable := serverName;
+    fServer.Executable := exeFullName(serverName);
     fServer.Options := [{$IFDEF WINDOWS} poNewConsole{$ENDIF}];
     {$IFNDEF DEBUG}
     fServer.ShowWindow := swoHIDE;

src/ce_symlist.pas

@@ -670,7 +670,7 @@ begin
   fToolProc := TCheckedAsyncProcess.Create(nil);
   fToolProc.ShowWindow := swoHIDE;
   fToolProc.Options := [poUsePipes];
-  fToolProc.Executable := toolExeName;
+  fToolProc.Executable := exeFullName(toolExeName);
   fToolProc.OnTerminate := @toolTerminated;
   fToolProc.OnReadData  := @toolOutputData;
   fToolProc.CurrentDirectory := ExtractFileDir(Application.ExeName);

src/ce_todolist.pas

@@ -415,7 +415,7 @@ begin
   killToolProcess;
   // process parameter
   fToolProc := TCheckedAsyncProcess.Create(nil);
-  fToolProc.Executable := ToolExeName;
+  fToolProc.Executable := exeFullName(ToolExeName);
   fToolProc.Options := [poUsePipes];
   fToolProc.ShowWindow := swoHIDE;
   fToolProc.CurrentDirectory := ExtractFileDir(Application.ExeName);