From cfea41382c01d24f9cb76b2bc63e4e71f1f038bd Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Tue, 11 May 2021 08:38:07 +1000
Subject: [PATCH] chore(windows): remove unused utilrun unit

---
 windows/src/engine/kmcomapi/kmcomapi.dpr     |  1 -
 windows/src/engine/kmcomapi/kmcomapi.dproj   |  1 -
 windows/src/engine/kmcomapi/util/utilrun.pas | 50 --------------------
 3 files changed, 52 deletions(-)
 delete mode 100644 windows/src/engine/kmcomapi/util/utilrun.pas

diff --git a/windows/src/engine/kmcomapi/kmcomapi.dpr b/windows/src/engine/kmcomapi/kmcomapi.dpr
index e1832fa93b..294c832ac3 100644
--- a/windows/src/engine/kmcomapi/kmcomapi.dpr
+++ b/windows/src/engine/kmcomapi/kmcomapi.dpr
@@ -115,7 +115,6 @@ uses
   VKeyChars in '..\..\global\delphi\general\VKeyChars.pas',
   UserMessages in '..\..\global\delphi\general\UserMessages.pas',
   DebugPaths in '..\..\global\delphi\general\DebugPaths.pas',
-  utilrun in 'util\utilrun.pas',
   keyman_msctf in '..\..\global\delphi\winapi\keyman_msctf.pas',
   Unicode in '..\..\global\delphi\general\Unicode.pas',
   utilexecute in '..\..\global\delphi\general\utilexecute.pas',
diff --git a/windows/src/engine/kmcomapi/kmcomapi.dproj b/windows/src/engine/kmcomapi/kmcomapi.dproj
index b11ff10ddc..98ef254b9e 100644
--- a/windows/src/engine/kmcomapi/kmcomapi.dproj
+++ b/windows/src/engine/kmcomapi/kmcomapi.dproj
@@ -255,7 +255,6 @@
         <DCCReference Include="..\..\global\delphi\general\VKeyChars.pas"/>
         <DCCReference Include="..\..\global\delphi\general\UserMessages.pas"/>
         <DCCReference Include="..\..\global\delphi\general\DebugPaths.pas"/>
-        <DCCReference Include="util\utilrun.pas"/>
         <DCCReference Include="..\..\global\delphi\winapi\keyman_msctf.pas"/>
         <DCCReference Include="..\..\global\delphi\general\Unicode.pas"/>
         <DCCReference Include="..\..\global\delphi\general\utilexecute.pas"/>
diff --git a/windows/src/engine/kmcomapi/util/utilrun.pas b/windows/src/engine/kmcomapi/util/utilrun.pas
deleted file mode 100644
index e390154275..0000000000
--- a/windows/src/engine/kmcomapi/util/utilrun.pas
+++ /dev/null
@@ -1,50 +0,0 @@
-(*
-  Name:             utilrun
-  Copyright:        Copyright (C) 2003-2017 SIL International.
-  Documentation:    
-  Description:      
-  Create Date:      25 Jan 2011
-
-  Modified Date:    25 Jan 2011
-  Authors:          mcdurdin
-  Related Files:    
-  Dependencies:     
-
-  Bugs:             
-  Todo:             
-  Notes:            
-  History:          25 Jan 2011 - mcdurdin - I2569 - Keyboard welcome from kmshell - run util
-*)
-unit utilrun;
-
-interface
-
-function Run(CmdLine: WideString): Boolean;
-
-implementation
-
-uses
-  Windows;
-
-function Run(CmdLine: WideString): Boolean;
-var
-  si: TStartupInfoW;
-  pi: TProcessInformation;
-begin
-  Result := False;
-  FillChar(si, sizeof(TStartupInfoW), 0);
-  FillChar(pi, sizeof(TProcessInformation), 0);
-  si.cb := sizeof(TStartupInfo);
-  si.dwFlags := STARTF_USESHOWWINDOW;
-  si.wShowWindow := SW_SHOWNORMAL;
-  // TODO: parse CmdLine and pass correct first parameter - I2934 test app crashes when NULL passed as first parameter, find out why?
-  // TODO: Set UNICODE_ENVIRONMENT flag and pass the environment variables? - I2934
-  if CreateProcessW(nil, PWideChar(CmdLine), nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then
-  begin
-    CloseHandle(pi.hProcess);
-    CloseHandle(pi.hThread);
-    Result := True;
-  end;
-end;
-
-end.