Download as
Browse Code »

Commit c9d7fbbb04df5db2bbc545b5d9633175e659abc9

Authored by Eric Menezes Noronha
2 parents 54442317 f6856e6c
Exists in master

Merge branch 'master' of https://github.com/lightbase/agente-windows 

Conflicts:
	main.pas
Showing 1 changed file with 235 additions and 234 deletions   Show diff stats
main.pas
  Diff comments   View file @c9d7fbb
1 1 (**
2 2 ---------------------------------------------------------------------------------------------------------------------------------------------------------------
3   -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
  3 +Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informa��es da Previd�ncia Social, Brasil
4 4  
5   -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
  5 +Este arquivo � parte do programa CACIC - Configurador Autom�tico e Coletor de Informa��es Computacionais
6 6  
7   -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8   -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
  7 +O CACIC � um software livre; voc� pode redistribui-lo e/ou modifica-lo dentro dos termos da Licen�a P�blica Geral GNU como
  8 +publicada pela Funda��o do Software Livre (FSF); na vers�o 2 da Licen�a, ou (na sua opini�o) qualquer vers�o.
9 9  
10   -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11   -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
  10 +Este programa � distribuido na esperan�a que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUA��O a qualquer
  11 +MERCADO ou APLICA��O EM PARTICULAR. Veja a Licen�a P�blica Geral GNU para maiores detalhes.
12 12  
13   -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
  13 +Voc� deve ter recebido uma c�pia da Licen�a P�blica Geral GNU, sob o t�tulo "LICENCA.txt", junto com este programa, se n�o, escreva para a Funda��o do Software
14 14 Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15 15 ---------------------------------------------------------------------------------------------------------------------------------------------------------------
16 16 *)
... ... @@ -53,13 +53,13 @@ const
53 53 GBYTE = MBYTE shl 10;
54 54 NORMAL = 0; // Normal
55 55 COLETANDO = 1; // Raio - Coletando
56   - DESCONFIGURADO = 2; // Interrogação - Identificando Host
  56 + DESCONFIGURADO = 2; // Interroga��o - Identificando Host
57 57 EM_SUPORTE = 3; // Telefone - Em Suporte Remoto
58   - LEFT_MENU_ITEM = 13; // Coordenada X para escrita das opções do menu de contexto
  58 + LEFT_MENU_ITEM = 13; // Coordenada X para escrita das op��es do menu de contexto
59 59  
60 60  
61 61  
62   -// Declaração das variáveis globais.
  62 +// Declara��o das vari�veis globais.
63 63 var strConfigsPatrimonio,
64 64 strMenuCaptionLAT,
65 65 strMenuCaptionCON,
... ... @@ -280,7 +280,7 @@ type
280 280 procedure Invoca_MapaCacic;
281 281 procedure CheckIfDownloadedVersion;
282 282 procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
283   - // A procedure WMQueryEndSession é usada para detectar o
  283 + // A procedure WMQueryEndSession � usada para detectar o
284 284 // Shutdown do Windows e "derrubar" o Cacic.
285 285 procedure WMQueryEndSession(var Msg : TWMQueryEndSession); Message WM_QUERYENDSESSION;
286 286 procedure WMMENUSELECT(var msg: TWMMENUSELECT); message WM_MENUSELECT;
... ... @@ -490,15 +490,15 @@ begin
490 490 if Result then
491 491 objCACIC.writeDebugLog('ServiceStart: ' + sService + ' - OK!')
492 492 else
493   - objCACIC.writeDebugLog('ServiceStart: ' + sService + ' - Não Foi Possível Iniciar!');
  493 + objCACIC.writeDebugLog('ServiceStart: ' + sService + ' - N�o Foi Poss�vel Iniciar!');
494 494 end;
495 495  
496   -// Início de Procedimentos para monitoramento de dispositivos USB - Anderson Peterle - 02/2010
  496 +// In�cio de Procedimentos para monitoramento de dispositivos USB - Anderson Peterle - 02/2010
497 497 procedure TFormularioGeral.UsbIN(ASender : TObject; const ADevType,AVendorID,ADeviceID : string);
498 498 begin
499 499 // Envio de valores ao Gerente WEB
500 500 // Formato: USBinfo=I_ddmmyyyyhhnnss_ADeviceID
501   - // Os valores serão armazenados localmente (cacic280.inf) se for impossível o envio.
  501 + // Os valores ser�o armazenados localmente (cacic280.inf) se for imposs�vel o envio.
