|
|
@@ -1,10 +1,10 @@
|
|
|
{ ***************************************************************************
|
|
|
|
|
|
- Copyright (c) 2016-2021 Kike Pérez
|
|
|
+ Copyright (c) 2016-2021 Kike P�rez
|
|
|
|
|
|
Unit : Quick.Commons
|
|
|
Description : Common functions
|
|
|
- Author : Kike Pérez
|
|
|
+ Author : Kike P�rez
|
|
|
Version : 2.0
|
|
|
Created : 14/07/2017
|
|
|
Modified : 03/10/2021
|
|
|
@@ -629,7 +629,6 @@ function UrlGetPath(const aUrl : string) : string;
|
|
|
var
|
|
|
url : string;
|
|
|
len : Integer;
|
|
|
- query : Integer;
|
|
|
begin
|
|
|
url := UrlRemoveProtocol(aUrl);
|
|
|
if not url.Contains('/') then Exit('');
|
|
|
@@ -747,7 +746,10 @@ function HasConsoleOutput : Boolean;
|
|
|
begin
|
|
|
try
|
|
|
stout := GetStdHandle(Std_Output_Handle);
|
|
|
- Win32Check(stout <> Invalid_Handle_Value);
|
|
|
+ {$WARN SYMBOL_PLATFORM OFF}
|
|
|
+ //Allready checked that we are on a windows platform
|
|
|
+ Win32Check(stout <> Invalid_Handle_Value);
|
|
|
+ {$WARN SYMBOL_PLATFORM ON}
|
|
|
Result := stout <> 0;
|
|
|
except
|
|
|
Result := False;
|
JECL