Commit 713d92bc433029eedd016bcdaa614de00390d7f5
1 parent
e71ca7f1
Exists in
master
Linha 1020 a 1027 comentada para testes, objetivo, escrita de inforacoes para de…
…bug incondicional, descomentar a funcao e remover o result da linha 1028 apos testes. git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@1277 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing
1 changed file
with
4 additions
and
3 deletions
Show diff stats
CACIC_Library.pas
| ... | ... | @@ -1017,14 +1017,15 @@ end; |
| 1017 | 1017 | function TCACIC.isInDebugMode(pStrDetailName : String = '') : boolean; |
| 1018 | 1018 | var strTeDebugging : String; |
| 1019 | 1019 | begin |
| 1020 | - Result := checkIfFileDateIsToday(getLocalFolderName + 'Temp\Debugging'); | |
| 1020 | + {Result := checkIfFileDateIsToday(getLocalFolderName + 'Temp\Debugging'); | |
| 1021 | 1021 | if Result and FileExists(getLocalFolderName + 'Temp\Debugging\Debugging.conf') and (pStrDetailName <> '') then |
| 1022 | 1022 | Begin |
| 1023 | 1023 | strTeDebugging := getValueFromFile('Configs','TeDebugging',getLocalFolderName + 'Temp\Debugging\Debugging.conf',false); |
| 1024 | 1024 | if (pos(ExtractFileName(ParamStr(0)) + '.' + pStrDetailName, strTeDebugging) = 0) and |
| 1025 | 1025 | (pos(ExtractFileName(ParamStr(0)) + '.*' , strTeDebugging) = 0) then |
| 1026 | - Result := true; //Workshop retornar result para false apos testes. | |
| 1027 | - End; | |
| 1026 | + Result := false; //Workshop retornar result para false apos testes. | |
| 1027 | + End;} | |
| 1028 | + Result := True; // Workshop Alterar apos testes. | |
| 1028 | 1029 | end; |
| 1029 | 1030 | |
| 1030 | 1031 | // Rotina obtida em http://www.swissdelphicenter.ch/torry/showcode.php?id=266 | ... | ... |