502 502 objCACIC.writeDebugLog('UsbIN: << USB INSERIDO .:. Vendor ID => ' + AVendorID + ' .:. Device ID = ' + ADeviceID);
503 503 Invoca_GerCols('USBinfo=I_'+FormatDateTime('yyyymmddhhnnss', now) + '_' + AVendorID + '_' + ADeviceID, false, false);
504 504 end;
... ... @@ -508,7 +508,7 @@ procedure TFormularioGeral.UsbOUT(ASender : TObject; const ADevType,AVendorID,AD
508 508 begin
509 509 // Envio de valores ao Gerente WEB
510 510 // Formato: USBinfo=O_ddmmyyyyhhnnss_ADeviceID
511   - // Os valores serão armazenados localmente (cacic280.inf) se for impossível o envio.
  511 + // Os valores ser�o armazenados localmente (cacic280.inf) se for imposs�vel o envio.
512 512 objCACIC.writeDebugLog('UsbOUT: >> USB REMOVIDO .:. Vendor ID => ' + AVendorID + ' .:. Device ID = ' + ADeviceID);
513 513 Invoca_GerCols('USBinfo=O_'+FormatDateTime('yyyymmddhhnnss', now) + '_' + AVendorID + '_' + ADeviceID, false, false);
514 514 end;
... ... @@ -529,7 +529,7 @@ begin
529 529 Parser.LoadFromBuffer(PAnsiChar(p_strConfigs));
530 530 objCACIC.writeDebugLog('MontaVetoresPatrimonio: p_strConfigs: '+p_strConfigs);
531 531  
532   - // Código para montar o vetor UON1
  532 + // C�digo para montar o vetor UON1
533 533 Parser.StartScan;
534 534 i := -1;
535 535 strItemName := '';
... ... @@ -540,7 +540,7 @@ begin
540 540 if (Parser.CurPartType = ptStartTag) and (strItemName = 'IT1') Then
541 541 Begin
542 542 i := i + 1;
543   - SetLength(VetorUON1, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
  543 + SetLength(VetorUON1, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o n�mero de itens recebidos.
544 544 strTagName := 'IT1';
545 545 end
546 546 else if (Parser.CurPartType = ptEndTag) and (strItemName = 'IT1') then
... ... @@ -561,7 +561,7 @@ begin
561 561 End;
562 562 End;
563 563  
564   - // Código para montar o vetor UON1a
  564 + // C�digo para montar o vetor UON1a
565 565 Parser.StartScan;
566 566 strTagName := '';
567 567 strAux1 := '';
... ... @@ -572,7 +572,7 @@ begin
572 572 if (Parser.CurPartType = ptStartTag) and (strItemName = 'IT1A') Then
573 573 Begin
574 574 i := i + 1;
575   - SetLength(VetorUON1a, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
  575 + SetLength(VetorUON1a, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o n�mero de itens recebidos.
576 576 strTagName := 'IT1A';
577 577 end
578 578 else if (Parser.CurPartType = ptEndTag) and (strItemName = 'IT1A') then
... ... @@ -608,7 +608,7 @@ begin
608 608 End;
609 609 end;
610 610  
611   - // Código para montar o vetor UON2
  611 + // C�digo para montar o vetor UON2
612 612 Parser.StartScan;
613 613 strTagName := '';
614 614 i := -1;
... ... @@ -618,7 +618,7 @@ begin
618 618 if (Parser.CurPartType = ptStartTag) and (strItemName = 'IT2') Then
619 619 Begin
620 620 i := i + 1;
621   - SetLength(VetorUON2, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
  621 + SetLength(VetorUON2, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o n�mero de itens recebidos.
622 622 strTagName := 'IT2';
623 623 end
624 624 else if (Parser.CurPartType = ptEndTag) and (strItemName = 'IT2') then
... ... @@ -654,7 +654,7 @@ end;
654 654 }
655 655 function TFormularioGeral.ActualActivity : integer;
656 656 Begin
657   - // Se eu conseguir matar os arquivos abaixo é porque srCACICsrv, GerCols e mapaCACIC já finalizaram suas atividades...
  657 + // Se eu conseguir matar os arquivos abaixo � porque srCACICsrv, GerCols e mapaCACIC j� finalizaram suas atividades...
658 658 objCACIC.writeDebugLog('ActualActivity: BEGIN');
659 659  
660 660 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\aguarde_GER.txt');
... ... @@ -689,10 +689,10 @@ Begin
689 689  
690 690 if (FormularioGeral.ActualActivity = 0) then
691 691 Begin
692   - // Verificação das janelas abertas para que não aconteça coletas caso haja aplicações pesadas rodando (configurado no Módulo Gerente)
  692 + // Verifica��o das janelas abertas para que n�o aconte�a coletas caso haja aplica��es pesadas rodando (configurado no M�dulo Gerente)
693 693 v_JANELAS_EXCECAO := objCACIC.GetValueFromFile('Configs','TeJanelasExcecao', FormularioGeral.strMainProgramInfFileName);
694 694  
695   - objCACIC.writeDebugLog('Pode_Coletar: Verificando Janelas para Exceção...');
  695 + objCACIC.writeDebugLog('Pode_Coletar: Verificando Janelas para Exce��o...');
696 696 tstrJANELAS := TStrings.Create;
697 697 if (v_JANELAS_EXCECAO <> '') then
698 698 Begin
... ... @@ -707,28 +707,28 @@ Begin
707 707 End;
708 708 End;
709 709  
710   - // Caso alguma janela tenha algum nome de aplicação cadastrada como "crítica" ou "pesada"...
  710 + // Caso alguma janela tenha algum nome de aplica��o cadastrada como "cr�tica" ou "pesada"...
711 711 if (intContaJANELAS > 0) then
712 712 Begin
713   - objCACIC.writeDailyLog('EXECUÇÃO DE ATIVIDADES ADIADA!');
  713 + objCACIC.writeDailyLog('EXECU��O DE ATIVIDADES ADIADA!');
714 714 v_contador := 0;
715 715 v_plural1 := '';
716   - v_plural2 := 'ÃO';
  716 + v_plural2 := '�O';
717 717 for intAux := 0 to tstrJANELAS.Count-1 Do
718 718 Begin
719 719 h := FormularioGeral.FindWindowByTitle(tstrJANELAS[intAux]);
720 720 if h <> 0 then
721 721 Begin
722 722 v_contador := v_contador + 1;
723   - objCACIC.writeDailyLog('Aplicação/Janela ' + inttostr(v_contador) + ': ' + tstrJANELAS[intAux]);
  723 + objCACIC.writeDailyLog('Aplica��o/Janela ' + inttostr(v_contador) + ': ' + tstrJANELAS[intAux]);
724 724 End;
725 725 End;
726 726 if (v_contador > 1) then
727 727 Begin
728 728 v_plural1 := 'S';
729   - v_plural2 := 'ÕES';
  729 + v_plural2 := '�ES';
730 730 End;
731   - objCACIC.writeDailyLog('-> PARA PROCEDER, FINALIZE A' + v_plural1 + ' APLICAÇ' + v_plural2 + ' LISTADA' + v_plural1 + ' ACIMA.');
  731 + objCACIC.writeDailyLog('-> PARA PROCEDER, FINALIZE A' + v_plural1 + ' APLICA�' + v_plural2 + ' LISTADA' + v_plural1 + ' ACIMA.');
732 732 End;
733 733 End;
734 734  
... ... @@ -736,7 +736,7 @@ Begin
736 736 Result := true
737 737 else
738 738 Begin
739   - objCACIC.writeDebugLog('Pode_Coletar: A Ação foi NEGADA!');
  739 + objCACIC.writeDebugLog('Pode_Coletar: A A��o foi NEGADA!');
740 740 if (intContaJANELAS=0) then
741 741 Begin
742 742 if (FileExists(objCACIC.getLocalFolderName + 'Temp\aguarde_GER.txt')) then
... ... @@ -746,7 +746,7 @@ Begin
746 746 objCACIC.writeDebugLog('Pode_Coletar: Suporte Remoto em atividade.');
747 747  
748 748 if (FileExists(objCACIC.getLocalFolderName + 'Temp\aguarde_MAPACACIC.txt')) then
749   - objCACIC.writeDebugLog('Pode_Coletar: Módulo Avulso para Coleta de Patrimônio em atividade.');
  749 + objCACIC.writeDebugLog('Pode_Coletar: M�dulo Avulso para Coleta de Patrim�nio em atividade.');
750 750 End;
751 751 //else
752 752 // objCACIC.cipherClose(objCACIC.getLocalFolderName + objCACIC.getDatFileName,v_tstrCipherOpened);
... ... @@ -798,13 +798,13 @@ begin
798 798 IsMenuOpen := not ((msg.MenuFlag and $FFFF > 0) and (msg.Menu = 0));
799 799 end;
800 800  
801   -// Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download!
  801 +// Verifico a exist�ncia do Gerente de Coletas, caso n�o exista, o chksis.exe far� download!
802 802 function TFormularioGeral.ChecaMAPACACIC : boolean;
803 803 var strFileSize : String;
804 804 Begin
805 805 Result := true;
806 806  
807   - objCACIC.writeDebugLog('ChecaMAPA: Verificando existência e tamanho do Gerente de Coletas...');
  807 + objCACIC.writeDebugLog('ChecaMAPA: Verificando exist�ncia e tamanho do Gerente de Coletas...');
808 808  
809 809 strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',true);
810 810  
... ... @@ -818,7 +818,7 @@ Begin
818 818 InicializaTray;
819 819  
820 820 objCACIC.writeDailyLog('Acionando Recuperador de Mapa Cacic.');
821   - objCACIC.writeDebugLog('ChecaMAPACACIC: Acionando Recuperador de Módulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');
  821 + objCACIC.writeDebugLog('ChecaMAPACACIC: Acionando Recuperador de M�dulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');
822 822 objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',false,SW_HIDE);
823 823  
824 824 sleep(30000); // 30 segundos de espera para download do gercols.exe
... ... @@ -826,27 +826,27 @@ Begin
826 826 strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + '\Modules\mapacacic.exe',true);
827 827 if not(strFileSize = '0') and not(strFileSize = '-1') then
828 828 Begin
829   - objCACIC.writeDailyLog('Módulo Mapa Cacic RECUPERADO COM SUCESSO!');
830   - objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas RECUPERADO COM SUCESSO!');
  829 + objCACIC.writeDailyLog('M�dulo Mapa Cacic RECUPERADO COM SUCESSO!');
  830 + objCACIC.writeDebugLog('ChecaMAPACACIC: M�dulo Gerente de Coletas RECUPERADO COM SUCESSO!');
831 831 InicializaTray;
832 832 Result := True;
833 833 End
834 834 else
835 835 Begin
836   - objCACIC.writeDailyLog('Módulo Mapa Cacic NÃO RECUPERADO!');
837   - objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas NÃO RECUPERADO!');
  836 + objCACIC.writeDailyLog('M�dulo Mapa Cacic N�O RECUPERADO!');
  837 + objCACIC.writeDebugLog('ChecaMAPACACIC: M�dulo Gerente de Coletas N�O RECUPERADO!');
838 838 End;
839 839 objCACIC.writeDebugLog('ChecaMAPACACIC: ' + DupeString('=',100));
840 840 end;
841 841 End;
842 842  
843   -// Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download!
  843 +// Verifico a exist�ncia do Gerente de Coletas, caso n�o exista, o chksis.exe far� download!
844 844 function TFormularioGeral.ChecaGERCOLS : boolean;
845 845 var strFileSize : String;
846 846 Begin
847 847 Result := true;
848 848  
849   - objCACIC.writeDebugLog('ChecaGERCOLS: Verificando existência e tamanho do Gerente de Coletas...');
  849 + objCACIC.writeDebugLog('ChecaGERCOLS: Verificando exist�ncia e tamanho do Gerente de Coletas...');
850 850  
851 851 strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + 'Modules\gercols.exe',true);
852 852  
... ... @@ -858,8 +858,8 @@ Begin
858 858  
859 859 InicializaTray;
860 860  
861   - objCACIC.writeDailyLog('Acionando Recuperador de Módulo Gerente de Coletas.');
862   - objCACIC.writeDebugLog('ChecaGERCOLS: Acionando Recuperador de Módulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');
  861 + objCACIC.writeDailyLog('Acionando Recuperador de M�dulo Gerente de Coletas.');
  862 + objCACIC.writeDebugLog('ChecaGERCOLS: Acionando Recuperador de M�dulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');
863 863 objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',false,SW_HIDE);
864 864  
865 865 sleep(30000); // 30 segundos de espera para download do gercols.exe
... ... @@ -867,15 +867,15 @@ Begin
867 867 strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + '\Modules\gercols.exe',true);
868 868 if not(strFileSize = '0') and not(strFileSize = '-1') then
869 869 Begin
870   - objCACIC.writeDailyLog('Módulo Gerente de Coletas RECUPERADO COM SUCESSO!');
871   - objCACIC.writeDebugLog('ChecaGERCOLS: Módulo Gerente de Coletas RECUPERADO COM SUCESSO!');
  870 + objCACIC.writeDailyLog('M�dulo Gerente de Coletas RECUPERADO COM SUCESSO!');
  871 + objCACIC.writeDebugLog('ChecaGERCOLS: M�dulo Gerente de Coletas RECUPERADO COM SUCESSO!');
872 872 InicializaTray;
873 873 Result := True;
874 874 End
875 875 else
876 876 Begin
877   - objCACIC.writeDailyLog('Módulo Gerente de Coletas NÃO RECUPERADO!');
878   - objCACIC.writeDebugLog('ChecaGERCOLS: Módulo Gerente de Coletas NÃO RECUPERADO!');
  877 + objCACIC.writeDailyLog('M�dulo Gerente de Coletas N�O RECUPERADO!');
  878 + objCACIC.writeDebugLog('ChecaGERCOLS: M�dulo Gerente de Coletas N�O RECUPERADO!');
879 879 End;
880 880 End;
881 881 objCACIC.writeDebugLog('ChecaGERCOLS: ' + DupeString('=',100));
... ... @@ -884,8 +884,8 @@ End;
884 884  
885 885 procedure ExibirConfiguracoes(Sender: TObject);
886 886 begin
887   - // SJI = Senha Já Informada...
888   - // Esse valor é inicializado com "N"
  887 + // SJI = Senha J� Informada...
  888 + // Esse valor � inicializado com "N"
889 889 if (objCACIC.deCrypt( objCACIC.GetValueFromFile('Configs','SJI',FormularioGeral.strMainProgramInfFileName)) = '') and
890 890 (objCACIC.GetValueFromFile('Configs','WebManagerAddress',FormularioGeral.strChkSisInfFileName) <> '') then
891 891 begin
... ... @@ -903,7 +903,7 @@ end;
903 903  
904 904 procedure TFormularioGeral.CriaFormSenha(Sender: TObject);
905 905 begin
906   - // Caso ainda não exista senha para administração do CACIC, define ADMINCACIC como inicial.
  906 + // Caso ainda n�o exista senha para administra��o do CACIC, define ADMINCACIC como inicial.
907 907 if (objCACIC.deCrypt( objCACIC.GetValueFromFile('Configs','TeSenhaAdmAgente',FormularioGeral.strMainProgramInfFileName),false,true) = '') Then
908 908 objCACIC.setValueToFile('Configs','TeSenhaAdmAgente', objCACIC.enCrypt('ADMINCACIC'), FormularioGeral.strMainProgramInfFileName);
909 909  
... ... @@ -914,17 +914,17 @@ procedure TFormularioGeral.ChecaCONFIGS;
914 914 var strAux : string;
915 915 Begin
916 916  
917   - // Verifico se o endereço do servidor do cacic foi configurado.
  917 + // Verifico se o endere�o do servidor do cacic foi configurado.
918 918 if (objCACIC.GetValueFromFile('Configs','WebManagerAddress',strChkSisInfFileName) = '') then
919 919 Begin
920 920 strAux := objCACIC.fixWebAddress(objCACIC.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName));
921 921  
922 922 if (strAux = '') then
923 923 begin
924   - strAux := 'ATENÇÃO: Endereço do servidor do CACIC ainda não foi configurado.';
  924 + strAux := 'ATEN��O: Endere�o do servidor do CACIC ainda n�o foi configurado.';
925 925 objCACIC.writeDailyLog(strAux);
926   - objCACIC.writeDailyLog('Ativando módulo de configuração de endereço de servidor.');
927   - MessageDlg(strAux + chr(13) + 'Por favor, informe o endereço do servidor do CACIC na tela que será exibida a seguir.', mtWarning, [mbOk], 0);
  926 + objCACIC.writeDailyLog('Ativando m�dulo de configura��o de endere�o de servidor.');
  927 + MessageDlg(strAux + chr(13) + 'Por favor, informe o endere�o do servidor do CACIC na tela que ser� exibida a seguir.', mtWarning, [mbOk], 0);
928 928 ExibirConfiguracoes(Nil);
929 929 end;
930 930 End;
... ... @@ -932,7 +932,7 @@ end;
932 932  
933 933 procedure TFormularioGeral.HabilitaInformacoesGerais;
934 934 Begin
935   - // Desabilita/Habilita a opção de Informações Gerais
  935 + // Desabilita/Habilita a op��o de Informa��es Gerais
936 936 Mnu_InformacoesGerais.Enabled := (objCACIC.getValueFromTags('Caption' ,strWin32_ComputerSystem) +
937 937 objCACIC.getValueFromTags('IPAddress' ,strWin32_NetworkAdapterConfiguration) +
938 938 objCACIC.getValueFromTags('DNSDomain' ,strWin32_NetworkAdapterConfiguration) +
... ... @@ -947,7 +947,7 @@ End;
947 947  
948 948 procedure TFormularioGeral.HabilitaSuporteRemoto;
949 949 Begin
950   - // Desabilita/Habilita a opção de Suporte Remoto
  950 + // Desabilita/Habilita a op��o de Suporte Remoto
951 951 Mnu_SuporteRemoto.Enabled := (objCACIC.GetValueFromFile('Configs','CsSuporteRemoto',strMainProgramInfFileName) = 'S') and (FileExists(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe'));
952 952 End;
953 953  
... ... @@ -955,8 +955,8 @@ function TFormularioGeral.Posso_Rodar : boolean;
955 955 Begin
956 956 result := false;
957 957  
958   - objCACIC.writeDebugLog('Posso_Rodar: Verificando concomitância de sessões');
959   - // Se eu conseguir matar o arquivo abaixo é porque não há outra sessão deste agente aberta... (POG? Nããão! :) )
  958 + objCACIC.writeDebugLog('Posso_Rodar: Verificando concomit�ncia de sess�es');
  959 + // Se eu conseguir matar o arquivo abaixo � porque n�o h� outra sess�o deste agente aberta... (POG? N���o! :) )
960 960 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'aguarde_CACIC.txt');
961 961  
962 962 Result := not (FileExists(objCACIC.getLocalFolderName + 'aguarde_CACIC.txt'));
... ... @@ -979,7 +979,7 @@ begin
979 979  
980 980 bl_primeira_execucao := true;
981 981  
982   - // A verificação dupla é uma solução de contorno para o caso de o boolCipher ter sido setado após criptografia/deCriptografia do dado gravado
  982 + // A verifica��o dupla � uma solu��o de contorno para o caso de o boolCipher ter sido setado ap�s criptografia/deCriptografia do dado gravado
983 983 if (objCACIC.deCrypt( objCACIC.getValueFromFile('Hash-Codes',objCACIC.getMainProgramName,strChkSisInfFileName),false,true) = objCACIC.getFileHash(ParamStr(0))) then
984 984 Begin
985 985 objCACIC.setMainProgramHash(objCACIC.getFileHash(ParamStr(0)));
... ... @@ -995,8 +995,8 @@ begin
995 995 strWin32_NetworkAdapterConfiguration := fetchWMIvalues('Win32_NetworkAdapterConfiguration', objCACIC.getLocalFolderName);
996 996 strWin32_ComputerSystem := fetchWMIvalues('Win32_ComputerSystem', objCACIC.getLocalFolderName);
997 997  
998   - //Correção do bug do script net logon da pgfn;
999   - //O script estava instalando o cacic sem interação com desktop,
  998 + //Corre��o do bug do script net logon da pgfn;
  999 + //O script estava instalando o cacic sem intera��o com desktop,
1000 1000 //bugando o mapa e o trayicon.
1001 1001  
1002 1002 {*** 1 = SERVICE_STOPPED ***}
... ... @@ -1007,21 +1007,21 @@ begin
1007 1007 {*** 6 = SERVICE_PAUSE_PENDING ***}
1008 1008 {*** 7 = SERVICE_PAUSED ***}
1009 1009  
1010   - // Verifico se o serviço está instalado/rodando,etc.
  1010 + // Verifico se o servi�o est� instalado/rodando,etc.
1011 1011 wordServiceStatus := objCacic.ServiceGetStatus(nil,'CacicSustainService');
1012 1012  
1013   - //Verifico o serviço para correção de bug
1014   - // Verifico se o serviço está instalado/rodando,etc.
  1013 + //Verifico o servi�o para corre��o de bug
  1014 + // Verifico se o servi�o est� instalado/rodando,etc.
1015 1015  
1016 1016 if wordServiceStatus <> 0 then
1017 1017 begin
1018   - //verifica o status, se não estiver correto altera
  1018 + //verifica o status, se n�o estiver correto altera
1019 1019 serviceType := objCacic.serviceGetType('', 'CacicSustainService');
1020 1020 end;
1021 1021  
1022 1022 if (wordServiceStatus = 0) then
1023 1023 Begin
1024   - // Instalo e Habilito o serviço
  1024 + // Instalo e Habilito o servi�o
1025 1025 objCacic.createOneProcess(objCacic.getWinDir + 'cacicservice.exe /install /silent',true);
1026 1026 End
1027 1027 else if (wordServiceStatus < 4) then
... ... @@ -1042,22 +1042,22 @@ begin
1042 1042 imgIconList.GetIcon(0,TrayIcon1.Icon);
1043 1043 TrayIcon1.Show;
1044 1044  
1045   - // Criação do objeto para monitoramento de dispositivos USB
  1045 + // Cria��o do objeto para monitoramento de dispositivos USB
1046 1046 FUsb := TUsbClass.Create;
1047 1047 FUsb.OnUsbInsertion := UsbIN;
1048 1048 FUsb.OnUsbRemoval := UsbOUT;
1049 1049  
1050   - // Essas variáveis ajudarão a controlar o redesenho do ícone no systray,
  1050 + // Essas vari�veis ajudar�o a controlar o redesenho do �cone no systray,
1051 1051 // evitando o "roubo" do foco.
1052 1052 g_intTaskBarAtual := 0;
1053 1053 g_intTaskBarAnterior := 0;
1054 1054 g_intDesktopWindow := 0;
1055 1055  
1056   - // Não mostrar o formulário...
  1056 + // N�o mostrar o formul�rio...
1057 1057 Application.ShowMainForm := false;
1058 1058 g_intStatusAnterior := -1;
1059 1059  
1060   - // Aplicar traduções GetText,etc...
  1060 + // Aplicar tradu��es GetText,etc...
1061 1061  
1062 1062 strMenuCaptionLAT := Mnu_LogAtividades.Caption;
1063 1063 strMenuCaptionCON := Mnu_Configuracoes.Caption;
... ... @@ -1069,7 +1069,7 @@ begin
1069 1069  
1070 1070 Try
1071 1071  
1072   - // Apago o indicador de finalização normal
  1072 + // Apago o indicador de finaliza��o normal
1073 1073 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'normal_CACIC.txt');
1074 1074  
1075 1075 if not DirectoryExists(objCACIC.getLocalFolderName + 'Temp') then
... ... @@ -1090,21 +1090,21 @@ begin
1090 1090  
1091 1091 if Posso_Rodar then
1092 1092 Begin
1093   - // Uma forma fácil de evitar que outra sessão deste agente seja iniciada! (POG? Nããããooo!) :))))
1094   - AssignFile(textFileAguarde,objCACIC.getLocalFolderName + 'aguarde_CACIC.txt'); {Associa o arquivo a uma variável do tipo TextFile}
  1093 + // Uma forma f�cil de evitar que outra sess�o deste agente seja iniciada! (POG? N����ooo!) :))))
  1094 + AssignFile(textFileAguarde,objCACIC.getLocalFolderName + 'aguarde_CACIC.txt'); {Associa o arquivo a uma vari�vel do tipo TextFile}
1095 1095 {$IOChecks off}
1096 1096 Reset(textFileAguarde); {Abre o arquivo texto}
1097 1097 {$IOChecks on}
1098   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
  1098 + if (IOResult <> 0) then // Arquivo n�o existe, ser� recriado.
1099 1099 Rewrite (textFileAguarde);
1100 1100  
1101 1101 Append(textFileAguarde);
1102   - Writeln(textFileAguarde,'Apenas um pseudo-cookie para evitar sessões concomitantes...');
  1102 + Writeln(textFileAguarde,'Apenas um pseudo-cookie para evitar sess�es concomitantes...');
1103 1103 Append(textFileAguarde);
1104   - Writeln(textFileAguarde,'Futuramente penso em colocar aqui o pID, para possibilitar finalização via software externo...');
  1104 + Writeln(textFileAguarde,'Futuramente penso em colocar aqui o pID, para possibilitar finaliza��o via software externo...');
1105 1105 Append(textFileAguarde);
1106 1106  
1107   - // Inicializo bloqueando o módulo de suporte remoto seguro na FireWall nativa.
  1107 + // Inicializo bloqueando o m�dulo de suporte remoto seguro na FireWall nativa.
1108 1108 if FileExists(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe') then
1109 1109 objCACIC.addApplicationToFirewall('srCACIC - Suporte Remoto Seguro do Sistema CACIC',objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe', false);
1110 1110  
... ... @@ -1116,25 +1116,25 @@ begin
1116 1116 begin
1117 1117 if FindCmdLineSwitch('atualizacao', True) then
1118 1118 begin
1119   - objCACIC.writeDebugLog('FormCreate: Opção /atualizacao recebida...');
1120   - objCACIC.writeDailyLog('Reinicializando com versão '+ objCACIC.GetVersionInfo(ParamStr(0)));
  1119 + objCACIC.writeDebugLog('FormCreate: Op��o /atualizacao recebida...');
  1120 + objCACIC.writeDailyLog('Reinicializando com vers�o '+ objCACIC.GetVersionInfo(ParamStr(0)));
1121 1121 end
1122 1122 else
1123 1123 begin
1124   - objCACIC.writeDebugLog('FormCreate: Opção /execute recebida...');
1125   - objCACIC.writeDailyLog('Opção para execução imediata encontrada...');
  1124 + objCACIC.writeDebugLog('FormCreate: Op��o /execute recebida...');
  1125 + objCACIC.writeDailyLog('Op��o para execu��o imediata encontrada...');
1126 1126 end;
1127 1127 ExecutaCACIC(nil);
1128 1128 end;
1129 1129  
1130   - // Os timers iniciam-se desabilitados... Mais à frente receberão parâmetros de tempo para execução.
  1130 + // Os timers iniciam-se desabilitados... Mais � frente receber�o par�metros de tempo para execu��o.
1131 1131 timerNuExecApos.Enabled := False;
1132 1132 timerNuIntervalo.Enabled := False;
1133 1133  
1134 1134 // Derruba o cacic durante o shutdown do windows.
1135 1135 ShutdownEmExecucao := False;
1136 1136  
1137   - // Não mostrar o formulário...
  1137 + // N�o mostrar o formul�rio...
1138 1138 //Application.ShowMainForm:=false;
1139 1139  
1140 1140 Try
... ... @@ -1142,32 +1142,32 @@ begin
1142 1142 SetaVariaveisGlobais;
1143 1143 Except
1144 1144 on E : Exception do
1145   - objCACIC.writeExceptionLog(E.Message,E.ClassName,'SETANDO VARIÁVEIS GLOBAIS!');
  1145 + objCACIC.writeExceptionLog(E.Message,E.ClassName,'SETANDO VARI�VEIS GLOBAIS!');
1146 1146 End;
1147 1147  
1148 1148 timerNuExecApos.Enabled := True;
1149 1149  
1150 1150 InicializaTray;
1151 1151  
1152   - // String list e objeto para captura de ações durante suporte remoto
  1152 + // String list e objeto para captura de a��es durante suporte remoto
1153 1153 tstrListRCActions := TStringList.Create;
1154 1154 End
1155 1155 else
1156 1156 Begin
1157   - objCACIC.writeDebugLog('FormCreate: Agente finalizado devido a concomitância de sessões...');
  1157 + objCACIC.writeDebugLog('FormCreate: Agente finalizado devido a concomit�ncia de sess�es...');
1158 1158 Finaliza;
1159 1159 End;
1160 1160 Except
1161 1161 on E:Exception do
1162 1162 Begin
1163   - objCACIC.writeExceptionLog(E.Message,e.ClassName,'PROBLEMAS NA INICIALIZAÇÃO (2)');
  1163 + objCACIC.writeExceptionLog(E.Message,e.ClassName,'PROBLEMAS NA INICIALIZA��O (2)');
1164 1164 Finaliza(false);
1165 1165 End;
1166 1166 End
1167 1167 End
1168 1168 else
1169 1169 Begin
1170   - objCACIC.writeDailyLog('Execução Impedida por Falta de Integridade do Agente Principal!');
  1170 + objCACIC.writeDailyLog('Execu��o Impedida por Falta de Integridade do Agente Principal!');
1171 1171 Finaliza(false);
1172 1172 End;
1173 1173 end;
... ... @@ -1176,7 +1176,7 @@ procedure TFormularioGeral.SetaVariaveisGlobais;
1176 1176 var v_aux : string;
1177 1177 Begin
1178 1178 Try
1179   - // Inicialização do indicador de SENHA JÁ INFORMADA
  1179 + // Inicializa��o do indicador de SENHA J� INFORMADA
1180 1180 objCACIC.setValueToFile('Configs','SJI',objCACIC.enCrypt(''),strMainProgramInfFileName);
1181 1181  
1182 1182 if (Trim(objCACIC.GetValueFromFile('Configs','InExibeBandeja' ,strMainProgramInfFileName)) = '') or
... ... @@ -1189,19 +1189,19 @@ Begin
1189 1189 if (Trim(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) = '') then
1190 1190 objCACIC.setValueToFile('Configs','NuIntervaloExec', '4' ,strMainProgramInfFileName);
1191 1191  
1192   - // IN_EXIBE_BANDEJA O valor padrão é mostrar o ícone na bandeja.
1193   - // NU_EXEC_APOS Assumirá o padrão de 0 minutos para execução imediata em caso de primeira execução (instalação).
1194   - // NU_INTERVALO_EXEC Assumirá o padrão de 4 horas para o intervalo, no caso de problemas.
  1192 + // IN_EXIBE_BANDEJA O valor padr�o � mostrar o �cone na bandeja.
  1193 + // NU_EXEC_APOS Assumir� o padr�o de 0 minutos para execu��o imediata em caso de primeira execu��o (instala��o).
  1194 + // NU_INTERVALO_EXEC Assumir� o padr�o de 4 horas para o intervalo, no caso de problemas.
1195 1195  
1196   - // Número de horas do intervalo (3.600.000 milisegundos correspondem a 1 hora).
  1196 + // N�mero de horas do intervalo (3.600.000 milisegundos correspondem a 1 hora).
1197 1197 timerNuIntervalo.Interval := strtoint(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) * 3600000;
1198 1198  
1199   - // Número de minutos para iniciar a execução (60.000 milisegundos correspondem a 1 minuto). Acrescento 1, pois se for zero ele não executa.
  1199 + // N�mero de minutos para iniciar a execu��o (60.000 milisegundos correspondem a 1 minuto). Acrescento 1, pois se for zero ele n�o executa.
1200 1200 timerNuExecApos.Interval := (strtoint(objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName)) * 60000) + 1000;
1201 1201  
1202   - // Se for a primeiríssima execução do agente naquela máquina (após sua instalação) já faz todas as coletas configuradas, sem esperar os minutos definidos pelo administrador.
1203   - // Também armazena os Hash-Codes dos módulos principais, evitando novo download...
1204   - If (objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) = '12345') then // Flag usada na inicialização. Só entra nesse if se for a primeira execução do cacic após carregado.
  1202 + // Se for a primeir�ssima execu��o do agente naquela m�quina (ap�s sua instala��o) j� faz todas as coletas configuradas, sem esperar os minutos definidos pelo administrador.
  1203 + // Tamb�m armazena os Hash-Codes dos m�dulos principais, evitando novo download...
  1204 + If (objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) = '12345') then // Flag usada na inicializa��o. S� entra nesse if se for a primeira execu��o do cacic ap�s carregado.
1205 1205 begin
1206 1206 timerNuExecApos.Interval := 1000; // 1 minuto para chamar GerCols /coletas
1207 1207 objCACIC.setValueToFile('Configs','NuExecApos', '1',strMainProgramInfFileName);
... ... @@ -1210,29 +1210,29 @@ Begin
1210 1210 Begin
1211 1211 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\atualiza_CACIC.txt');
1212 1212 timerNuExecApos.Interval := 1000; // 1 minuto para chamar GerCols /coletas
1213   - objCACIC.writeDailyLog('Reinicializando com versão '+ objCACIC.GetVersionInfo(ParamStr(0)));
  1213 + objCACIC.writeDailyLog('Reinicializando com vers�o '+ objCACIC.GetVersionInfo(ParamStr(0)));
1214 1214 End
1215 1215 else
1216 1216 Begin
1217   - objCACIC.writeDailyLog('Inicio automático de coletas programado para ' + objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) + ' minutos.');
1218   - objCACIC.writeDailyLog('Executar as ações de coletas automaticamente a cada ' + objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName) + ' horas.');
  1217 + objCACIC.writeDailyLog('Inicio autom�tico de coletas programado para ' + objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) + ' minutos.');
  1218 + objCACIC.writeDailyLog('Executar as a��es de coletas automaticamente a cada ' + objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName) + ' horas.');
