From 750a8761b9d255d9208ca83f62bfe7e81345c30b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 11 Mar 2016 11:37:09 +0100
Subject: [PATCH] removed invalid cmp

---
 src/ce_common.pas    | 2 +-
 src/ce_procinput.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index bd4a3d99..bb0e0f91 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -6,7 +6,7 @@ interface
 
 uses
 
-  Classes, SysUtils, strutils,
+  Classes, SysUtils,
   {$IFDEF WINDOWS}
   Windows, JwaTlHelp32,
   {$ELSE}
diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas
index b44fa994..64577d88 100644
--- a/src/ce_procinput.pas
+++ b/src/ce_procinput.pas
@@ -117,7 +117,7 @@ procedure TCEProcInputWidget.sendInput;
 var
   inp: string;
 begin
-  if fProc.Input.isNil or (fProc.Input.Handle = INVALID_HANDLE_VALUE) then
+  if fProc.Input.isNil or (fProc.Input.Handle = 0) then
     exit;
 
   fMru.Insert(0,txtInp.Text);
@@ -139,7 +139,7 @@ end;
 procedure TCEProcInputWidget.btnCloseClick(Sender: TObject);
 begin
   if fProc.isNotNil and fProc.Input.isNotNil and
-    (fProc.Input.Handle <> INVALID_HANDLE_VALUE) then
+    (fProc.Input.Handle <> 0) then
       fProc.CloseInput;
 end;