forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed invalid cmp

This commit is contained in:
Basile Burg 2016-03-11 11:37:09 +01:00
parent 8b880edddf
commit 750a8761b9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_common.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, strutils, Classes, SysUtils,
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
Windows, JwaTlHelp32, Windows, JwaTlHelp32,
{$ELSE} {$ELSE}

4
src/ce_procinput.pas
View File

@ -117,7 +117,7 @@ procedure TCEProcInputWidget.sendInput;
var var
inp: string; inp: string;
begin begin
if fProc.Input.isNil or (fProc.Input.Handle = INVALID_HANDLE_VALUE) then if fProc.Input.isNil or (fProc.Input.Handle = 0) then
exit; exit;
fMru.Insert(0,txtInp.Text); fMru.Insert(0,txtInp.Text);
@ -139,7 +139,7 @@ end;
procedure TCEProcInputWidget.btnCloseClick(Sender: TObject); procedure TCEProcInputWidget.btnCloseClick(Sender: TObject);
begin begin
if fProc.isNotNil and fProc.Input.isNotNil and if fProc.isNotNil and fProc.Input.isNotNil and
(fProc.Input.Handle <> INVALID_HANDLE_VALUE) then (fProc.Input.Handle <> 0) then
fProc.CloseInput; fProc.CloseInput;
end; end;