1219 1219 objCACIC.writeDailyLog(DupeString('=',100));
1220 1220 End;
1221 1221  
1222 1222 v_aux := Trim(objCACIC.GetValueFromFile('Configs','DtHrUltimaColeta',strGerColsInfFileName));
1223 1223 if (v_aux <> '') and (Copy(v_aux, 1, 8) <> FormatDateTime('YYYYmmdd', Now)) then timerNuExecApos.Enabled := True;
1224 1224  
1225   - // Desabilita/Habilita a opção de Informações Gerais
  1225 + // Desabilita/Habilita a op��o de Informa��es Gerais
1226 1226 HabilitaInformacoesGerais;
1227 1227  
1228   - // Desabilita/Habilita a opção de Suporte Remoto
  1228 + // Desabilita/Habilita a op��o de Suporte Remoto
1229 1229 HabilitaSuporteRemoto;
1230 1230  
1231 1231 InicializaTray;
1232 1232 Except
1233 1233 on E : Exception do
1234 1234 Begin
1235   - objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA INICIALIZAÇÃO (1)');
  1235 + objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA INICIALIZA��O (1)');
1236 1236 Finaliza;
1237 1237 End;
1238 1238 End;
... ... @@ -1249,13 +1249,13 @@ Begin
1249 1249  
1250 1250 if (boolNormal) then
1251 1251 Begin
1252   - // Criando um indicador de finalização normal da aplicação,
1253   - // evitando que o chkSIS.exe baixe outra cópia do Agente Principal ao "achar" que o agente encontra-se com problema.
1254   - AssignFile(txtFileNormal,objCACIC.getLocalFolderName + 'normal_CACIC.txt'); {Associa o arquivo a uma variável do tipo TextFile}
  1252 + // Criando um indicador de finaliza��o normal da aplica��o,
  1253 + // evitando que o chkSIS.exe baixe outra c�pia do Agente Principal ao "achar" que o agente encontra-se com problema.
  1254 + AssignFile(txtFileNormal,objCACIC.getLocalFolderName + 'normal_CACIC.txt'); {Associa o arquivo a uma vari�vel do tipo TextFile}
1255 1255 {$IOChecks off}
1256 1256 Reset(txtFileNormal); {Abre o arquivo texto}
1257 1257 {$IOChecks on}
1258   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
  1258 + if (IOResult <> 0) then // Arquivo n�o existe, ser� recriado.
1259 1259 Rewrite (txtFileNormal);
1260 1260  
1261 1261 Append(txtFileNormal);
... ... @@ -1268,7 +1268,7 @@ Begin
1268 1268 End;
1269 1269 Except
1270 1270 on E : Exception do
1271   - objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA FINALIZAÇÃO');
  1271 + objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA FINALIZA��O');
1272 1272 End;
1273 1273 objCACIC.Free;
1274 1274 Halt(0);
... ... @@ -1287,19 +1287,19 @@ begin
1287 1287 (boolCheckExecution and
1288 1288 (ActualActivity = 0) ) then
1289 1289 Begin
1290   - // Caso exista o Gerente de Coletas será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa)
  1290 + // Caso exista o Gerente de Coletas ser� verificada a vers�o e exclu�da caso antiga(Uma forma de a��o pr�-ativa)
1291 1291 if ChecaGERCOLS then
1292 1292 Begin
1293 1293 ChecaCONFIGS;
1294 1294  
1295   - objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com ação: "'+p_acao+'"');
  1295 + objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com a��o: "'+p_acao+'"');
1296 1296  
1297 1297 if boolShowInfo and not (p_acao = 'getTest') then
1298   - objCACIC.writeDebugLog('Invocando Gerente de Coletas com ação: "'+p_acao+'"');
  1298 + objCACIC.writeDebugLog('Invocando Gerente de Coletas com a��o: "'+p_acao+'"');
1299 1299  
1300 1300 timerNuExecApos.Enabled := False;
1301 1301 objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"');
1302   - if ((p_acao = 'getTest') or (p_acao = 'getConfigs')) then //se for getTest, esperar a aplicação finalizar.
  1302 + if ((p_acao = 'getTest') or (p_acao = 'getConfigs')) then //se for getTest, esperar a aplica��o finalizar.
1303 1303 objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE)
1304 1304 else
1305 1305 objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE);
... ... @@ -1307,7 +1307,7 @@ begin
1307 1307 objCacic.setBoolCipher(not objCacic.isInDebugMode);
1308 1308 End
1309 1309 else
1310   - objCACIC.writeDailyLog('Não foi possível invocar o Gerente de Coletas!');
  1310 + objCACIC.writeDailyLog('N�o foi poss�vel invocar o Gerente de Coletas!');
1311 1311 End;
1312 1312 end;
1313 1313  
... ... @@ -1318,14 +1318,14 @@ begin
1318 1318 else if(ActualActivity <> 0) then
1319 1319 begin
1320 1320 if ActualActivity = 1 then
1321   - MessageDlg(#13#13+'Coleta em execução!',mtInformation, [mbOK], 0);
  1321 + MessageDlg(#13#13+'Coleta em execução!',mtInformation, [mbOK], 0);
1322 1322 if ActualActivity = 3 then
1323 1323 MessageDlg(#13#13+'Cacic sendo executado em suporte remoto!',mtInformation, [mbOK], 0);
1324 1324 if ActualActivity = 4 then
1325   - MessageDlg(#13#13+'Mapa já está em execução!',mtInformation, [mbOK], 0);
  1325 + MessageDlg(#13#13+'Mapa já está em execução!',mtInformation, [mbOK], 0);
1326 1326 end
1327 1327 else
1328   - MessageDlg(#13#13+'Módulo desabilitado!',mtInformation, [mbOK], 0);
  1328 + MessageDlg(#13#13+'M�dulo desabilitado!',mtInformation, [mbOK], 0);
1329 1329 end;
1330 1330  
1331 1331 ////////////////////////////////////////////////////////////////////////////////
... ... @@ -1338,7 +1338,7 @@ begin
1338 1338 Begin
1339 1339 if ChecaMAPACACIC then
1340 1340 begin
1341   - // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa)
  1341 + // Caso exista o Mapa Cacic ser� verificada a vers�o e exclu�da caso antiga(Uma forma de a��o pr�-ativa)
1342 1342 if FileExists(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') then
1343 1343 Begin
1344 1344 objCacic.writeDailyLog('Invoca_MapaCacic: Criando processo mapa.');
... ... @@ -1348,8 +1348,9 @@ begin
1348 1348 else
1349 1349 objCacic.writeDailyLog('Invoca_MapaCacic: Falha ao criar processo.');
1350 1350 End
1351   - else
1352   - objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!');
  1351 + else
  1352 + objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!');
  1353 + End;
1353 1354 End;
1354 1355 End;
1355 1356 end;
... ... @@ -1397,8 +1398,8 @@ begin
1397 1398 timerCheckNoMinuto.Enabled := false;
1398 1399 objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...');
1399 1400  
1400   - // Se foi gerado o arquivo ger_erro.txt o Log conterá a mensagem alí gravada como valor de chave
1401   - // O Gerente de Coletas deverá ser eliminado para que seja baixado novamente por ChecaGERCOLS
  1401 + // Se foi gerado o arquivo ger_erro.txt o Log conter� a mensagem al� gravada como valor de chave
  1402 + // O Gerente de Coletas dever� ser eliminado para que seja baixado novamente por ChecaGERCOLS
1402 1403 if (FileExists(objCACIC.getLocalFolderName + 'gererro.txt')) then
1403 1404 Begin
1404 1405 objCACIC.writeDailyLog('Gerente de Coletas eliminado devido a falha:');
... ... @@ -1415,12 +1416,12 @@ begin
1415 1416 SetaVariaveisGlobais;
1416 1417 End;
1417 1418  
1418   - objCACIC.writeDailyLog('Iniciando execução de atividades.');
  1419 + objCACIC.writeDailyLog('Iniciando execu��o de atividades.');
1419 1420  
1420 1421 objCACIC.writeDebugLog('ExecutaCACIC: Primeira chamada ao Gerente de Coletas...');
1421 1422 Invoca_GerCols('getConfigs');
1422 1423  
1423   - sleep(3000); // Pausa para início do Gerente de Coletas e criação do arquivo temp\aguarde_GER.txt
  1424 + sleep(3000); // Pausa para in�cio do Gerente de Coletas e cria��o do arquivo temp\aguarde_GER.txt
1424 1425  
1425 1426 Application.ProcessMessages;
1426 1427 InicializaTray;
... ... @@ -1438,9 +1439,9 @@ begin
1438 1439 Invoca_MapaCacic;
1439 1440 end;
1440 1441  
1441   - // Pausas de 15 segundos para o caso de ser(em) baixada(s) nova(s) versão(ões) de GerCols e/ou Cacic280.
1442   - // Serão 4 tentativas por minuto
1443   - // Serão 30 minutos no máximo de tentativas, totalizando 120
  1442 + // Pausas de 15 segundos para o caso de ser(em) baixada(s) nova(s) vers�o(�es) de GerCols e/ou Cacic280.
  1443 + // Ser�o 4 tentativas por minuto
  1444 + // Ser�o 30 minutos no m�ximo de tentativas, totalizando 120
1444 1445 intTentativas := 0;
1445 1446 while (not Pode_Coletar and (intTentativas < 121)) do
1446 1447 Begin
... ... @@ -1450,7 +1451,7 @@ begin
1450 1451 inc(intTentativas);
1451 1452 End;
1452 1453  
1453   - // Neste caso o Gerente de Coletas deverá fazer novo contato devido à permissão de criptografia ter sido colocada em espera pelo próximo contato.
  1454 + // Neste caso o Gerente de Coletas dever� fazer novo contato devido � permiss�o de criptografia ter sido colocada em espera pelo pr�ximo contato.
1454 1455 if (intTentativas > 120) or
1455 1456 (objCACIC.GetValueFromFile('Configs','CsCipher', strGerColsInfFileName) = '2') then
1456 1457 Begin
... ... @@ -1462,23 +1463,23 @@ begin
1462 1463 End
1463 1464 else
1464 1465 Begin
1465   - // Caso tenha sido baixada nova cópia do Gerente de Coletas, esta deverá ser movida para cima da atual
  1466 + // Caso tenha sido baixada nova c�pia do Gerente de Coletas, esta dever� ser movida para cima da atual
1466 1467 if (FileExists(objCACIC.getLocalFolderName + 'Temp\gercols.exe')) then
1467 1468 Begin
1468   - objCACIC.writeDailyLog('Atualizando versão do Gerente de Coletas para '+objCACIC.getVersionInfo(objCACIC.getLocalFolderName + 'Temp\gercols.exe'));
1469   - // O MoveFileEx não se deu bem no Win98! :|
  1469 + objCACIC.writeDailyLog('Atualizando vers�o do Gerente de Coletas para '+objCACIC.getVersionInfo(objCACIC.getLocalFolderName + 'Temp\gercols.exe'));
  1470 + // O MoveFileEx n�o se deu bem no Win98! :|
1470 1471 // MoveFileEx(PChar(objCACIC.getLocalFolderName + 'Temp\gercols.exe'),PChar(objCACIC.getLocalFolderName + 'Modulos\gercols.exe'),MOVEFILE_REPLACE_EXISTING);
1471 1472  
1472 1473 CopyFile(PChar(objCACIC.getLocalFolderName + 'Temp\gercols.exe'),PChar(objCACIC.getLocalFolderName + 'Modules\gercols.exe'),false);
1473   - sleep(2000); // 2 segundos de espera pela cópia! :) (Rwindows!)
  1474 + sleep(2000); // 2 segundos de espera pela c�pia! :) (Rwindows!)
1474 1475  
1475 1476 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\gercols.exe');
1476   - sleep(2000); // 2 segundos de espera pela deleção!
  1477 + sleep(2000); // 2 segundos de espera pela dele��o!
1477 1478  
1478   - ExecutaCACIC(nil); // Forçará uma reexecução de GerCols...
  1479 + ExecutaCACIC(nil); // For�ar� uma reexecu��o de GerCols...
1479 1480 End;
1480 1481  
1481   - // Verifico se foi gravada alguma mensagem pelo Gerente de Coletas e mostro caso a configuração permita
  1482 + // Verifico se foi gravada alguma mensagem pelo Gerente de Coletas e mostro caso a configura��o permita
1482 1483 v_mensagem := objCACIC.GetValueFromFile('Mensagens','TeMensagem', strGerColsInfFileName);
1483 1484 if (v_mensagem <> '') and
1484 1485 (objCACIC.GetValueFromFile('Configs','InExibeErrosCriticos', strMainProgramInfFileName) = 'S') then
... ... @@ -1491,37 +1492,37 @@ begin
1491 1492 MessageDlg(v_mensagem,v_MsgDlgType, [mbOk], 0);
1492 1493 objCACIC.setValueToFile('Mensagens','TeMensagem', '', strGerColsInfFileName);
1493 1494 objCACIC.setValueToFile('Mensagens','CsTipo' , '', strGerColsInfFileName);
1494   - // Para evitar uma reexecução de GerCols sem necessidade...
1495   - intTentativas := 121; // Apenas para ajudar na condição seguinte
  1495 + // Para evitar uma reexecu��o de GerCols sem necessidade...
  1496 + intTentativas := 121; // Apenas para ajudar na condi��o seguinte
1496 1497 End;
1497 1498  
1498   - // Verifico se TE_FILA_FTP foi setado (por GerCols) e obedeço ao intervalo para nova tentativa de coletas
1499   - // Caso TE_FILA_FTP inicie com # é porque já passou nessa condição e deve iniciar nova tentativa de FTP...
  1499 + // Verifico se TE_FILA_FTP foi setado (por GerCols) e obede�o ao intervalo para nova tentativa de coletas
  1500 + // Caso TE_FILA_FTP inicie com # � porque j� passou nessa condi��o e deve iniciar nova tentativa de FTP...
1500 1501 v_TE_FILA_FTP := objCACIC.GetValueFromFile('Configs','TeFilaFTP', strGerColsInfFileName);
1501 1502 if (intTentativas <> 121) and
1502 1503 (Copy(v_TE_FILA_FTP,1,1) <> '#') and
1503 1504 (v_TE_FILA_FTP <> '0') and
1504 1505 (v_TE_FILA_FTP <> '') then
1505 1506 Begin
1506   - // Busquei o número de milisegundos setados em TeFilaFTP e o obedeço...
  1507 + // Busquei o n�mero de milisegundos setados em TeFilaFTP e o obede�o...
1507 1508 // 60.000 milisegundos correspondem a 60 segundos (1 minuto).
1508   - // Acrescento 1, pois se for zero ele não executa.
  1509 + // Acrescento 1, pois se for zero ele n�o executa.
1509 1510 timerNuExecApos.Enabled := False;
1510 1511 timerNuExecApos.Interval := strtoint(v_TE_FILA_FTP) * 60000;
1511 1512 timerNuExecApos.Enabled := True;
1512   - objCACIC.writeDailyLog('FTP de coletores adiado pelo Módulo Gerente.');
  1513 + objCACIC.writeDailyLog('FTP de coletores adiado pelo M�dulo Gerente.');
1513 1514 objCACIC.writeDailyLog('Nova tentativa em aproximadamente ' + v_TE_FILA_FTP+ ' minuto(s).');
1514 1515 objCACIC.setValueToFile('Configs','TeFilaFTP','#' + v_TE_FILA_FTP, strGerColsInfFileName);
1515 1516 End;
1516 1517  
1517   - // Desabilita/Habilita a opção de Informações Gerais
  1518 + // Desabilita/Habilita a op��o de Informa��es Gerais
1518 1519 HabilitaInformacoesGerais;
1519 1520  
1520   - // Desabilita/Habilita a opção de Suporte Remoto
  1521 + // Desabilita/Habilita a op��o de Suporte Remoto
1521 1522 HabilitaSuporteRemoto;
1522 1523  
1523   - // O loop 1 foi dedicado a atualizações de versões e afins...
1524   - // O loop 2 deverá invocar as coletas propriamente ditas...
  1524 + // O loop 1 foi dedicado a atualiza��es de vers�es e afins...
  1525 + // O loop 2 dever� invocar as coletas propriamente ditas...
1525 1526 if (intTentativas <> 121) then
1526 1527 Begin
1527 1528 objCACIC.writeDebugLog('ExecutaCACIC: Iniciando Chamada para Coletas...');
... ... @@ -1564,8 +1565,8 @@ end;
1564 1565  
1565 1566 procedure TFormularioGeral.ExibirConfiguracoes(Sender: TObject);
1566 1567 begin
1567   - // SJI = Senha Já Informada...
1568   - // Esse valor é inicializado com "N"
  1568 + // SJI = Senha J� Informada...
  1569 + // Esse valor � inicializado com "N"
1569 1570 if (objCACIC.deCrypt( objCACIC.GetValueFromFile('Configs','SJI',strMainProgramInfFileName))='') and
1570 1571 (objCACIC.GetValueFromFile('Configs','WebManagerAddress',strChkSisInfFileName)<>'') then
1571 1572 begin
... ... @@ -1583,13 +1584,13 @@ begin
1583 1584 end;
1584 1585  
1585 1586 //=======================================================================
1586   -// Todo o código deste ponto em diante está relacionado às rotinas de
1587   -// de inclusão do ícone do programa na bandeja do sistema
  1587 +// Todo o c�digo deste ponto em diante est� relacionado �s rotinas de
  1588 +// de inclus�o do �cone do programa na bandeja do sistema
1588 1589 //=======================================================================
1589 1590 procedure TFormularioGeral.InicializaTray;
1590 1591 var v_strHint : String;
1591 1592 begin
1592   - // g_intStatus receberá 0 -> NORMAL ou 1 -> COLETAS ou 3 -> srCACIC
  1593 + // g_intStatus receber� 0 -> NORMAL ou 1 -> COLETAS ou 3 -> srCACIC
1593 1594 g_intStatus := ActualActivity;
1594 1595  
1595 1596 // Monto a frase a ser colocada no Hint
... ... @@ -1598,14 +1599,14 @@ begin
1598 1599 if not (objCACIC.getValueFromTags('IPAddress',strWin32_NetworkAdapterConfiguration) = '') then
1599 1600 v_strHint := v_strHint + chr(13) + chr(10) + 'IP: ' + objCACIC.getValueFromTags('IPAddress',strWin32_NetworkAdapterConfiguration);
1600 1601  
1601   - // Mostro a versão no painel de Informações Gerais
  1602 + // Mostro a vers�o no painel de Informa��es Gerais
1602 1603  
1603 1604  
1604 1605 if (g_intStatus = NORMAL) then
1605 1606 Begin
1606 1607 if not (UpperCase(objCACIC.GetValueFromFile('Configs','ConexaoOK', strGerColsInfFileName)) = 'S') then
1607 1608 Begin
1608   - v_strHint := v_strHint + ' IDENTIFICAÇÃO LOCAL...';
  1609 + v_strHint := v_strHint + ' IDENTIFICA��O LOCAL...';
1609 1610 g_intStatus := DESCONFIGURADO;
1610 1611 End
1611 1612 else
... ... @@ -1617,7 +1618,7 @@ begin
1617 1618 if g_intStatus = EM_SUPORTE then
1618 1619 v_strHint := v_strHint + chr(13) + chr(10) + ' Em Suporte Remoto...'
1619 1620 else if g_intStatus = COLETANDO then
1620   - v_strHint := v_strHint + chr(13) + chr(10) + ' Coletas em Execução...';
  1621 + v_strHint := v_strHint + chr(13) + chr(10) + ' Coletas em Execu��o...';
1621 1622 objCACIC.writeDebugLog('InicializaTray: v_strHint Depois = "'+v_strHint+'"');
1622 1623 End;
1623 1624  
... ... @@ -1631,19 +1632,19 @@ begin
1631 1632 imgIconList.GetIcon(g_intIconIndex,TrayIcon1.Icon);
1632 1633 g_intStatusAnterior := g_intStatus;
1633 1634 timerCheckNoMinuto.Enabled := false;
1634   - timerCheckNoMinuto.Interval := 5000; // Durante as coletas altero o timer verificador de ações para 5 segundos
  1635 + timerCheckNoMinuto.Interval := 5000; // Durante as coletas altero o timer verificador de a��es para 5 segundos
1635 1636  
1636 1637 objCACIC.writeDebugLog('InicializaTray: Status alterado para ' + intToStr(g_intStatus));
1637 1638 if (g_intStatus = COLETANDO) then
1638 1639 Begin
1639 1640 Mnu_InformacoesGerais.Enabled := False;
1640 1641 Mnu_ExecutarAgora.Enabled := False;
1641   - Mnu_InformacoesGerais.Caption := 'Aguarde, coletas em ação!';
  1642 + Mnu_InformacoesGerais.Caption := 'Aguarde, coletas em a��o!';
1642 1643 Mnu_ExecutarAgora.Caption := Mnu_InformacoesGerais.Caption;
1643 1644 End
1644 1645 else if (g_intStatus = DESCONFIGURADO) then
1645 1646 Begin
1646   - objCACIC.writeDebugLog('InicializaTray: Setando Ícones para "Interroga" (intStatus=' + IntToStr(g_intStatus) + ')...');
  1647 + objCACIC.writeDebugLog('InicializaTray: Setando �cones para "Interroga" (intStatus=' + IntToStr(g_intStatus) + ')...');
1647 1648 End
1648 1649 else if (g_intStatus = EM_SUPORTE) then
1649 1650 Begin
... ... @@ -1654,14 +1655,14 @@ begin
1654 1655 End
1655 1656 else
1656 1657 Begin
1657   - timerCheckNoMinuto.Interval := 60000; // Restauro o timer verificador de ações para 1 minuto
  1658 + timerCheckNoMinuto.Interval := 60000; // Restauro o timer verificador de a��es para 1 minuto
1658 1659  
1659 1660 Mnu_InformacoesGerais.Caption := strMenuCaptionINF;
1660 1661 Mnu_ExecutarAgora.Caption := strMenuCaptionEXE;
1661 1662 Mnu_InformacoesGerais.Enabled := true;
1662 1663 Mnu_ExecutarAgora.Enabled := true;
1663 1664  
1664   - objCACIC.writeDebugLog('InicializaTray: Setando Ícones para "Normal" (intStatus=' + IntToStr(g_intStatus) + ')...');
  1665 + objCACIC.writeDebugLog('InicializaTray: Setando �cones para "Normal" (intStatus=' + IntToStr(g_intStatus) + ')...');
1665 1666 End;
1666 1667  
1667 1668 objCACIC.writeDebugLog('InicializaTray: Setando o HINT do Systray para: "'+v_strHint+'"');
... ... @@ -1671,13 +1672,13 @@ begin
1671 1672  
1672 1673 if (objCACIC.GetValueFromFile('Configs','InExibeBandeja', strMainProgramInfFileName) <> 'N') Then
1673 1674 Begin
1674   - objCACIC.writeDebugLog('InicializaTray: Exibe/Renova Ícone do Systray...');
  1675 + objCACIC.writeDebugLog('InicializaTray: Exibe/Renova �cone do Systray...');
1675 1676 imgIconList.GetIcon(g_intStatus,TrayIcon1.Icon);
1676 1677 TrayIcon1.Show;
1677 1678 End
1678 1679 else
1679 1680 Begin
1680   - objCACIC.writeDebugLog('InicializaTray: Inibe Ícone do Systray...');
  1681 + objCACIC.writeDebugLog('InicializaTray: Inibe �cone do Systray...');
1681 1682 TrayIcon1.Hide;
1682 1683 End;
1683 1684 End
... ... @@ -1703,22 +1704,22 @@ begin
1703 1704 FormularioGeral.Visible:=false;
1704 1705 if (objCACIC.GetValueFromFile('Configs','InExibeBandeja', strMainProgramInfFileName) = 'N') Then
1705 1706 Begin
1706   - objCACIC.writeDebugLog('MinimizaParaTrayArea: Escondendo o ícone');
  1707 + objCACIC.writeDebugLog('MinimizaParaTrayArea: Escondendo o �cone');
1707 1708 TrayIcon1.Hide
1708 1709 End
1709 1710 else
1710 1711 Begin
1711   - objCACIC.writeDebugLog('MinimizaParaTrayArea: Mostrando o ícone');
  1712 + objCACIC.writeDebugLog('MinimizaParaTrayArea: Mostrando o �cone');
1712 1713 TrayIcon1.Show;
1713 1714 End;
1714 1715 end;
1715 1716 // -------------------------------------
1716   -// Fim dos códigos da bandeja do sistema
  1717 +// Fim dos c�digos da bandeja do sistema
1717 1718 // -------------------------------------
1718 1719  
1719 1720 procedure TFormularioGeral.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1720 1721 begin
1721   - // Esse evento é colocado em Nil durante o shutdown do windows.
  1722 + // Esse evento � colocado em Nil durante o shutdown do windows.
1722 1723 // Ver o evento WMQueryEndSession.
1723 1724 CanClose := False;
1724 1725 MinimizaParaTrayArea(Nil);
... ... @@ -1726,8 +1727,8 @@ end;
1726 1727  
1727 1728 procedure TFormularioGeral.WMQueryEndSession(var Msg: TWMQueryEndSession);
1728 1729 begin
1729   - objCACIC.writeDailyLog('Windows em processo de finalização!');
1730   - // Quando há um shutdown do windows em execução, libera o close.
  1730 + objCACIC.writeDailyLog('Windows em processo de finaliza��o!');
  1731 + // Quando h� um shutdown do windows em execu��o, libera o close.
1731 1732 OnCloseQuery := Nil;
1732 1733 Msg.Result := 1;
1733 1734 Finaliza(true);
... ... @@ -1756,7 +1757,7 @@ begin
1756 1757 ST_VL_WinsPrimario.Caption := objCACIC.getValueFromTags('WINSPrimaryServer' ,strWin32_NetworkAdapterConfiguration);
1757 1758 ST_VL_WinsSecundario.Caption := objCACIC.getValueFromTags('WINSSecondaryServer' ,strWin32_NetworkAdapterConfiguration);
1758 1759  
1759   - // Exibição das informações de Sistemas Monitorados...
  1760 + // Exibi��o das informa��es de Sistemas Monitorados...
1760 1761 v_conta_perfis := 1;
1761 1762 v_conta_infos_coletadas := 0;
1762 1763 v_tripa_perfis := '*';
... ... @@ -1772,7 +1773,7 @@ begin
1772 1773 Begin
1773 1774 v_array_perfis := objCACIC.explode(v_tripa_perfis,',');
1774 1775  
1775   - // ATENÇÃO!!! Antes da implementação de INFORMAÇÕES GERAIS o Count ia até 11, ok?!
  1776 + // ATEN��O!!! Antes da implementa��o de INFORMA��ES GERAIS o Count ia at� 11, ok?!
1776 1777 if (v_array_perfis.Count > 11) and (v_array_perfis[11]='S') then
1777 1778 Begin
1778 1779 v_tripa_infos_coletadas := objCACIC.deCrypt( objCACIC.GetValueFromFile('Collects','ColMoni_Atual', strGerColsInfFileName));
... ... @@ -1814,7 +1815,7 @@ begin
1814 1815 Begin
1815 1816 if (copy(strAux,0,8) = FormatDateTime('yyyymmdd', Date)) then
1816 1817 Begin
1817   - // Vamos reaproveitar algumas variáveis!...
  1818 + // Vamos reaproveitar algumas vari�veis!...
1818 1819  
1819 1820 v_array_perfis := objCACIC.explode(strAux,'#');
1820 1821 for intAux := 1 to v_array_perfis.Count-1 Do
... ... @@ -1833,7 +1834,7 @@ begin
1833 1834 v_array_infos_coletadas[3] := v_array_infos_coletadas[2];
1834 1835 End;
1835 1836  
1836   - // Códigos Possíveis: -1 : Problema no Envio da Coleta
  1837 + // C�digos Poss�veis: -1 : Problema no Envio da Coleta
1837 1838 // 1 : Coleta Enviada
1838 1839 // 0 : Sem Coleta para Envio
1839 1840 strAux := IfThen(v_array_infos_coletadas[3]='1','Coleta Enviada ao Gerente WEB!',
... ... @@ -1849,7 +1850,7 @@ begin
1849 1850 else
1850 1851 Begin
1851 1852 listSistemasMonitorados.Items.Add;
1852   - listSistemasMonitorados.Items[0].Caption := 'Não Há Coletas Registradas Nesta Data';
  1853 + listSistemasMonitorados.Items[0].Caption := 'N�o H� Coletas Registradas Nesta Data';
1853 1854 End;
1854 1855  
1855 1856 strConfigsPatrimonio := objCACIC.GetValueFromFile('Patrimonio','Configs', strMainProgramInfFileName);
... ... @@ -1971,7 +1972,7 @@ procedure TFormularioGeral.Bt_Fechar_InfosGeraisClick(Sender: TObject);
1971 1972 end;
1972 1973  
1973 1974  
1974   -// Solução baixada de http://www.delphidabbler.com/codesnip.php?action=named&routines=URLDecode&showsrc=1
  1975 +// Solu��o baixada de http://www.delphidabbler.com/codesnip.php?action=named&routines=URLDecode&showsrc=1
1975 1976 function TFormularioGeral.URLDecode(const S: string): string;
1976 1977 var
1977 1978 Idx: Integer; // loops thru chars in string
... ... @@ -2029,15 +2030,15 @@ var strXML,
2029 2030 begin
2030 2031  
2031 2032 // **********************************************************************************************************
2032   - // Esta procedure tratará os comandos e suas ações, enviados em um pacote XML na requisição, conforme abaixo:
  2033 + // Esta procedure tratar� os comandos e suas a��es, enviados em um pacote XML na requisi��o, conforme abaixo:
2033 2034 // **********************************************************************************************************
2034   - // Execute -> Comando que forçará a execução do Gerente de Coletas (Sugestão: Configurar coletas forçadas no Gerente WEB e executar esse comando)
2035   - // Requisição: Tag <Execute>
  2035 + // Execute -> Comando que for�ar� a execu��o do Gerente de Coletas (Sugest�o: Configurar coletas for�adas no Gerente WEB e executar esse comando)
  2036 + // Requisi��o: Tag <Execute>
2036 2037 // Respostas: AResponseinfo.ContentText := AResponseinfo.ContentText + 'OK'
2037 2038 //
2038   - // Ask -> Comando que perguntará sobre a existência de um determinado arquivo na estação.
2039   - // Requisição: Tag <FileName>: Nome do arquivo a pesquisar no repositório local
2040   - // Tag <FileHash>: Hash referente ao arquivo a ser pesquisado no repositório local
  2039 + // Ask -> Comando que perguntar� sobre a exist�ncia de um determinado arquivo na esta��o.
  2040 + // Requisi��o: Tag <FileName>: Nome do arquivo a pesquisar no reposit�rio local
  2041 + // Tag <FileHash>: Hash referente ao arquivo a ser pesquisado no reposit�rio local
2041 2042 // Respostas: AResponseinfo.ContentText := AResponseinfo.ContentText + 'OK';
2042 2043 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'Tenho' ou
2043 2044 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'NaoTenho' ou
... ... @@ -2045,38 +2046,38 @@ begin
2045 2046 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'Ocupado'.
2046 2047 //
2047 2048 //
2048   - // Erase -> Comando que provocará a exclusão de determinado arquivo.
2049   - // Deverá ser acompanhado das tags <FileName> e <FileHash>
2050   - // Requisição: Tag <FileName>: Nome do arquivo a ser excluído do repositório local
2051   - // Tag <FileHash>: Hash referente ao arquivo a ser excluído do repositório local
  2049 + // Erase -> Comando que provocar� a exclus�o de determinado arquivo.
  2050 + // Dever� ser acompanhado das tags <FileName> e <FileHash>
  2051 + // Requisi��o: Tag <FileName>: Nome do arquivo a ser exclu�do do reposit�rio local
  2052 + // Tag <FileHash>: Hash referente ao arquivo a ser exclu�do do reposit�rio local
2052 2053 // Respostas: AResponseinfo.ContentText := AResponseinfo.ContentText + 'OK';
2053 2054 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'AcaoExecutada' ou
2054 2055 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'ArquivoNaoEncontrado' ou
2055 2056 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'EscritaNaoPermitida';
2056 2057 //
2057   - // Registry -> Comando que provocará ação no Registry de estações com MS-Windows.
2058   - // Deverá ser acompanhado das tags <Path>, <Action>, <Condition> e <Value>
2059   - // Requisição: Tag <Path> : Caminho no Registry
2060   - // Tag <Action> : Ação para execução
2061   - // SAVE => Salva o valor contido na tag <Value> de acordo com condição contida na tag <Condition>
2062   - // ERASE => Apaga a chave de acordo com condição contida na tag <Condition>
2063   - // Tag <Condition> : Condiçção para execução da ação
  2058 + // Registry -> Comando que provocar� a��o no Registry de esta��es com MS-Windows.
  2059 + // Dever� ser acompanhado das tags <Path>, <Action>, <Condition> e <Value>
  2060 + // Requisi��o: Tag <Path> : Caminho no Registry
  2061 + // Tag <Action> : A��o para execu��o
  2062 + // SAVE => Salva o valor contido na tag <Value> de acordo com condi��o contida na tag <Condition>
  2063 + // ERASE => Apaga a chave de acordo com condi��o contida na tag <Condition>
  2064 + // Tag <Condition> : Condi���o para execu��o da a��o
2064 2065 // EQUAL => Se o valor contido na tag <Value> for IGUAL ao valor encontrado na chave
2065 2066 // DIFFER => Se o valor contido na tag <Value> for DIFERENTE ao valor encontrado na chave
2066   - // NONE => Nenhuma condição, permitindo a execução da ação de forma incondicional
2067   - // Tag <Value> : Valor a ser utilizado na ação
  2067 + // NONE => Nenhuma condi��o, permitindo a execu��o da a��o de forma incondicional
  2068 + // Tag <Value> : Valor a ser utilizado na a��o
2068 2069 // Respostas: AResponseinfo.ContentText := AResponseinfo.ContentText + 'OK';
2069 2070 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'AcaoExecutada' ou
2070 2071 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'ChaveNaoEncontrada' ou
2071 2072 // AResponseinfo.ContentText := AResponseinfo.ContentText + 'EscritaNaoPermitida';
2072 2073 //
2073   - // Exit -> Comando para finalização do agente principal (bandeja)
  2074 + // Exit -> Comando para finaliza��o do agente principal (bandeja)
2074 2075  
2075   - // Palavra Chave definida por GerCols, enviada e armazenada no BD. A autenticação da comunicação é baseada na verificação deste valor.
2076   - // A geração da palavra chave dar-se-á a cada contato do GerCols com o módulo Gerente WEB
  2076 + // Palavra Chave definida por GerCols, enviada e armazenada no BD. A autentica��o da comunica��o � baseada na verifica��o deste valor.
  2077 + // A gera��o da palavra chave dar-se-� a cada contato do GerCols com o m�dulo Gerente WEB
2077 2078 // te_palavra_chave -> <TE_PALAVRA_CHAVE>
2078 2079  
2079   - // Tratamento da requisição http...
  2080 + // Tratamento da requisi��o http...
2080 2081 strXML := URLDecode(ARequestInfo.UnparsedParams);
2081 2082 intAux := Pos('=',strXML);
2082 2083 strXML := copy(strXML,(intAux+1),StrLen(PAnsiChar(strXML))-intAux);
... ... @@ -2084,11 +2085,11 @@ begin
2084 2085  
2085 2086  
2086 2087  
2087   - // Autenticação e tratamento da requisição
  2088 + // Autentica��o e tratamento da requisi��o
2088 2089 if (objCACIC.xmlGetValue('te_palavra_chave',strXML) = objCACIC.getValueMemoryData('Configs.te_palavra_chave',v_tstrCipherOpened)) then
2089 2090 Begin
2090 2091 strCmd := objCACIC.xmlGetValue('cmd',strXML);
2091   - // As ações terão seus valores
  2092 + // As a��es ter�o seus valores
2092 2093  
2093 2094 if (strCmd = 'Execute') or
2094 2095 (strCmd = 'Ask') or
... ... @@ -2097,10 +2098,10 @@ begin
2097 2098 (strCmd = 'Exit') then
2098 2099 AResponseinfo.ContentText := 'OK'
2099 2100 else
2100   - AResponseinfo.ContentText := 'COMANDO NÃO RECONHECIDO!';
  2101 + AResponseinfo.ContentText := 'COMANDO N�O RECONHECIDO!';
2101 2102 End
2102 2103 else
2103   - AResponseinfo.ContentText := 'ACESSO NÃO PERMITIDO!';
  2104 + AResponseinfo.ContentText := 'ACESSO N�O PERMITIDO!';
2104 2105  
2105 2106 if (strCmd = 'Execute') then
2106 2107 ExecutaCACIC(nil)
... ... @@ -2148,10 +2149,10 @@ if (pStrRCAction = &#39;&#39;) then
2148 2149 else
2149 2150 Begin
2150 2151 tstrActions := objCACIC.explode(pStrRCAction,'[FIELD]');
2151   - if (AnsiPos('OSCE_DEBUG' ,tstrActions[1]) = 0) and // Não informo sobre as ações temporárias do OfficeScan (vide docs.trendmicro.com -> HotFix 1197)
2152   - (AnsiPos('ck_conexao.' ,tstrActions[1]) = 0) and // Não informo sobre as ações com o arquivo de controle de conexao do srCACICsrv
2153   - (AnsiPos(objCACIC.getLocalFolderName,tstrActions[1]) = 0) and // Não informo sobre as ações de rotina na pasta do CACIC
2154   - (trim(tstrActions[1]) <> '') then // Não informo caso o parâmetro 1 (origem) esteja vazio
  2152 + if (AnsiPos('OSCE_DEBUG' ,tstrActions[1]) = 0) and // N�o informo sobre as a��es tempor�rias do OfficeScan (vide docs.trendmicro.com -> HotFix 1197)
  2153 + (AnsiPos('ck_conexao.' ,tstrActions[1]) = 0) and // N�o informo sobre as a��es com o arquivo de controle de conexao do srCACICsrv
  2154 + (AnsiPos(objCACIC.getLocalFolderName,tstrActions[1]) = 0) and // N�o informo sobre as a��es de rotina na pasta do CACIC
  2155 + (trim(tstrActions[1]) <> '') then // N�o informo caso o par�metro 1 (origem) esteja vazio
2155 2156 Begin
2156 2157 objCACIC.writeDebugLog('CheckRCActions: ' + pStrRCAction);
2157 2158 strRCActionsAux2 := objCACIC.getValueFromFile('srCACICcli','m_idConexao',objCACIC.getLocalFolderName + 'Temp\ck_conexao.ini');
... ... @@ -2177,17 +2178,17 @@ var v_strTeSO,
2177 2178 begin
2178 2179 if boolServerON then // Ordeno ao SrCACICsrv que auto-finalize
2179 2180 Begin
2180   - // Desligando a captura de ações
  2181 + // Desligando a captura de a��es
2181 2182 CN.Stop;
2182 2183  
2183   - objCACIC.writeDailyLog('Desativando o Módulo de Suporte Remoto Seguro.');
  2184 + objCACIC.writeDailyLog('Desativando o M�dulo de Suporte Remoto Seguro.');
2184 2185  
2185 2186 objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe -kill',false,SW_HIDE);
2186 2187 objCacic.setBoolCipher(not objCacic.isInDebugMode);
2187   - // Bloqueio o módulo de suporte remoto seguro na FireWall nativa.
  2188 + // Bloqueio o m�dulo de suporte remoto seguro na FireWall nativa.
2188 2189 objCACIC.addApplicationToFirewall('srCACIC - Suporte Remoto Seguro do Sistema CACIC',objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe', false);
2189 2190  
2190   - Sleep(3000); // Pausa para liberação do aguarde_srCACIC.txt
  2191 + Sleep(3000); // Pausa para libera��o do aguarde_srCACIC.txt
2191 2192  
2192 2193 CheckRCActions;
2193 2194  
... ... @@ -2219,13 +2220,13 @@ begin
2219 2220 v_strNuPortaSR := trim(objCACIC.deCrypt( objCACIC.GetValueFromFile('Configs','NuPortaSrCacic' , strMainProgramInfFileName)));
2220 2221 v_strNuTimeOutSR := trim(objCACIC.GetValueFromFile('Configs','NuTimeOutSrCacic' , strMainProgramInfFileName));
2221 2222  
2222   - // Detectar versão do Windows antes de fazer a chamada seguinte...
  2223 + // Detectar vers�o do Windows antes de fazer a chamada seguinte...
2223 2224 try
2224 2225 AssignFile(fileAguarde,objCACIC.getLocalFolderName + 'Temp\aguarde_srCACIC.txt');
2225 2226 {$IOChecks off}
2226 2227 Reset(fileAguarde); {Abre o arquivo texto}
2227 2228 {$IOChecks on}
2228   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
  2229 + if (IOResult <> 0) then // Arquivo n�o existe, ser� recriado.
2229 2230 begin
2230 2231 Rewrite (fileAguarde);
2231 2232 Append(fileAguarde);
... ... @@ -2236,11 +2237,11 @@ begin
2236 2237 Finally
2237 2238 End;
2238 2239  
2239   - objCACIC.writeDebugLog('Mnu_SuporteRemotoClick: Verificando validade do módulo srCACICsrv para chamada!');
  2240 + objCACIC.writeDebugLog('Mnu_SuporteRemotoClick: Verificando validade do m�dulo srCACICsrv para chamada!');
2240 2241  
2241 2242 objCACIC.writeDebugLog('Mnu_SuporteRemotoClick: objCACIC.getFileHash('+objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe'+') = "'+objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe'+'"'));
2242 2243  
2243   - // Executarei o srCACICsrv após batimento do HASHCode
  2244 + // Executarei o srCACICsrv ap�s batimento do HASHCode
2244 2245 if (objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe') = objCACIC.deCrypt( objCACIC.GetValueFromFile('Hash-Codes','SRCACICSRV.EXE', strChkSisInfFileName),false,true)) then
2245 2246 Begin
2246 2247 objCACIC.writeDebugLog('Mnu_SuporteRemotoClick: Invocando (Criptografado)"'+objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe -start [' + objCACIC.getWebManagerAddress + ']' +
... ... @@ -2259,7 +2260,7 @@ begin
2259 2260 '[' + v_strNuPortaSR + ']' +
2260 2261 '[' + v_strNuTimeOutSR + ']');
2261 2262  
2262   - // Libero o módulo de suporte remoto seguro na FireWall nativa.
  2263 + // Libero o m�dulo de suporte remoto seguro na FireWall nativa.
2263 2264 objCACIC.addApplicationToFirewall('srCACIC - Suporte Remoto Seguro do Sistema CACIC',objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe', true);
2264 2265  
2265 2266 objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe -start [' + objCACIC.getWebManagerAddress + ']' +
... ... @@ -2270,19 +2271,19 @@ begin
2270 2271 '[' + v_strNuPortaSR + ']' +
2271 2272 '[' + v_strNuTimeOutSR + ']',false,SW_NORMAL);
2272 2273 tstrAux.Free;
2273   - Sleep(3000); // Pausa para criação do aguarde_srCACIC.txt
  2274 + Sleep(3000); // Pausa para cria��o do aguarde_srCACIC.txt
2274 2275 objCACIC.setBoolCipher(not objCACIC.isInDebugMode);
2275 2276 InicializaTray;
2276 2277  
2277   - // Ligando a captura de ações
  2278 + // Ligando a captura de a��es
2278 2279 CN.Execute;
2279 2280  
2280 2281 BoolServerON := true;
2281 2282 End
2282 2283 else
2283 2284 Begin
2284   - objCACIC.writeDailyLog('Execução de srCACICsrv impedida por falta de integridade!');
2285   - objCACIC.writeDailyLog('Providenciando nova cópia.');
  2285 + objCACIC.writeDailyLog('Execu��o de srCACICsrv impedida por falta de integridade!');
  2286 + objCACIC.writeDailyLog('Providenciando nova c�pia.');
2286 2287 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Modules\srcacicsrv.exe');
2287 2288 Invoca_GerCols('recuperaSR');
2288 2289 intPausaRecupera := 0;
... ... @@ -2341,26 +2342,26 @@ end;
2341 2342  
2342 2343 procedure TFormularioGeral.CheckIfDownloadedVersion;
2343 2344 Begin
2344   - objCACIC.writeDebugLog('CheckIfDownloadedVersion: Verificando existência de nova versão baixada do Agente Principal...');
  2345 + objCACIC.writeDebugLog('CheckIfDownloadedVersion: Verificando exist�ncia de nova vers�o baixada do Agente Principal...');
2345 2346  
2346   - // Caso tenha sido baixada nova cópia do Agente Principal, esta deverá ser movida para cima da atual pelo Gerente de Coletas...
  2347 + // Caso tenha sido baixada nova c�pia do Agente Principal, esta dever� ser movida para cima da atual pelo Gerente de Coletas...
2347 2348 if (FileExists(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName)) then
2348 2349 Begin
2349   - objCACIC.writeDebugLog('CheckIfDownloadedVersion: Hash Code de Executável("'+objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName+'") = "' + objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName) + '"');
2350   - objCACIC.writeDebugLog('CheckIfDownloadedVersion: Hash Code Desejável = "' + objCACIC.deCrypt( objCACIC.GetValueFromFile('Hash-Codes', objCACIC.getMainProgramName,strChkSisInfFileName),false,true) + '"');
  2350 + objCACIC.writeDebugLog('CheckIfDownloadedVersion: Hash Code de Execut�vel("'+objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName+'") = "' + objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName) + '"');
  2351 + objCACIC.writeDebugLog('CheckIfDownloadedVersion: Hash Code Desej�vel = "' + objCACIC.deCrypt( objCACIC.GetValueFromFile('Hash-Codes', objCACIC.getMainProgramName,strChkSisInfFileName),false,true) + '"');
2351 2352 if (objCACIC.deCrypt( objCACIC.GetValueFromFile('Hash-Codes',objCACIC.getMainProgramName, strChkSisInfFileName),false,true) = objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName)) then //AutoUpdate!
2352 2353 Begin
2353   - objCACIC.writeDebugLog('CheckIfDownloadedVersion: Encontrei a nova versão em '+objCACIC.getLocalFolderName + 'Temp);
  2354 + objCACIC.writeDebugLog('CheckIfDownloadedVersion: Encontrei a nova vers�o em '+objCACIC.getLocalFolderName + 'Temp);
2354 2355 if (objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName) = objCACIC.getFileHash(objCACIC.getLocalFolderName + objCACIC.getMainProgramName)) then
2355 2356 Begin
2356   - objCACIC.writeDebugLog('CheckIfDownloadedVersion: Os hashs codes entre '+objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName + ' e ' + objCACIC.getLocalFolderName + objCACIC.getMainProgramName + ' são iguais!');
  2357 + objCACIC.writeDebugLog('CheckIfDownloadedVersion: Os hashs codes entre '+objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName + ' e ' + objCACIC.getLocalFolderName + objCACIC.getMainProgramName + ' s�o iguais!');
2357 2358 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName)
2358 2359 End
2359 2360 else
2360 2361 Begin
2361   - objCACIC.writeDebugLog('CheckIfDownloadedVersion: Os hashs codes entre '+objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName + ' e ' + objCACIC.getLocalFolderName + objCACIC.getMainProgramName + ' são diferentes!');
2362   - objCACIC.writeDailyLog('Versão Nova de '+objCACIC.getMainProgramName+' Encontrada. ('+objCACIC.GetVersionInfo(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName)+')');
2363   - objCACIC.writeDailyLog('Finalizando para Auto-Atualização.');
  2362 + objCACIC.writeDebugLog('CheckIfDownloadedVersion: Os hashs codes entre '+objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName + ' e ' + objCACIC.getLocalFolderName + objCACIC.getMainProgramName + ' s�o diferentes!');
  2363 + objCACIC.writeDailyLog('Vers�o Nova de '+objCACIC.getMainProgramName+' Encontrada. ('+objCACIC.GetVersionInfo(objCACIC.getLocalFolderName + 'Temp\' + objCACIC.getMainProgramName)+')');
  2364 + objCACIC.writeDailyLog('Finalizando para Auto-Atualiza��o.');
2364 2365 CopyFile(PChar(objCACIC.getLocalFolderName + 'aguarde_CACIC.txt'),PChar(objCACIC.getLocalFolderName + 'Temp\atualiza_CACIC.txt'),false);
2365 2366 Finaliza(false);
2366 2367 End;
... ... @@ -2574,8 +2575,8 @@ begin
2574 2575 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\ck_conexao.ini');
2575 2576 FormularioGeral.ExecutaCACIC(nil);
2576 2577 End;
2577   - objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Verificando existência de nova versão de CACICservice para atualização');
2578   - // Verificação de existência de nova versão do CACICservice para substituição e execução
  2578 + objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Verificando exist�ncia de nova vers�o de CACICservice para atualiza��o');
  2579 + // Verifica��o de exist�ncia de nova vers�o do CACICservice para substitui��o e execu��o
2579 2580 if FileExists(objCACIC.getLocalFolderName + 'Temp\cacicservice.exe') then
2580 2581 Begin
2581 2582 objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Eliminando "'+objCACIC.getWinDir + 'cacicservice.exe"');
... ... @@ -2585,21 +2586,21 @@ begin
2585 2586  
2586 2587 if not FileExists(objCACIC.getWinDir + 'cacicservice.exe') then
2587 2588 Begin
2588   - objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Eliminação OK! Movendo "'+objCACIC.getLocalFolderName + 'Temp\cacicservice.exe" para "'+objCACIC.getWinDir + 'cacicservice.exe"');
  2589 + objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Elimina��o OK! Movendo "'+objCACIC.getLocalFolderName + 'Temp\cacicservice.exe" para "'+objCACIC.getWinDir + 'cacicservice.exe"');
2589 2590 MoveFile(PChar(objCACIC.getLocalFolderName + 'Temp\cacicservice.exe'),PChar(objCACIC.getWinDir + 'cacicservice.exe'));
2590 2591 sleep(2000);
2591 2592  
2592 2593 FormularioGeral.ServiceStart('','CacicSustainService');
2593 2594 End
2594 2595 else
2595   - objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Impossível Eliminar "'+objCACIC.getWinDir + 'cacicservice.exe"');
  2596 + objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Imposs�vel Eliminar "'+objCACIC.getWinDir + 'cacicservice.exe"');
2596 2597 End;
2597 2598 End;
2598 2599 Finally
2599 2600 g_intTaskBarAtual := FindWindow('Shell_TrayWnd', Nil);
2600 2601 g_intDesktopWindow := FormularioGeral.getDesktopWindowHandle;
2601 2602  
2602   - objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Valores para Condição de Redesenho do ícone no SysTRAY...');
  2603 + objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Valores para Condi��o de Redesenho do �cone no SysTRAY...');
2603 2604 objCACIC.writeDebugLog('timerCheckNoMinutoTimer: g_intTaskBarAnterior : ' + IntToStr(g_intTaskBarAnterior));
2604 2605 objCACIC.writeDebugLog('timerCheckNoMinutoTimer: g_intTaskBarAtual : ' + IntToStr(g_intTaskBarAtual));
2605 2606 objCACIC.writeDebugLog('timerCheckNoMinutoTimer: g_intDesktopWindow : ' + IntToStr(g_intDesktopWindow));
... ... @@ -2612,7 +2613,7 @@ begin
2612 2613 Begin
2613 2614 objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Invocando InicializaTray...');
2614 2615 if ((g_intTaskBarAnterior = 0) and (g_intTaskBarAtual > 0)) then
2615   - g_intStatusAnterior := -1; // Para forçar o redesenho no systray
  2616 + g_intStatusAnterior := -1; // Para for�ar o redesenho no systray
2616 2617  
2617 2618 FormularioGeral.InicializaTray;
2618 2619 End;
... ... @@ -2655,7 +2656,7 @@ begin
2655 2656 ARect.Left := LEFT_MENU_ITEM;
2656 2657 ACanvas.FillRect(ARect);
2657 2658  
2658   - DrawText(ACanvas.Handle, PChar('Configurações'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE{ or DT_NOCLIP});
  2659 + DrawText(ACanvas.Handle, PChar('Configura��es'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE{ or DT_NOCLIP});
2659 2660 end;
2660 2661  
2661 2662 procedure TFormularioGeral.Mnu_ExecutarAgoraDrawItem(Sender: TObject;
... ... @@ -2683,7 +2684,7 @@ begin
2683 2684 ARect.Left := LEFT_MENU_ITEM;
2684 2685 ACanvas.FillRect(ARect);
2685 2686  
2686   - DrawText(ACanvas.Handle, PChar('Informações Gerais'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE{ or DT_NOCLIP});
  2687 + DrawText(ACanvas.Handle, PChar('Informa��es Gerais'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE{ or DT_NOCLIP});
2687 2688 end;
2688 2689  
2689 2690 procedure TFormularioGeral.Mnu_SuporteRemotoDrawItem(Sender: TObject;
... ... @@ -2742,7 +2743,7 @@ begin
2742 2743 // it will fail because it no longer exists when the explorer restarts.
2743 2744 on E:Exception do
2744 2745 Begin
2745   - objCACIC.writeExceptionLog(E.Message,e.ClassName,'ApplicationEvents1Message - Liberando Systray Icon para recriação');
  2746 + objCACIC.writeExceptionLog(E.Message,e.ClassName,'ApplicationEvents1Message - Liberando Systray Icon para recria��o');
2746 2747 End;
2747 2748 end;
2748 2749 TrayIcon1 := TTrayIcon.Create(self);
... ...