- merge de branch (2.4) revisão [654:705]

- atualizada número de versão git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@708 fecfc0c7-e812-0410-ae72-849f08638ee7

- merge de branch (2.4) revisão [654:705]
- atualizada número de versão git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@708 fecfc0c7-e812-0410-ae72-849f08638ee7
Adriano Vieira
1 parent 62f5aa61
Showing 70 changed files with 1463 additions and 1616 deletions Show diff stats
CACIC_Library.pas
cacic2.bpg
cacic2.cfg
cacic2.dof
cacic2.dpr
cacic2.res
chkcacic/chkcacic.cfg
chkcacic/chkcacic.dof
chkcacic/chkcacic.dpr
chkcacic/chkcacic.res
chkcacic/main.pas
chksis/chksis.cfg
chksis/chksis.dof
chksis/chksis.dpr
chksis/chksis.res
col_anvi/col_anvi.cfg
col_anvi/col_anvi.dof
col_anvi/col_anvi.dpr
col_anvi/col_anvi.res
col_comp/col_comp.cfg
@@ -0,0 +1,460 @@
+{*------------------------------------------------------------------------------
+   Package of both methods/properties to be used by CACIC Clients
+
+   @version CACIC_Library 2009-01-07 23:00 harpiain
+   @package CACIC_Agente
+   @subpackage CACIC_Library
+   @author Adriano dos Santos Vieira <harpiain at gmail.com>
+   @copyright Copyright (C) Adriano dos Santos Vieira. All rights reserved.
+   @license GNU/GPL, see LICENSE.php
+   CACIC_Library is free software and parts of it may contain or be derived from
+   the GNU General Public License or other free or open source software license.
+   See COPYRIGHT.php for copyright notices and details.
+
+   CACIC_Library - Coding style
+   for Constants
+      - characters always in uppercase
+      - use underscore for long name
+      e.g.
+        const CACIC_VERSION = '2.4.0';
+
+   for Variables
+      - characters always in lowercase
+      - start with "g" character for global
+      - start with "v" character for local
+      - start with "p" character for methods parameters
+      - use underscore for better read
+      e.g.
+        var g_global : string;
+        var v_local  : string;
+
+   for Objects
+      - start with "o" character
+      e.g.
+        oCacicObject : TCACIC_Common;
+
+   for Methods
+      - start with lowercase word
+      - next words start with capital letter
+      e.g.
+        function getCacicPath() : string;
+        procedure setCacicPath( pPath: string );
+-------------------------------------------------------------------------------}
+
+unit CACIC_Library;
+
+interface
+
+uses
+   Windows, SysUtils, StrUtils;
+
+type
+{*------------------------------------------------------------------------------
+ Classe para obter informações do sistema windows
+-------------------------------------------------------------------------------}
+   TCACIC_Windows = class
+       private
+
+       protected
+         /// Mantem a identificação do sistema operacional
+         g_osVerInfo: TOSVersionInfo;
+
+       public
+         function isWindowsVista() : boolean;
+         function isWindowsGEVista() : boolean;
+         function isWindowsXP() : boolean;
+         function isWindowsGEXP() : boolean;
+         function isWindowsNTPlataform() : boolean;
+         function isWindows2000() : boolean;
+         function isWindowsNT() : boolean;
+         function isWindows9xME() : boolean;
+         function getWindowsStrId() : string;
+         function isWindowsAdmin(): Boolean;
+         function createSampleProcess(p_cmd: string; p_wait: boolean ): boolean;
+         procedure showTrayIcon(p_visible:boolean);
+   end;
+
+{*------------------------------------------------------------------------------
+ Classe para tratamento de debug
+-------------------------------------------------------------------------------}
+   TCACIC_Debug = class
+       private
+
+       protected
+         /// TRUE se em mode de debug, FALSE caso contrário
+         g_debug: boolean;
+
+       public
+         procedure debugOn();
+         procedure debugOff();
+         function inDebugMode() : boolean;
+   end;
+{*------------------------------------------------------------------------------
+ Classe geral da biblioteca
+-------------------------------------------------------------------------------}
+   TCACIC = class(TCACIC_Windows)
+       constructor Create();
+       private
+
+       protected
+         /// Mantem o caminho físico de instalação do agente cacic
+         g_cacic_path: string;
+
+       public
+         Windows : TCACIC_Windows; /// objeto de informacoes de windows
+         Debug : TCACIC_Debug; /// objeto de tratamento de debug
+         procedure setCacicPath(p_cacic_path: string);
+         function getCacicPath(): string;
+         function trimEspacosExcedentes(p_str: string): string;
+         function isAppRunning( p_app_name: PAnsiChar ): boolean;
+   end;
+
+// Declaração de constantes para a biblioteca
+const CACIC_PROCESS_WAIT = true; // aguardar fim do processo
+const CACIC_PROCESS_NOWAIT = false; // não aguardar o fim do processo
+
+implementation
+
+{*------------------------------------------------------------------------------
+  Construtor para a classe
+
+  Objetiva inicializar valores a serem usados pelos objetos da
+  classe.
+-------------------------------------------------------------------------------}
+constructor TCACIC.Create();
+begin
+  Self.g_osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
+  GetVersionEx(Self.g_osVerInfo);
+  Self.Windows := TCACIC_Windows.Create();
+  Self.Debug := TCACIC_Debug.Create();
+end;
+
+{*------------------------------------------------------------------------------
+  Elimina espacos excedentes na string
+
+  @param p_str String a excluir espacos
+-------------------------------------------------------------------------------}
+function TCACIC.trimEspacosExcedentes(p_str: String): String;
+begin
+  if(ansipos('  ', p_str ) <> 0 ) then
+    repeat
+      p_str := StringReplace( p_str, '  ', ' ', [rfReplaceAll] );
+    until ( ansipos( '  ', p_str ) = 0 );
+
+  Result := p_str;
+end;
+
+{*------------------------------------------------------------------------------
+  Atribui o caminho físico de instalação do agente cacic
+
+  @param p_cacic_path Caminho físico de instalação do agente cacic
+-------------------------------------------------------------------------------}
+procedure TCACIC.setCacicPath(p_cacic_path: string);
+begin
+  Self.g_cacic_path := p_cacic_path;
+end;
+
+{*------------------------------------------------------------------------------
+  Obter o caminho fisico de instalacao do agente cacic
+
+  @return String contendo o caminho físico
+-------------------------------------------------------------------------------}
+function TCACIC.getCacicPath(): string;
+begin
+   Result := Self.g_cacic_path;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se a aplicação está em execução
+
+  @param p_app_name Nome da aplicação a ser verificada
+  @return TRUE se em execução, FALSE caso contrário
+-------------------------------------------------------------------------------}
+function TCACIC.isAppRunning( p_app_name: PAnsiChar ): boolean;
+var
+	MutexHandle: THandle;
+
+begin
+   MutexHandle := CreateMutex(nil, TRUE, p_app_name);
+   if (MutexHandle = 0) OR (GetLastError = ERROR_ALREADY_EXISTS)
+      then Result := true
+      else Result := false;
+end;
+
+{*------------------------------------------------------------------------------
+  Coloca o sistema em modo de debug
+
+-------------------------------------------------------------------------------}
+procedure TCACIC_Debug.debugOn();
+begin
+  Self.g_debug := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Desliga o modo de debug do sistema
+
+-------------------------------------------------------------------------------}
+procedure TCACIC_Debug.debugOff();
+begin
+  Self.g_debug := false;
+end;
+
+{*------------------------------------------------------------------------------
+  Coloca o sistema em modo de debug
+
+  @return String contendo o caminho físico
+-------------------------------------------------------------------------------}
+function TCACIC_Debug.inDebugMode() : boolean;
+begin
+   Result := Self.g_debug;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é Windows Vista ou superior
+
+  @return TRUE se Windows Vista ou superior, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista, isWindowsGEVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsGEVista() : boolean;
+begin
+   Result := false;
+   if((g_osVerInfo.dwMajorVersion >= 6) and (g_osVerInfo.dwMinorVersion >= 0)) then
+      Result := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é Windows Vista
+
+  @return TRUE se Windows Vista, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsVista() : boolean;
+begin
+   Result := false;
+   if((g_osVerInfo.dwMajorVersion = 6) and (g_osVerInfo.dwMinorVersion = 0)) then
+      Result := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é Windows XP ou superior
+
+  @return TRUE se Windows XP ou superior, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsGEXP() : boolean;
+begin
+   Result := false;
+   if((g_osVerInfo.dwMajorVersion >= 5) and (g_osVerInfo.dwMinorVersion >= 1)) then
+      Result := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é Windows XP
+
+  @return TRUE se Windows XP, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsXP() : boolean;
+begin
+   Result := false;
+   if((g_osVerInfo.dwMajorVersion = 5) and (g_osVerInfo.dwMinorVersion = 1)) then
+      Result := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é Windows 2000
+
+  @return TRUE se Windows 2000, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindows2000() : boolean;
+begin
+   Result := false;
+   if((g_osVerInfo.dwMajorVersion = 5) and (g_osVerInfo.dwMinorVersion = 0)) then
+      Result := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é Windows NT
+
+  @return TRUE se Windows NT, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsNT() : boolean;
+begin
+   Result := false;
+   if((g_osVerInfo.dwMajorVersion = 4) and (g_osVerInfo.dwMinorVersion = 0)) then
+      Result := true;
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se a plataforma do sistema é de windows 9x ou ME
+
+  @return TRUE se plataforma de Windows 9x/ME, FALSE caso contrário
+  @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
+  @see isWindowsXP, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindows9xME() : boolean;
+begin
+  Result := (Self.g_osVerInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);
+end;
+
+{*------------------------------------------------------------------------------
+  Obter identificação extensa do sistema operacional
+
+  @return String de identificação do sistema operacional
+  @example 1.4.10.A
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.getWindowsStrId() : string;
+begin
+  Result := IntToStr(Self.g_osVerInfo.dwPlatformId) + '.' +
+            IntToStr(Self.g_osVerInfo.dwMajorVersion) + '.' +
+            IntToStr(Self.g_osVerInfo.dwMinorVersion) +
+            ifThen(trim(Self.g_osVerInfo.szCSDVersion)='',
+                     '',
+                     '.'+Self.g_osVerInfo.szCSDVersion);
+
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se a plataforma do sistema é de Windows NT
+
+  @return TRUE se plataforma de Windows NT, FALSE caso contrário
+  @see isWindows9xME, isWindowsVista
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsNTPlataform() : boolean;
+begin
+  Result := (Self.g_osVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT);
+end;
+
+{*------------------------------------------------------------------------------
+  Verifica se é administrador do sistema operacional se em plataforma NT
+
+  @return TRUE se administrador do sistema, FALSE caso contrário
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.isWindowsAdmin(): Boolean;
+
+const
+   constSECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5));
+   constSECURITY_BUILTIN_DOMAIN_RID = $00000020;
+   constDOMAIN_ALIAS_RID_ADMINS = $00000220;
+
+var
+   hAccessToken: THandle;
+   ptgGroups: PTokenGroups;
+   dwInfoBufferSize: DWORD;
+   psidAdministrators: PSID;
+   x: Integer;
+   bSuccess: BOOL;
+    
+begin
+  if (not Self.isWindowsNTPlataform()) then // Se nao NT (ex: Win95/98)
+       // Se nao eh NT nao tem ''admin''
+       Result   := True
+  else begin
+	  Result   := False;
+	  bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True, hAccessToken);
+	  if not bSuccess then begin
+  		 if GetLastError = ERROR_NO_TOKEN then
+	        bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hAccessToken);
+	  end;
+	  if bSuccess then begin
+		GetMem(ptgGroups, 1024);
+		bSuccess := GetTokenInformation(hAccessToken, TokenGroups, ptgGroups, 1024, dwInfoBufferSize);
+		CloseHandle(hAccessToken);
+		if bSuccess then begin
+		  AllocateAndInitializeSid(constSECURITY_NT_AUTHORITY, 2,
+								   constSECURITY_BUILTIN_DOMAIN_RID,
+								   constDOMAIN_ALIAS_RID_ADMINS,
+								   0, 0, 0, 0, 0, 0, psidAdministrators);
+		  {$R-}
+		  for x := 0 to ptgGroups.GroupCount - 1 do
+          if EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid) then begin
+			       Result := True;
+			       Break;
+			    end;
+		  {$R+}
+		  FreeSid(psidAdministrators);
+		end;
+		FreeMemory(ptgGroups);
+	  end;
+  end;
+end;
+
+{*------------------------------------------------------------------------------
+  Executa commandos, substitui o WinExec
+
+  @autor: Marcos Dell Antonio
+  @param p_cmd Comando a ser executado
+  @param p_wait TRUE se deve aguardar término da excução, FALSE caso contrário
+-------------------------------------------------------------------------------}
+function TCACIC_Windows.createSampleProcess(p_cmd: string; p_wait: boolean ): boolean;
+var
+  SUInfo: TStartupInfo;
+  ProcInfo: TProcessInformation;
+begin
+  FillChar(SUInfo, SizeOf(SUInfo), #0);
+  SUInfo.cb      := SizeOf(SUInfo);
+  SUInfo.dwFlags := STARTF_USESHOWWINDOW;
+  SUInfo.wShowWindow := SW_HIDE;
+
+  Result := CreateProcess(nil,
+                          PChar(p_cmd),
+                          nil,
+                          nil,
+                          false,
+                          CREATE_NEW_CONSOLE or
+                          NORMAL_PRIORITY_CLASS,
+                          nil,
+                          nil,
+                          SUInfo,
+                          ProcInfo);
+
+  if (Result) then
+  begin
+    if(p_wait) then begin
+       WaitForSingleObject(ProcInfo.hProcess, INFINITE);
+       CloseHandle(ProcInfo.hProcess);
+       CloseHandle(ProcInfo.hThread);
+    end;
+  end;
+end;
+
+{*------------------------------------------------------------------------------
+  Mostra ou oculta o cacic na "systray" do windows
+
+  @autor: Diversos - compilado de vários exemplos obtidos na internet
+  @param p_visible TRUE se deve mostrar na systray, FALSE caso contrário
+-------------------------------------------------------------------------------}
+procedure TCACIC_Windows.showTrayIcon(p_visible:boolean);
+ Var
+   v_tray, v_child : hWnd;
+   v_char : Array[0..127] of Char;
+   v_string : String;
+
+ Begin
+   v_tray := FindWindow('Shell_TrayWnd', NIL);
+   v_child := GetWindow(v_tray, GW_CHILD);
+   While v_child <> 0
+      do Begin
+         If GetClassName(v_child, v_char, SizeOf(v_char)) > 0
+            Then Begin
+                v_string := StrPAS(v_char);
+                If UpperCase(v_string) = 'TRAYNOTIFYWND'
+                   then begin
+                       If p_visible
+                          then ShowWindow(v_child, 1)
+                          else ShowWindow(v_child, 0);
+                   end;
+            End;
+         v_child := GetWindow(v_child, GW_HWNDNEXT);
+      End;
+ End;
+
+end.
@@ -0,0 +1,64 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = cacic2.exe chkcacic.exe chksis.exe col_anvi.exe col_comp.exe \
+  col_hard.exe col_moni.exe col_patr.exe col_soft.exe col_undi.exe ger_cols.exe \
+  ini_cols.exe mapacacic.exe vaca.exe vacon.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+cacic2.exe: cacic2.dpr
+  $(DCC)
+
+chkcacic.exe: chkcacic\chkcacic.dpr
+  $(DCC)
+
+chksis.exe: chksis\chksis.dpr
+  $(DCC)
+
+col_anvi.exe: col_anvi\col_anvi.dpr
+  $(DCC)
+
+col_comp.exe: col_comp\col_comp.dpr
+  $(DCC)
+
+col_hard.exe: col_hard\col_hard.dpr
+  $(DCC)
+
+col_moni.exe: col_moni\col_moni.dpr
+  $(DCC)
+
+col_patr.exe: col_patr\col_patr.dpr
+  $(DCC)
+
+col_soft.exe: col_soft\col_soft.dpr
+  $(DCC)
+
+col_undi.exe: col_undi\col_undi.dpr
+  $(DCC)
+
+ger_cols.exe: ger_cols\ger_cols.dpr
+  $(DCC)
+
+ini_cols.exe: ini_cols\ini_cols.dpr
+  $(DCC)
+
+mapacacic.exe: mapa\mapacacic.dpr
+  $(DCC)
+
+vaca.exe: vaca\vaca.dpr
+  $(DCC)
+
+vacon.exe: vacon\vacon.dpr
+  $(DCC)
+
+
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,7 +94,7 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k
 Conditionals=
 DebugSourceDirs=
@@ -113,11 +113,11 @@ RootDir=Y:\arariboia_mod\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
-PreRelease=0
+PreRelease=1
 Special=0
 Private=0
 DLL=0
@@ -126,18 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev - Unidade Regional Espírito Santo
 FileDescription=Configurador Automático e Coletor de Informações Computacionais
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Cacic - Agente Principal
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+Item0=..\Repositorio
+Item1=Repositorio
@@ -25,42 +25,42 @@ uses
   frmSenha in 'frmsenha.pas' {formSenha},
   frmConfiguracoes in 'frmConfiguracoes.pas' {FormConfiguracoes},
   frmLog in 'frmLog.pas' {FormLog},
-  LibXmlParser in 'LibXmlParser.pas';
+  LibXmlParser,
+  CACIC_Library in 'CACIC_Library.pas';
 {$R *.res}
-VAR								// Add Vars
-	MutexHandle: THandle;
-	hwind:HWND;
+const
+  CACIC_APP_NAME = 'cacic2';
-begin
+var
+  hwind:HWND;
+  oCacic : TCACIC;
-   // Esse código evita que mais de uma cópia do cacic seja instanciada.
-   MutexHandle := CreateMutex(nil, TRUE, 'cacic2'); // should be a unique string
-   IF MutexHandle <> 0 then
-   begin
-      IF GetLastError = ERROR_ALREADY_EXISTS then
-      begin
-        CloseHandle(MutexHandle);
+begin
+   oCacic := TCACIC.Create();
+   
+   if( oCacic.isAppRunning( CACIC_APP_NAME ) )
+     then begin
         hwind := 0;
         repeat			// The string 'My app' must match your App Title (below)
-           hwind:=Windows.FindWindowEx(0,hwind,'TApplication','cacic2');
+           hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );
         until (hwind<>Application.Handle);
         IF (hwind<>0) then
         begin
            Windows.ShowWindow(hwind,SW_SHOWNORMAL);
            Windows.SetForegroundWindow(hwind);
         end;
-
         FreeMemory(0);
         Halt(0);
-      end
-   end;
+     end;
+
+   oCacic.Free();
    // Preventing application button showing in the task bar
    SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW );
    Application.Initialize;
    Application.Title := 'cacic2';
    Application.CreateForm(TFormularioGeral, FormularioGeral);
-  Application.Run;
+   Application.Run;
 end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--O"C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--I"C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--R"C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,7 +94,7 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k
 Conditionals=
 DebugSourceDirs=
@@ -113,9 +113,9 @@ RootDir=C:\ARQUIVOS DE PROGRAMAS\BORLAND\DELPHI7\BIN\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev - Unidade Regional Espírito Santo (URES)
 FileDescription=Módulo Verificador/Instalador dos Agentes Principais para o Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=ChkCACIC
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=8
-Item0=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
-Item1=C:\Arquivos de programas\Borland\Delphi7\D7;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers
-Item2=C:\Arquivos de programas\Borland\Delphi7\D7;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item3=C:\Arquivos de programas\Borland\Delphi7\D7;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP
-Item4=C:\Arquivos de programas\Borland\Delphi7\D7;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common
-Item5=C:\Arquivos de programas\Borland\Delphi7\D7;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item6=C:\Arquivos de programas\Borland\Delphi7\D7
-Item7=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -16,14 +16,29 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *)
 program chkcacic;
 uses
-  Forms,
+  Forms, windows,
   main in 'main.pas',
-  FormConfig in 'FormConfig.pas' {Configs};
+  FormConfig in 'FormConfig.pas' {Configs},
+  CACIC_Library in '..\CACIC_Library.pas';
 {$R *.res}
+const
+  CACIC_APP_NAME = 'chkcacic';
+
+var
+  oCacic : TCACIC;
+
 begin
-  Application.Initialize;
-  Application.CreateForm(TForm1, Form1);
-  Application.Run;
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) )
+     then begin
+        Application.Initialize;
+        Application.CreateForm(TForm1, Form1);
+        Application.Run;
+     end;
+
+   oCacic.Free();
+
 end.
@@ -82,7 +82,8 @@ uses  Windows,
       IdFTP,
       Tlhelp32,
       dialogs,
-      ExtCtrls;
+      ExtCtrls,
+      CACIC_Library;
 var   v_ip_serv_cacic,
       v_cacic_dir,
@@ -109,6 +110,9 @@ var   v_ip_serv_cacic,
 var   v_tstrCipherOpened        : TStrings;
+var
+  g_oCacic: TCACIC;  /// Biblioteca CACIC_Library
+
 // Constantes a serem usadas pela função IsAdmin...
 const constSECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5));
       constSECURITY_BUILTIN_DOMAIN_RID = $00000020;
@@ -309,12 +313,11 @@ var IdHTTP2: TIdHTTP;
     Request_Config  : TStringList;
     Response_Config : TStringStream;
 begin
-  GetWinVer(); // Para obtenção de "te_so"
   // Envio notificação de insucesso para o Módulo Gerente Centralizado
   Request_Config                                 := TStringList.Create;
   Request_Config.Values['cs_indicador']          := strIndicador;
   Request_Config.Values['id_usuario']            := GetNetworkUserName();
-  Request_Config.Values['te_so']                 := v_te_so;
+  Request_Config.Values['te_so']                 := g_oCacic.getWindowsStrId();
   Response_Config                                := TStringStream.Create('');
   Try
     Try
@@ -595,7 +598,8 @@ var RegEditSet: TRegistry;
 begin
     ListaAuxSet := Explode(Chave, '\');
     strRootKey := ListaAuxSet[0];
-    For I := 1 To ListaAuxSet.Count - 2 Do strKey := strKey + ListaAuxSet[I] + '\';
+    For I := 1 To ListaAuxSet.Count - 2 do
+      strKey := strKey + ListaAuxSet[I] + '\';
     strValue := ListaAuxSet[ListaAuxSet.Count - 1];
     RegEditSet := TRegistry.Create;
@@ -1016,7 +1020,7 @@ procedure LiberaFireWall(p_objeto:string);
 begin
   LogDebug('Rotina para Liberação de FireWall...');
   Try
-    if (abstraiCSD(v_te_so) >= 260) then // Se VISTA...
+    if (g_oCacic.isWindowsGEVista()) then // Se >= WinVISTA...
       Begin
         if (trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\'+StringReplace(p_objeto+'.exe','\','?\',[rfReplaceAll])))='') then
           Begin
@@ -1121,8 +1125,7 @@ begin
         Begin
           LogDebug('Exclusão não efetuada! Provavelmente já esteja sendo executado...');
           LogDebug('Tentarei finalizar Tarefa/Processo...');
-          if ((intWinVer <> 0) and (intWinVer <= 5))  or
-             (abstraiCSD(v_te_so) < 250) then // Menor que NT Like
+          if (not g_oCacic.isWindowsNTPlataform()) then // Menor que NT Like
             KillTask(SearchRec.Name)
           else
             KillProcess(FindWindow(PChar(SearchRec.Name),nil));
@@ -1137,10 +1140,8 @@ end;
 function Posso_Rodar_CACIC : boolean;
 Begin
-  result := false;
-
   // Se o aguarde_CACIC.txt existir é porque refere-se a uma versão mais atual: 2.2.0.20 ou maior
-  if  (FileExists(v_cacic_dir + 'aguarde_CACIC.txt')) then
+  if  (FileExists(g_oCacic.getCacicPath() + '\aguarde_CACIC.txt')) then
     Begin
       // Se eu conseguir matar o arquivo abaixo é porque não há outra sessão deste agente aberta... (POG? Nããão!  :) )
       Matar(v_cacic_dir,'aguarde_CACIC.txt');
@@ -1312,8 +1313,6 @@ begin
   //v_cacic_dir                     := 'Cacic';
   //v_exibe_informacoes             := 'N'; // Manter o "N", pois, esse mesmo ChkCacic será colocado em NetLogons!
-
-
   if not bool_CommandLine then
     Begin
       If not (FileExists(ExtractFilePath(Application.Exename) + '\chkcacic.ini')) then
@@ -1328,6 +1327,9 @@ begin
       v_te_instala_informacoes_extras := StringReplace(GetValorChaveRegIni('Cacic2', 'te_instala_informacoes_extras', ExtractFilePath(Application.Exename) + '\chkcacic.ini'),'*13*10',#13#10,[rfReplaceAll]);
     End;
+  g_oCacic := TCACIC.Create();
+  g_oCacic.setCacicPath(v_home_drive + v_cacic_dir);
+
   Dir                             := v_home_drive + v_cacic_dir; // Ex.: c:\cacic\
   if DirectoryExists(Dir + '\Temp\Debugs') then
@@ -1341,17 +1343,13 @@ begin
   intWinVer := GetWinVer;
-  // Verifico se o S.O. é NT Like e se o Usuário está com privilégio administrativo...
-  if (((intWinVer <> 0) and (intWinVer >= 6)) or
-      (abstraiCSD(v_te_so) >= 250)) and
-     not IsAdmin then // Se NT/2000/XP/...
-    Begin
+  // Verifica se o S.O. é NT Like e se o Usuário está com privilégio administrativo...
+  if (g_oCacic.isWindowsNTPlataform()) and (not g_oCacic.isWindowsAdmin()) then begin // Se NT/2000/XP/...
       if (v_exibe_informacoes = 'S') then
         MessageDLG(#13#10+'ATENÇÃO! Essa aplicação requer execução com nível administrativo.',mtError,[mbOK],0);
       ComunicaInsucesso('0'); // O indicador "0" (zero) sinalizará falta de privilégio na estação
-    End
-  else
-    Begin
+  end
+  else begin
       LogDebug(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
       LogDebug(':::::::::::::: OBTENDO VALORES DO "chkcacic.ini" ::::::::::::::');
       LogDebug(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
@@ -1368,12 +1366,11 @@ begin
       v_DatFileName  := Dir + '\cacic2.dat';
       v_tstrCipherOpened := CipherOpen(v_DatFileName);
-      if ((intWinVer <> 0) and (intWinVer >= 8)) or
-         (abstraiCSD(v_te_so) >= 250) then // Se >= Maior ou Igual ao WinXP...
+      if (g_oCacic.isWindowsGEXP()) then // Se >= Maior ou Igual ao WinXP...
         Begin
           Try
             // Libero as policies do FireWall Interno
-            if (abstraiCSD(v_te_so) >= 260) then // Maior ou Igual ao VISTA...
+            if (g_oCacic.isWindowsGEVista()) then // Maior ou Igual ao VISTA...
               Begin
                 Try
                   Begin
@@ -1426,7 +1423,13 @@ begin
               MostraFormConfigura;
           End;
-      if (ParamCount > 0) and (LowerCase(Copy(ParamStr(1),1,7)) = '/config') then application.Terminate;
+      if (ParamCount > 0) and (LowerCase(Copy(ParamStr(1),1,7)) = '/config') then begin
+         try
+             g_oCacic.Free();
+         except
+         end;
+         Application.Terminate;
+      end;
       // Verifico a existência do diretório configurado para o Cacic, normalmente CACIC
       if not DirectoryExists(Dir) then
@@ -1519,8 +1522,7 @@ begin
       // Se NTFS em NT/2K/XP...
       // If NTFS on NT Like...
-      if ((intWinVer <> 0) and (intWinVer > 5)) or
-          (abstraiCSD(v_te_so) >= 250) then
+      if (g_oCacic.isWindowsNTPlataform()) then
         Begin
           LogDebug(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
           LogDebug('::::::: VERIFICANDO FILE SYSTEM E ATRIBUINDO PERMISSÕES :::::::');
@@ -1716,8 +1718,7 @@ begin
                    v_te_path_serv_updates,
                    v_exibe_informacoes);
-      if ((intWinVer <> 0) and (intWinVer >= 8)) or
-         (abstraiCSD(v_te_so) >= 250) then // Se >= WinXP...
+      if (g_oCacic.isWindowsGEXP()) then // Se >= WinXP...
         Begin
           Try
             // Acrescento o ChkSis e o Ger_Cols às exceções do FireWall nativo...
@@ -1806,6 +1807,10 @@ begin
   Except
     LogDiario('Falha na Instalação/Atualização');
   End;
+  try
+    g_oCacic.Free();
+  except
+  end;
   Application.Terminate;
 end;
@@ -1900,10 +1905,7 @@ begin
   Application.ShowMainForm:=false;
   v_Debugs := false;
-//  if (FindWindowByTitle('chksis') = 0) then
-      chkcacic;
-//  else
-//      LogDiario('Não executei devido execução em paralelo de "chksis"');
+  chkcacic;
   Application.Terminate;
 end;
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev - Unidade Regional Espírito Santo (URES)
 FileDescription=Módulo Verificador de Integridade do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=ChkSIS
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=5
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item3=C:\Arquivos de programas\Borland\Delphi7\D7;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\D7
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -18,28 +18,30 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 program chksis;
 {$R *.res}
-uses  Windows,
-      forms,
-      SysUtils,
-      Classes,
-      Registry,
-      Inifiles,
-      XML,
-      LibXmlParser,
-      strUtils,
-      IdHTTP,
-      IdFTP,
-      idFTPCommon,
-      IdBaseComponent,
-      IdComponent,
-      IdTCPConnection,
-      IdTCPClient,
-      PJVersionInfo,
-      Winsock,
-      DCPcrypt2,
-      DCPrijndael,
-      DCPbase64,
-      Tlhelp32;
+uses
+  Windows,
+  forms,
+  SysUtils,
+  Classes,
+  Registry,
+  Inifiles,
+  XML,
+  LibXmlParser,
+  strUtils,
+  IdHTTP,
+  IdFTP,
+  idFTPCommon,
+  IdBaseComponent,
+  IdComponent,
+  IdTCPConnection,
+  IdTCPClient,
+  PJVersionInfo,
+  Winsock,
+  DCPcrypt2,
+  DCPrijndael,
+  DCPbase64,
+  Tlhelp32,
+  CACIC_Library in '..\CACIC_Library.pas';
 var PJVersionInfo1: TPJVersionInfo;
     Dir,
@@ -1102,14 +1104,25 @@ begin
       Application.Terminate;
 end;
-begin
-//  Application.ShowMainForm:=false;
-  if (FindWindowByTitle('chkcacic') = 0) and (FindWindowByTitle('cacic2') = 0) then
-      if (FileExists(ExtractFilePath(ParamStr(0)) + 'chksis.ini')) then executa_chksis
-  else log_diario('Não executei devido execução em paralelo de "chkcacic" ou "cacic2"!');
+const
+  CACIC_APP_NAME = 'chksis';
-  Halt;
-  //Application.Terminate;
+var
+  oCacic : TCACIC;
+
+begin
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) )
+     then begin
+       if (FindWindowByTitle('chkcacic') = 0) and (FindWindowByTitle('cacic2') = 0)
+         then
+           if (FileExists(ExtractFilePath(ParamStr(0)) + 'chksis.ini'))
+              then executa_chksis
+              else log_diario('Não executei devido execução em paralelo de "chkcacic" ou "cacic2"!');
+     end;
+
+   oCacic.Free();
 end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Coletor de Informações de AntiVírus do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_ANVI
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=5
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item3=C:\Arquivos de programas\Borland\Delphi7\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\mitec
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -18,16 +18,18 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 program col_anvi;
 {$R *.res}
-uses  Windows,
-      classes,
-      sysutils,
-      Registry,
-      TLHELP32,
-      ShellAPI,
-      PJVersionInfo,
-      DCPcrypt2,
-      DCPrijndael,
-      DCPbase64;
+uses
+  Windows,
+  classes,
+  sysutils,
+  Registry,
+  TLHELP32,
+  ShellAPI,
+  PJVersionInfo,
+  DCPcrypt2,
+  DCPrijndael,
+  DCPbase64,
+  CACIC_Library in '..\CACIC_Library.pas';
 var  p_path_cacic,
      v_CipherKey,
@@ -588,8 +590,17 @@ end;
 var tstrTripa1 : TStrings;
     intAux     : integer;
+const
+  CACIC_APP_NAME = 'col_anvi';
+
+var
+  oCacic : TCACIC;
+
 begin
-  if (ParamCount>0) then
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
+    if (ParamCount>0) then
     Begin
       For intAux := 1 to ParamCount do
         Begin
@@ -637,4 +648,5 @@ begin
              Halt(0);
           End;
     End;
+    oCacic.Free();
 end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Coletor de Informações de Compartilhamento do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_COMP
-ProductVersion=2.2.0.2
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=5
+Count=10
 Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
-Item1=C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item3=C:\Arquivos de programas\Borland\Delphi7\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\mitec
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -18,13 +18,15 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 program col_comp;
 {$R *.res}
-uses  Windows,
-      SysUtils,
-      Classes,
-      Registry,
-      DCPcrypt2,
-      DCPrijndael,
-      DCPbase64;
+uses
+  Windows,
+  SysUtils,
+  Classes,
+  Registry,
+  DCPcrypt2,
+  DCPrijndael,
+  DCPbase64,
+  CACIC_Library in '..\CACIC_Library.pas';
 var  p_path_cacic : string;
      v_CipherKey,
@@ -566,8 +568,17 @@ end;
 var tstrTripa1 : TStrings;
     intAux     : integer;
+const
+  CACIC_APP_NAME = 'col_comp';
+
+var
+  hwind:HWND;
+  oCacic : TCACIC;
+
 begin
-  if (ParamCount>0) then
+  oCacic := TCACIC.Create();
+  if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
+    if (ParamCount>0) then
     Begin
       For intAux := 1 to ParamCount do
         Begin
@@ -586,7 +597,7 @@ begin
                end;
              // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.
-             v_IV                := 'abcdefghijklmnop';             
+             v_IV                := 'abcdefghijklmnop';
              v_DatFileName       := p_path_cacic + 'cacic2.dat';
              v_tstrCipherOpened  := TStrings.Create;
              v_tstrCipherOpened  := CipherOpen(v_DatFileName);
@@ -603,4 +614,5 @@ begin
              Halt(0);
           End;
     End;
+   oCacic.Free();
 end.
@@ -113,9 +113,9 @@ RootDir=
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,11 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Coletor de Informações de Hardware do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_Hard
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -24,6 +24,7 @@ program col_hard;
 uses
   Windows,
+  Registry,
   SysUtils,
   Classes,
   IniFiles,
@@ -37,7 +38,8 @@ uses
   DCPcrypt2,
   DCPrijndael,
   DCPbase64,
-  PJVersionInfo;
+  PJVersionInfo,
+  CACIC_Library in '..\CACIC_Library.pas';
 var  p_path_cacic, v_mensagem : string;
      v_debugs : boolean;
@@ -720,7 +722,7 @@ var v_te_cpu_fabricante,
     v_DHCP_IPAddress,
     v_PrimaryWINS_IPAddress,
     v_SecondaryWINS_IPAddress                        : String;
-    i                             : Integer;
+    i, j, count                   : Integer;
     v_qt_mem_ram                  : WORD;
     v_CPU                         : TMiTeC_CPU;
     v_DISPLAY                     : TMiTeC_Display;
@@ -733,43 +735,71 @@ var v_te_cpu_fabricante,
     v_tstrCPU,
     v_tstrCDROM,
     v_tstrTCPIP                   : TStringList;
+
+    v_cpu_freq                    : TStrings;
+    v_registry                    : TRegistry;
+
+    oCacic : TCACIC;
+
 begin
+  oCacic := TCACIC.Create();
   Try
      SetValorDatMemoria('Col_Hard.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
      v_Report := TStringList.Create;
      log_diario('Coletando informações de Hardware.');
+     v_cpu_freq  := TStringList.Create;
      v_tstrCPU   := TStringList.Create;
      v_tstrCDROM := TStringList.Create;
      v_tstrTCPIP := TStringList.Create;
      Try
         Begin
+            Log_Debug('Instanciando SMBIOS para obter frequencia de CPU...');
+            v_SMBIOS := TMiTeC_SMBIOS.Create(nil);
+            v_SMBIOS.RefreshData;
+            v_te_cpu_frequencia := 'ND';
+            if(v_SMBIOS.Processor[0].Frequency > 0) then
+              v_te_cpu_frequencia := inttostr(v_SMBIOS.Processor[0].Frequency) + 'Mhz'   // Frequancia de CPU via BIOS
+            else begin
+               v_registry := TRegistry.Create;
+               try
+                 v_registry.RootKey := HKEY_LOCAL_MACHINE;
+                 try
+                   if(v_registry.Openkey('HARDWARE\DESCRIPTION\System\CentralProcessor\0\', False)) then begin
+                     v_te_cpu_frequencia := inttostr(v_registry.ReadInteger('~MHz'))+'Mhz'; // Frequencia de CPU via Regitry
+                     v_registry.CloseKey;
+                   end;
+                 except
+                   log_diario('CPU - informação de frequência ['+v_te_cpu_frequencia+'] não disponível (by SMBIOS/Registry): ');
+                 end;
+               finally
+                 v_registry.Free;
+               end;
+            end;
+            v_SMBIOS.Free;
+
+            Log_Debug('CPU - frequência estática (by SMBIOS/Registry): '+v_te_cpu_frequencia);
+
             Log_Debug('Instanciando v_CPU...');
             v_CPU := TMiTeC_CPU.Create(nil);
-            Log_Debug('RefreshingData...');
+            Log_Debug('Atualização de dados de CPU...');
             v_CPU.RefreshData;
-            Log_Debug('Gerando MSI_XML_Reports...');
-            MSI_XML_Reports.CPU_XML_Report(v_CPU,TRUE,v_Report);
-            Log_Debug('Liberando v_CPU...');
-            //v_CPU.Report(v_Report);
-            v_CPU.Free;
+            Log_Debug('Dados de CPU atualizados - OK!');
-            Log_Debug('CPU Informations - OK!');
-            // CPU Informations
+            // Obtem dados de CPU
             Try
-              i := 1;
-              while (i <= 128) DO// Vamos procurar até 128 processadores! Eu já ouví dizer de máquinas neste porte!!  (AP - 15FEV2008)
-                Begin
-                  strAux               := 'Processor #' + trim(intToStr(i));
-                  v_te_cpu_serial      := parse('TCPU',strAux,'Serial Number',v_Report);
-                  v_te_cpu_desc        := AnsiToAscii(parse('TCPU',strAux,'CPUName',v_Report));
-                  IF (v_te_cpu_desc = '') then
-                    v_te_cpu_desc      := AnsiToAscii(parse('TCPU',strAux,'MarketingName',v_Report));
-                  v_te_cpu_frequencia  := AnsiToAscii(parse('TCPU',strAux,'Frequency',v_Report));
-                  v_te_cpu_fabricante  := AnsiToAscii(parse('TCPU',strAux,'Vendor',v_Report));
-
-                  // Se pegou ao menos a descrição, adiciono à tripa...
+               for i:=0 to v_CPU.CPUCount-1 do begin
+                  v_te_cpu_serial := v_CPU.SerialNumber;
+                  v_te_cpu_desc   := v_CPU.CPUName;
+                  if(v_te_cpu_desc = '') then
+                     v_te_cpu_desc := v_CPU.MarketingName;
+
+                  v_te_cpu_fabricante  := cVendorNames[v_CPU.Vendor].Prefix;
+
+                  Log_Debug('CPU - frequência dinâmica (by CPU): '+inttostr(v_CPU.Frequency) + 'Mhz');
+
+                  // Se pegou ao menos a descrição, adiciona-se à tripa...
                   if (v_te_cpu_desc <> '') then
                     Begin
                       v_tstrCPU.Add('te_cpu_desc###'       + v_te_cpu_desc        + '#FIELD#' +
@@ -777,34 +807,27 @@ begin
                                     'te_cpu_serial###'     + v_te_cpu_serial      + '#FIELD#' +
                                     'te_cpu_frequencia###' + v_te_cpu_frequencia);
                       Log_Debug('Adicionando a tstrCPU: "'+v_tstrCPU[v_tstrCPU.count-1]);
-                      Log_DEBUG('Tamanho de v_tstrCPU 0: '+intToStr(v_tstrCPU.Count));                      
+                      Log_DEBUG('Tamanho de v_tstrCPU 0: '+intToStr(v_tstrCPU.Count));
                     End;
-                  i := i+1;
-                End;
+               end;
             Except
-              log_diario('Problema em CPU Details!');
+              log_diario('Problemas ao coletar dados de CPU!');
             end;
+            v_CPU.Free;
+            Log_DEBUG('Tamanho de v_tstrCPU 1: '+intToStr(v_tstrCPU.Count));
-     Log_DEBUG('Tamanho de v_tstrCPU 1: '+intToStr(v_tstrCPU.Count));
             // Media informations
             Try
               v_MEDIA := TMiTeC_Media.Create(nil);
               v_MEDIA.RefreshData;
-              //v_MEDIA.Report(v_Report);
-              MSI_XML_Reports.Media_XML_Report(v_MEDIA,TRUE,v_Report);
-              v_MEDIA.Free;
-
-              v_DataName := parse('TMedia','','SoundCardDeviceIndex',v_Report);
-              if (v_DataName <> '-1') then
-                Begin
-                  if (v_DataName <>'0') then v_DataName := IntToStr(StrToInt(v_DataName)+1);
-                  v_DataName := 'Device['+v_DataName+']';
-                  v_te_placa_som_desc := trim(AnsiToAscii(parse('TMedia','Devices',v_DataName,v_Report)));
-                End;
-            except log_diario('Problema em MEDIA Details!');
+              if v_Media.SoundCardIndex>-1 then begin
+                 //n:=Tree.Items.AddChild(r,Media.Devices[Media.SoundCardIndex]);
+                 v_te_placa_som_desc := v_Media.Devices[v_Media.SoundCardIndex];
+              end;
+            except log_diario('Problemas ao coletar dados de Aúdio');
             end;
-            Log_Debug('MEDIA Informations - OK!');
+            Log_Debug('Dados de aúdio coletados - OK!');
             // Devices informations
             Try
@@ -812,7 +835,6 @@ begin
               v_DEVICES := TMiTeC_Devices.Create(nil);
               Log_Debug('RefreshingData...');
               v_DEVICES.RefreshData;
-              //if v_Debugs then v_DEVICES.Report(v_Report);
               if v_Debugs then MSI_XML_Reports.Devices_XML_Report(v_DEVICES,TRUE,v_Report);
               Log_Debug('v_DEVICES.DeviceCount = '+intToStr(v_DEVICES.DeviceCount));
               i := 0;
@@ -901,59 +923,37 @@ begin
             except log_diario('Problema em MEMORY Details!');
             end;
-//
             Try
               Begin
                 v_SMBIOS := TMiTeC_SMBIOS.Create(nil);
                 v_SMBIOS.RefreshData;
-                //v_SMBIOS.Report(v_Report);
-                MSI_XML_Reports.SMBIOS_XML_Report(v_SMBIOS,true,v_Report);
-
-                v_SMBIOS.Free;
-
-
-                if Parse('TSMBIOS','MemoryModule', 'Count', v_Report) <> '0' then
+                if v_SMBIOS.MemoryModuleCount > -1 then
                   Begin
-                    i :=0;
-                    while i < StrToInt(Parse('TSMBIOS','MemoryModule', 'Count', v_Report)) do
-                      Begin
-                      v_SectionName := 'MemoryModule/Module_'+IntToStr(i);
-                      v_te_mem_ram_tipo:=Parse('TSMBIOS',v_SectionName, 'Type', v_Report);
-                        if Parse('TSMBIOS',v_SectionName, 'Size', v_Report)<>'0' then
-                          begin
-                            if (v_te_mem_ram_desc <> '') then v_te_mem_ram_desc := v_te_mem_ram_desc + ' - ';
-                            v_te_mem_ram_desc := v_te_mem_ram_desc + 'Slot ' + IntToStr(i) + ': ' + Parse('TSMBIOS',v_SectionName, 'Size', v_Report) + '(' + v_te_mem_ram_tipo +')';
-                          end;
-                        i := i+1;
-                      End;
-                  end
-                else
-                  Begin
-                    i := 0;
-                    while i < StrToInt(Parse('TSMBIOS','MemoryDevice', 'Count', v_Report)) do
-                      Begin
-                        v_SectionName := 'MemoryModule/Device_'+IntToStr(i);
-                        v_te_mem_ram_tipo := Parse('TSMBIOS',v_SectionName, 'Type', v_Report);
-
-                        if Parse('TSMBIOS',v_SectionName, 'Size', v_Report)<>'0' then
-                          begin
-                            if (v_te_mem_ram_desc <> '') then v_te_mem_ram_desc := v_te_mem_ram_desc + ' - ';
-                            v_te_mem_ram_desc := v_te_mem_ram_desc + 'Slot ' + IntToStr(i) + ': ' + Parse('TSMBIOS',v_SectionName, 'Size', v_Report) + '(' + v_te_mem_ram_tipo + ')';
-                          end;
-                        i := i+1;
+                    for i:=0 to v_SMBIOS.MemoryModuleCount-1 do begin
+                      if (v_SMBIOS.MemoryModule[i].Size <> 0) then begin
+                         v_te_mem_ram_tipo := v_SMBIOS.GetMemoryTypeStr(v_SMBIOS.MemoryModule[i].Types);
+                         if (v_te_mem_ram_desc <> '') then
+                            v_te_mem_ram_desc := v_te_mem_ram_desc + ' - ';
+                         v_te_mem_ram_desc := v_te_mem_ram_desc + 'Slot '+ inttostr(i) + ': '
+                                                                + v_SMBIOS.MemoryDevice[i].Manufacturer + ' '
+                                                                //+ v_SMBIOS.MemoryDevice[i].Device + ' '
+                                                                + inttostr(v_SMBIOS.MemoryModule[i].Size) + 'Mb '
+                                                                + '(' + v_te_mem_ram_tipo +')';
                       end;
-                  End;
+                    end;
+                  end;
                 if (trim(v_te_placa_mae_fabricante)='') then
-                v_te_placa_mae_fabricante := AnsiToAscii(Trim(Parse('TSMBIOS','Mainboard', 'Manufacturer', v_Report)));
+                    v_te_placa_mae_fabricante := v_SMBIOS.MainBoardManufacturer;
+
                 if (trim(v_te_placa_mae_desc)='')       then
-                v_te_placa_mae_desc       := AnsiToAscii(Trim(Parse('TSMBIOS','Mainboard', 'Model', v_Report)));
-                v_te_bios_data            := Trim(Parse('TSMBIOS','BIOS', 'Date', v_Report));
-                v_te_bios_fabricante      := Trim(Parse('TSMBIOS','BIOS', 'Vendor', v_Report));
-                v_te_bios_desc            := AnsiToAscii(Trim(Parse('TBIOS','', 'Copyright', v_Report)));
-                if (v_te_bios_desc = '') then
-                  v_te_bios_desc            := Trim(Parse('TSMBIOS','BIOS', 'Version', v_Report));
+                    v_te_placa_mae_desc       := v_SMBIOS.MainBoardModel;
+                v_te_bios_data            := v_SMBIOS.BIOSDate;
+                v_te_bios_fabricante      := v_SMBIOS.BIOSVendor;
+                v_te_bios_desc            := v_SMBIOS.BIOSVersion;
+
+                v_SMBIOS.Free;
                 Log_Debug('SMBIOS Informations - OK!');
               End;
             Except log_diario('Problema em SMBIOS Details!');
@@ -964,15 +964,13 @@ begin
               Begin
                 v_DISPLAY := TMiTeC_Display.Create(nil);
                 v_DISPLAY.RefreshData;
-                //v_DISPLAY.Report(v_Report);
-                MSI_XML_Reports.Display_XML_Report(v_DISPLAY,true,v_Report);
-                v_DISPLAY.Free;
-                if (trim(v_te_placa_video_desc)='') then v_te_placa_video_desc := parse('TDisplay','','Adapter',v_Report);
-                v_qt_placa_video_cores     := parse('TDisplay','','ColorDepth',v_Report);
-                v_qt_placa_video_mem       := IntToStr(StrToInt(parse('TDisplay','','MemorySize',v_Report)) div 1048576 );
-                v_te_placa_video_resolucao := parse('TDisplay','','HorizontalResolution',v_Report) + 'x' + parse('TDisplay','','VerticalResolution',v_Report);
+                if (trim(v_te_placa_video_desc)='') then v_te_placa_video_desc := v_DISPLAY.Adapter;
+                v_qt_placa_video_cores     := IntToStr(v_DISPLAY.ColorDepth);
+                v_qt_placa_video_mem       := IntToStr(v_DISPLAY.Memory div 1048576 ) + 'Mb';
+                v_te_placa_video_resolucao := IntToStr(v_DISPLAY.HorzRes) + 'x' + IntToStr(v_DISPLAY.VertRes);
+                v_DISPLAY.Free;
                 Log_Debug('VIDEO Informations - OK!');
               End;
             Except log_diario('Problema em VIDEO Details!');
@@ -983,27 +981,23 @@ begin
               Begin
                 v_TCP := TMiTeC_TCPIP.Create(nil);
                 v_TCP.RefreshData;
-                //v_TCP.Report(v_Report);
-                MSI_XML_Reports.TCPIP_XML_Report(v_TCP,true,v_Report);
-                v_TCP.Free;
+
                 v_mensagem := 'Ativando TCP Getinfo...';
                 i := 0;
                 v_Macs_Invalidos := trim(GetValorDatMemoria('TCPIP.TE_ENDERECOS_MAC_INVALIDOS',v_tstrCipherOpened));
-                // Em virtude de possibilidades de existência de VmWare likes,
-                // serão verificados até 50 adaptadores de redes! :) Não pesquisei essa possibilidade, por via das dúvidas... (AP - 15FEV2008)
-                While (i < 50)  do
-                  Begin
-                    v_SectionName             := 'Adapter_'+inttostr(i);
-                    v_te_placa_rede_desc      := AnsiToAscii(trim(parse('TTCPIP',v_SectionName,'Name',v_Report)));
-                    v_PhysicalAddress         := parse('TTCPIP',v_SectionName,'PhysicalAddress',v_Report);
-                    v_IPAddress               := parse('TTCPIP',v_SectionName,'IPAddress',v_Report);
-                    v_IPMask                  := parse('TTCPIP',v_SectionName,'IPMask',v_Report);
-                    v_Gateway_IPAddress       := parse('TTCPIP',v_SectionName,'Gateway_IPAddress',v_Report);
-                    v_DHCP_IPAddress          := parse('TTCPIP',v_SectionName,'DHCP_IPAddress',v_Report);
-                    v_PrimaryWINS_IPAddress   := parse('TTCPIP',v_SectionName,'PrimaryWINS_IPAddress',v_Report);
-                    v_SecondaryWINS_IPAddress := parse('TTCPIP',v_SectionName,'SecondaryWINS_IPAddress',v_Report);
+                // Avalia quantidade de placas de rede e obtem respectivos dados
+                if v_TCP.AdapterCount>0 then
+                  for i:=0 to v_TCP.AdapterCount-1 do begin
+                    v_te_placa_rede_desc      := v_TCP.Adapter[i].Name;
+                    v_PhysicalAddress         := v_TCP.Adapter[i].Address;
+                    v_IPAddress               := v_TCP.Adapter[i].IPAddress[0];
+                    v_IPMask                  := v_TCP.Adapter[i].IPAddressMask[0];
+                    v_Gateway_IPAddress       := v_TCP.Adapter[i].Gateway_IPAddress[0];
+                    v_DHCP_IPAddress          := v_TCP.Adapter[i].DHCP_IPAddress[0];
+                    v_PrimaryWINS_IPAddress   := v_TCP.Adapter[i].PrimaryWINS_IPAddress[0];
+                    v_SecondaryWINS_IPAddress := v_TCP.Adapter[i].SecondaryWINS_IPAddress[0];
                     if (trim( v_te_placa_rede_desc    +
                               v_PhysicalAddress       +
@@ -1024,10 +1018,8 @@ begin
                                         'te_wins_secundario###' + v_SecondaryWINS_IPAddress);
                         Log_Debug('Adicionando a tstrTCPIP: "'+v_tstrTCPIP[v_tstrTCPIP.count-1]+'"');
                       End
-                    else
-                      i := 50;
-                    i := i + 1;
                   End;
+                v_TCP.Free;
                 Log_Debug('TCPIP Informations - OK!');
               End;
             Except log_diario('Problema em TCP Details!');
@@ -1086,7 +1078,7 @@ begin
      Try
      // Monto a string que será comparada com o valor armazenado no registro.
       v_mensagem := 'Montando pacote para comparações...';
-     UVC := StringReplace(Trim( v_Tripa_TCPIP              + ';' +
+     UVC := oCacic.trimEspacosExcedentes(v_Tripa_TCPIP     + ';' +
                                 v_Tripa_CPU                + ';' +
                                 v_Tripa_CDROM              + ';' +
                                 v_te_mem_ram_desc          + ';' +
@@ -1103,7 +1095,7 @@ begin
                                 v_te_placa_som_desc        + ';' +
                                 v_te_teclado_desc          + ';' +
                                 v_te_modem_desc            + ';' +
-                                v_te_mouse_desc),'  ',' ',[rfReplaceAll]);
+                                v_te_mouse_desc);
      Except log_diario('Problema em comparação de envio!');
      End;
@@ -1116,29 +1108,30 @@ begin
      // na configuração de hardware. Nesse caso, gravo as informações no BD Central
      // e, se não houver problemas durante esse procedimento, atualizo as
      // informações no registro.
-     If (GetValorDatMemoria('Configs.IN_COLETA_FORCADA_HARD',v_tstrCipherOpened)='S') or (UVC <> ValorChaveRegistro) Then
+     If (GetValorDatMemoria('Configs.IN_COLETA_FORCADA_HARD',v_tstrCipherOpened)='S') or
+         (oCacic.trimEspacosExcedentes(UVC) <> oCacic.trimEspacosExcedentes(ValorChaveRegistro)) Then
       Begin
         Try
         //Envio via rede para ao Agente Gerente, para gravação no BD.
-        SetValorDatMemoria('Col_Hard.te_Tripa_TCPIP'          , StringReplace(v_Tripa_TCPIP             ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_Tripa_CPU'            , StringReplace(v_Tripa_CPU               ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_Tripa_CDROM'          , StringReplace(v_Tripa_CDROM             ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_placa_mae_fabricante' , StringReplace(v_te_placa_mae_fabricante ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_placa_mae_desc'       , StringReplace(v_te_placa_mae_desc       ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.qt_mem_ram'              , StringReplace(IntToStr(v_qt_mem_ram)    ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_mem_ram_desc'         , StringReplace(v_te_mem_ram_desc         ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_bios_desc'            , StringReplace(v_te_bios_desc            ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_bios_data'            , StringReplace(v_te_bios_data            ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_bios_fabricante'      , StringReplace(v_te_bios_fabricante      ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.qt_placa_video_cores'    , StringReplace(v_qt_placa_video_cores    ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_placa_video_desc'     , StringReplace(v_te_placa_video_desc     ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.qt_placa_video_mem'      , StringReplace(v_qt_placa_video_mem      ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_placa_video_resolucao', StringReplace(v_te_placa_video_resolucao,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_placa_som_desc'       , StringReplace(v_te_placa_som_desc       ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_teclado_desc'         , StringReplace(v_te_teclado_desc         ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_mouse_desc'           , StringReplace(v_te_mouse_desc           ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.te_modem_desc'           , StringReplace(v_te_modem_desc           ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
-        SetValorDatMemoria('Col_Hard.UVC'                     , StringReplace(UVC                       ,'  ',' ',[rfReplaceAll]) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_Tripa_TCPIP'          , oCacic.trimEspacosExcedentes( v_Tripa_TCPIP              ), v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_Tripa_CPU'            , oCacic.trimEspacosExcedentes( v_Tripa_CPU                ), v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_Tripa_CDROM'          , oCacic.trimEspacosExcedentes( v_Tripa_CDROM              ), v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_placa_mae_fabricante' , oCacic.trimEspacosExcedentes( v_te_placa_mae_fabricante  ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_placa_mae_desc'       , oCacic.trimEspacosExcedentes( v_te_placa_mae_desc        ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.qt_mem_ram'              , oCacic.trimEspacosExcedentes( IntToStr(v_qt_mem_ram)     ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_mem_ram_desc'         , oCacic.trimEspacosExcedentes( v_te_mem_ram_desc          ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_bios_desc'            , oCacic.trimEspacosExcedentes( v_te_bios_desc             ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_bios_data'            , oCacic.trimEspacosExcedentes( v_te_bios_data             ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_bios_fabricante'      , oCacic.trimEspacosExcedentes( v_te_bios_fabricante       ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.qt_placa_video_cores'    , oCacic.trimEspacosExcedentes( v_qt_placa_video_cores     ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_placa_video_desc'     , oCacic.trimEspacosExcedentes( v_te_placa_video_desc      ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.qt_placa_video_mem'      , oCacic.trimEspacosExcedentes( v_qt_placa_video_mem       ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_placa_video_resolucao', oCacic.trimEspacosExcedentes( v_te_placa_video_resolucao ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_placa_som_desc'       , oCacic.trimEspacosExcedentes( v_te_placa_som_desc        ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_teclado_desc'         , oCacic.trimEspacosExcedentes( v_te_teclado_desc          ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_mouse_desc'           , oCacic.trimEspacosExcedentes( v_te_mouse_desc            ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.te_modem_desc'           , oCacic.trimEspacosExcedentes( v_te_modem_desc            ) , v_tstrCipherOpened1);
+        SetValorDatMemoria('Col_Hard.UVC'                     , oCacic.trimEspacosExcedentes( UVC                        ) , v_tstrCipherOpened1);
         CipherClose(p_path_cacic + 'temp\col_hard.dat', v_tstrCipherOpened1);
         Except log_diario('Problema em gravação de dados no DAT!');
         End;
@@ -1157,12 +1150,21 @@ begin
       log_diario('Problema na execução => ' + v_mensagem);
     End;
   End;
+  oCacic.Free();
 end;
+const
+  CACIC_APP_NAME = 'col_hard';
+
 var tstrTripa1 : TStrings;
     intAux     : integer;
+    oCacic : TCACIC;
+
 begin
-  if (ParamCount>0) then
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) )  then
+    if (ParamCount>0) then
     Begin
       For intAux := 1 to ParamCount do
         Begin
@@ -1172,7 +1174,6 @@ begin
        if (trim(v_CipherKey)<>'') then
           Begin
-
              //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini
              tstrTripa1 := explode(ExtractFilePath(ParamStr(0)),'\');
              p_path_cacic := '';
@@ -1207,7 +1208,9 @@ begin
                 SetValorDatMemoria('Col_Hard.nada', 'nada', v_tstrCipherOpened1);
                 CipherClose(p_path_cacic + 'temp\col_hard.dat', v_tstrCipherOpened1);
              End;
-             Halt(0);
           End;
     End;
+
+   oCacic.Free();
+
 end.
@@ -1,250 +0,0 @@
-unit coleta_hardware;
-
-interface
-
-uses Windows, Registry, SysUtils, Classes, dialogs;
-
-procedure RealizarColetaHardware;
-function GetMACAdress: string;
-
-implementation
-
-
-Uses main, comunicacao, utils, registro, MSI_CPU, MSI_Devices, MiTeC_WinIOCTL, NB30 ;
-
-
-
-function GetMACAdress: string;
-var
-  NCB: PNCB;
-  Adapter: PAdapterStatus;
-
-  URetCode: PChar;
-  RetCode: char;
-  I: integer;
-  Lenum: PlanaEnum;
-  _SystemID: string;
-  TMPSTR: string;
-begin
-  Result    := ''; 
-  _SystemID := '';
-  Getmem(NCB, SizeOf(TNCB)); 
-  Fillchar(NCB^, SizeOf(TNCB), 0); 
-
-  Getmem(Lenum, SizeOf(TLanaEnum)); 
-  Fillchar(Lenum^, SizeOf(TLanaEnum), 0); 
-
-  Getmem(Adapter, SizeOf(TAdapterStatus));
-  Fillchar(Adapter^, SizeOf(TAdapterStatus), 0); 
-
-  Lenum.Length    := chr(0); 
-  NCB.ncb_command := chr(NCBENUM); 
-  NCB.ncb_buffer  := Pointer(Lenum); 
-  NCB.ncb_length  := SizeOf(Lenum); 
-  RetCode         := Netbios(NCB); 
-
-  i := 0; 
-  repeat 
-    Fillchar(NCB^, SizeOf(TNCB), 0);
-    Ncb.ncb_command  := chr(NCBRESET);
-    Ncb.ncb_lana_num := lenum.lana[I]; 
-    RetCode          := Netbios(Ncb);
-
-    Fillchar(NCB^, SizeOf(TNCB), 0); 
-    Ncb.ncb_command  := chr(NCBASTAT); 
-    Ncb.ncb_lana_num := lenum.lana[I];
-    // Must be 16 
-    Ncb.ncb_callname := '*               '; 
-
-    Ncb.ncb_buffer := Pointer(Adapter); 
-
-    Ncb.ncb_length := SizeOf(TAdapterStatus); 
-    RetCode        := Netbios(Ncb); 
-    //---- calc _systemId from mac-address[2-5] XOR mac-address[1]...
-    if (RetCode = chr(0)) or (RetCode = chr(6)) then
-    begin
-      _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' +
-        IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' + 
-        IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' + 
-        IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' + 
-        IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' + 
-        IntToHex(Ord(Adapter.adapter_address[5]), 2); 
-    end;
-    Inc(i);
-  until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00');
-  FreeMem(NCB); 
-  FreeMem(Adapter);
-  FreeMem(Lenum);
-  GetMacAdress := _SystemID;
-end;
-
-
-
-
-
-procedure RealizarColetaHardware;
-var Request_RCH, InfoSoft : TStringList;
-    DescPlacaRede, DescPlacaSom, DescCDROM, DescTeclado, DescModem, DescMouse, QtdMemoria, DescMemoria,
-    DescHDs, te_placa_mae_fabricante, te_placa_mae_desc,
-    ValorChaveColetado, ValorChaveRegistro, s : String;
-    i, c : Integer;
-begin
-   // Verifica se deverá ser realizada a coleta de informações de hardware neste
-   // computador, perguntando ao agente gerente.
-   if (CS_COLETA_HARDWARE) Then
-   Begin
-       main.frmMain.Log_Historico('* Coletando informações de hardware.');
-
-       Try main.frmMain.MSystemInfo.CPU.GetInfo(False, False); except end;
-       Try main.frmMain.MSystemInfo.Machine.GetInfo(0); except end;
-       Try main.frmMain.MSystemInfo.Machine.SMBIOS.GetInfo(1);except end;
-       Try main.frmMain.MSystemInfo.Display.GetInfo; except end;
-       Try main.frmMain.MSystemInfo.Media.GetInfo; except end;
-       Try main.frmMain.MSystemInfo.Devices.GetInfo; except end;
-       Try main.frmMain.MSystemInfo.Memory.GetInfo; except end;
-       Try main.frmMain.MSystemInfo.OS.GetInfo; except end;
-//       main.frmMain.MSystemInfo.Software.GetInfo;
-//       main.frmMain.MSystemInfo.Software.Report(InfoSoft);
-
-
-       //Try main.frmMain.MSystemInfo.Storage.GetInfo; except end;
-
-
-       if (main.frmMain.MSystemInfo.Network.CardAdapterIndex > -1) then DescPlacaRede := main.frmMain.MSystemInfo.Network.Adapters[main.frmMain.MSystemInfo.Network.CardAdapterIndex]
-       else DescPlacaRede := main.frmMain.MSystemInfo.Network.Adapters[0];
-       DescPlacaRede := Trim(DescPlacaRede);
-
-
-       if (main.frmMain.MSystemInfo.Media.Devices.Count > 0) then
-          if (main.frmMain.MSystemInfo.Media.SoundCardIndex > -1) then DescPlacaSom := main.frmMain.MSystemInfo.Media.Devices[main.frmMain.MSystemInfo.Media.SoundCardIndex]
-          else DescPlacaSom := main.frmMain.MSystemInfo.Media.Devices[0];
-
-       DescPlacaSom := Trim(DescPlacaSom);
-
-
-       for i:=0 to main.frmMain.MSystemInfo.Devices.DeviceCount-1 do
-       Begin
-          if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcCDROM then
-              if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then  DescCDROM := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
-              else DescCDROM := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
-          if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcModem then
-              if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescModem := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
-              else DescModem := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
-          if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcMouse then
-              if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescMouse := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
-              else DescMouse := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
-          if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcKeyboard then
-              if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescTeclado := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
-              else DescTeclado := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
-       end;
-
-
-       DescMemoria := '';
-       Try
-          for i:=0 to main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModuleCount-1 do
-          if (main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModule[i].Size > 0) then
-          begin
-              DescMemoria := DescMemoria + IntToStr(main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModule[i].Size) + ' ' +
-                             main.frmMain.MSystemInfo.Machine.SMBIOS.GetMemoryTypeStr(main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModule[i].Types) + ' ';
-          end;
-       Except
-       end;
-
-       DescMemoria := Trim(DescMemoria);
-       QtdMemoria := IntToStr((main.frmMain.MSystemInfo.Memory.PhysicalTotal div 1048576) + 1);
-
-       Try
-         te_placa_mae_fabricante := Trim(main.frmMain.MSystemInfo.Machine.SMBIOS.MainboardManufacturer);
-         te_placa_mae_desc       := Trim(main.frmMain.MSystemInfo.Machine.SMBIOS.MainboardModel);
-       Except
-       end;
-
-
-       {
-       for i:=0 to main.frmMain.MSystemInfo.Storage.DeviceCount-1 do
-       if (main.frmMain.MSystemInfo.Storage.Devices[i].Geometry.MediaType = Fixedmedia) Then
-       Begin
-         DescHDs := main.frmMain.MSystemInfo.Storage.Devices[i].Model + IntToStr((main.frmMain.MSystemInfo.Storage.Devices[i].Capacity div 1024) div 1024);
-       end;
-        }
-
-
-       // Monto a string que será comparada com o valor armazenado no registro.
-       ValorChaveColetado := Trim(DescPlacaRede + ';' +
-           CPUVendors[main.frmMain.MSystemInfo.CPU.vendorType]  + ';' +
-           main.frmMain.MSystemInfo.CPU.FriendlyName + '  ' + main.frmMain.MSystemInfo.CPU.CPUIDNameString  + ';' +
-           // Como a frequência não é constante, ela não vai entrar na verificação da mudança de hardware.
-           // IntToStr(main.frmMain.MSystemInfo.CPU.Frequency)  + ';' +
-           main.frmMain.MSystemInfo.CPU.SerialNumber  + ';' +
-           DescMemoria  + ';' +
-           QtdMemoria  + ';' +
-           main.frmMain.MSystemInfo.Machine.BIOS.Name  + ';' +
-           main.frmMain.MSystemInfo.Machine.BIOS.Date  + ';' +
-           main.frmMain.MSystemInfo.Machine.BIOS.Copyright + ';' +
-           te_placa_mae_fabricante + ';' +
-           te_placa_mae_desc + ';' +
-           main.frmMain.MSystemInfo.Display.Adapter + ';' +
-           IntToStr(main.frmMain.MSystemInfo.Display.HorzRes) + 'x' + IntToStr(main.frmMain.MSystemInfo.Display.VertRes) + ';' +
-           IntToStr(main.frmMain.MSystemInfo.Display.ColorDepth)  + ';' +
-           IntToStr((main.frmMain.MSystemInfo.Display.Memory) div 1048576 )  + ';' +
-           DescPlacaSom + ';' +
-           DescCDROM + ';' +
-           DescTeclado + ';' +
-           DescModem + ';' +
-           DescMouse);
-
-       // Obtenho do registro o valor que foi previamente armazenado
-       ValorChaveRegistro := Trim(Registro.GetValorChaveRegIni('Coleta','Hardware',p_path_cacic_ini));
-
-       // Se essas informações forem diferentes significa que houve alguma alteração
-       // na configuração de hardware. Nesse caso, gravo as informações no BD Central
-       // e, se não houver problemas durante esse procedimento, atualizo as
-       // informações no registro.
-       If (IN_COLETA_FORCADA or (ValorChaveColetado <> ValorChaveRegistro)) Then
-       Begin
-          //Envio via rede para ao Agente Gerente, para gravação no BD.
-          Request_RCH:=TStringList.Create;
-          Request_RCH.Values['te_node_address']         := TE_NODE_ADDRESS;
-          Request_RCH.Values['id_so']                   := ID_SO;
-          Request_RCH.Values['te_nome_computador']      := TE_NOME_COMPUTADOR;
-          Request_RCH.Values['id_ip_rede']              := ID_IP_REDE;
-          Request_RCH.Values['te_ip']                   := TE_IP;
-          Request_RCH.Values['te_workgroup']            := TE_WORKGROUP;
-          Request_RCH.Values['te_placa_rede_desc']      := DescPlacaRede;
-          Request_RCH.Values['te_placa_mae_fabricante'] := te_placa_mae_fabricante;
-          Request_RCH.Values['te_placa_mae_desc']       := te_placa_mae_desc;
-          Request_RCH.Values['te_cpu_serial']           := Trim(main.frmMain.MSystemInfo.CPU.SerialNumber);
-          Request_RCH.Values['te_cpu_desc']             := Trim(main.frmMain.MSystemInfo.CPU.FriendlyName + ' ' + main.frmMain.MSystemInfo.CPU.CPUIDNameString);
-          Request_RCH.Values['te_cpu_fabricante']       := CPUVendors[main.frmMain.MSystemInfo.CPU.vendorType];
-          Request_RCH.Values['te_cpu_freq']             := IntToStr(main.frmMain.MSystemInfo.CPU.Frequency);
-          Request_RCH.Values['qt_mem_ram']              := QtdMemoria;
-          Request_RCH.Values['te_mem_ram_desc']         := DescMemoria;
-          Request_RCH.Values['te_bios_desc']            := Trim(main.frmMain.MSystemInfo.Machine.BIOS.Name);
-          Request_RCH.Values['te_bios_data']            := Trim(main.frmMain.MSystemInfo.Machine.BIOS.Date);
-          Request_RCH.Values['te_bios_fabricante']      := Trim(main.frmMain.MSystemInfo.Machine.BIOS.Copyright);
-          Request_RCH.Values['qt_placa_video_cores']    := IntToStr(main.frmMain.MSystemInfo.Display.ColorDepth);
-          Request_RCH.Values['te_placa_video_desc']     := Trim(main.frmMain.MSystemInfo.Display.Adapter);
-          Request_RCH.Values['qt_placa_video_mem']      := IntToStr((main.frmMain.MSystemInfo.Display.Memory) div 1048576);
-          Request_RCH.Values['te_placa_video_resolucao']:= IntToStr(main.frmMain.MSystemInfo.Display.HorzRes) + 'x' + IntToStr(main.frmMain.MSystemInfo.Display.VertRes);
-          Request_RCH.Values['te_placa_som_desc']       := DescPlacaSom;
-          Request_RCH.Values['te_cdrom_desc']           := DescCDROM;
-          Request_RCH.Values['te_teclado_desc']         := DescTeclado;
-          Request_RCH.Values['te_mouse_desc']           := DescMouse;
-          Request_RCH.Values['te_modem_desc']           := DescModem;
-
-          // Somente atualizo o registro caso não tenha havido nenhum erro durante o envio das informações para o BD
-          //Sobreponho a informação no registro para posterior comparação, na próxima execução.
-          if (comunicacao.ComunicaServidor('set_hardware.php', Request_RCH, '>> Enviando informações de hardware para o servidor.') <> '0') Then
-          Begin
-             Registro.SetValorChaveRegIni('Coleta','Hardware', ValorChaveColetado,p_path_cacic_ini);
-          end;
-          Request_RCH.Free;
-       end;
-   end
-   else main.frmMain.Log_Historico('Coleta de informações de hardware não configurada.');
-
-end;
-
-
-end.
-
@@ -1,436 +0,0 @@
-(**
----------------------------------------------------------------------------------------------------------------------------------------------------------------
-Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
-
-Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
-
-O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
-publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
-
-Este programa é distribuido na esperança que possa ser  util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
-MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
-
-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
-Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-
-NOTA: O componente MiTeC System Information Component (MSIC) é baseado na classe TComponent e contém alguns subcomponentes baseados na classe TPersistent
-      Este componente é apenas freeware e não open-source, e foi baixado de http://www.mitec.cz/Downloads/MSIC.zip
----------------------------------------------------------------------------------------------------------------------------------------------------------------
-*)
-unit main_hard;
-
-interface
-
-uses Windows, Messages, SysUtils, Classes, Forms, IniFiles, ExtCtrls, Controls, MSI_GUI, MSI_Devices, MSI_CPU;
-var  p_path_cacic, p_path_cacic_ini : string;
-type
-  Tfrm_col_hard = class(TForm)
-    MSystemInfo1: TMSystemInfo;
-    procedure FormCreate(Sender: TObject);
-  private
-    procedure Executa_Col_Hard;
-    procedure Log_Historico(strMsg : String);
-    function  SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;
-    Function  Crip(PNome: String): String;
-    Function  DesCrip(PNome: String): String;
-//    Function  GetValorChaveRegIni(p_Secao: String; p_Chave : String; p_Path : String): String;
-    function  GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;
-    Function  Explode(Texto, Separador : String) : TStrings;
-    Function  GetRootKey(strRootKey: String): HKEY;
-    Function  RemoveCaracteresEspeciais(Texto : String) : String;
-  public
-  end;
-
-var
-  frm_col_hard: Tfrm_col_hard;
-
-implementation
-
-{$R *.dfm}
-
-//uses MSI_CPU, MSI_Devices, MiTeC_WinIOCTL, NB30;
-//MSI_Devices, MSI_CPU, MSI_GUI,
-
-//Para gravar no Arquivo INI...
-function Tfrm_col_hard.SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;
-var Reg_Ini     : TIniFile;
-begin
-    FileSetAttr (p_Path,0);
-    Reg_Ini := TIniFile.Create(p_Path);
-//    Reg_Ini.WriteString(frm_col_hard.Crip(p_Secao), frm_col_hard.Crip(p_Chave), frm_col_hard.Crip(p_Valor));
-    Reg_Ini.WriteString(p_Secao, p_Chave, p_Valor);
-    Reg_Ini.Free;
-end;
-
-//Para buscar do Arquivo INI...
-//function Tfrm_col_hard.GetValorChaveRegIni(p_Secao: String; p_Chave : String; p_Path : String): String;
-//var Reg_Ini: TIniFile;
-//begin
-//    FileSetAttr (p_Path,0);
-//    Reg_Ini := TIniFile.Create(p_Path);
-////    Result  := frm_col_hard.DesCrip(Reg_Ini.ReadString(frm_col_hard.Crip(p_Secao), frm_col_hard.Crip(p_Chave), ''));
-//    Result  := Reg_Ini.ReadString(p_Secao, p_Chave, '');
-//    Reg_Ini.Free;
-//end;
-//Para buscar do Arquivo INI...
-// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções
-function Tfrm_col_hard.GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;
-var
-  FileText : TStringList;
-  i, j, v_Size_Section, v_Size_Key : integer;
-  v_SectionName, v_KeyName : string;
-  begin
-    Result := '';
-    v_SectionName := '[' + p_SectionName + ']';
-    v_Size_Section := strLen(PChar(v_SectionName));
-    v_KeyName := p_KeyName + '=';
-    v_Size_Key     := strLen(PChar(v_KeyName));
-    FileText := TStringList.Create;
-    try
-      FileText.LoadFromFile(p_IniFileName);
-      For i := 0 To FileText.Count - 1 Do
-        Begin
-          if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then
-            Begin
-              For j := i to FileText.Count - 1 Do
-                Begin
-                  if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then
-                    Begin
-                      Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key));
-                      Break;
-                    End;
-                End;
-            End;
-          if (Result <> '') then break;
-        End;
-    finally
-      FileText.Free;
-    end;
-  end;
-
-Function Tfrm_col_hard.Explode(Texto, Separador : String) : TStrings;
-var
-    strItem : String;
-    ListaAuxUTILS : TStrings;
-    NumCaracteres, I : Integer;
-Begin
-    ListaAuxUTILS := TStringList.Create;
-    strItem := '';
-    NumCaracteres := Length(Texto);
-    For I := 0 To NumCaracteres Do
-    If (Texto[I] = Separador) or (I = NumCaracteres) Then
-    Begin
-       If (I = NumCaracteres) then strItem := strItem + Texto[I];
-       ListaAuxUTILS.Add(Trim(strItem));
-       strItem := '';
-    end
-    Else strItem := strItem + Texto[I];
-      Explode := ListaAuxUTILS;
-//Não estava sendo liberado
-//    ListaAuxUTILS.Free;
-//Ao ativar esta liberação tomei uma baita surra!!!!  11/05/2004 - 20:30h - Uma noite muito escura!  :)  Anderson Peterle
-end;
-
-function Tfrm_col_hard.GetRootKey(strRootKey: String): HKEY;
-begin
-    /// Encontrar uma maneira mais elegante de fazer esses testes.
-    if      Trim(strRootKey) = 'HKEY_LOCAL_MACHINE'   Then Result := HKEY_LOCAL_MACHINE
-    else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT'    Then Result := HKEY_CLASSES_ROOT
-    else if Trim(strRootKey) = 'HKEY_CURRENT_USER'    Then Result := HKEY_CURRENT_USER
-    else if Trim(strRootKey) = 'HKEY_USERS'           Then Result := HKEY_USERS
-    else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG'  Then Result := HKEY_CURRENT_CONFIG
-    else if Trim(strRootKey) = 'HKEY_DYN_DATA'        Then Result := HKEY_DYN_DATA;
-end;
-
-Function Tfrm_col_hard.RemoveCaracteresEspeciais(Texto : String) : String;
-var I : Integer;
-    strAux : String;
-Begin
-   For I := 0 To Length(Texto) Do
-     if ord(Texto[I]) in [32..126] Then
-           strAux := strAux + Texto[I]
-     else strAux := strAux + ' ';  // Coloca um espaço onde houver caracteres especiais
-   Result := strAux;
-end;
-
-
-procedure Tfrm_col_hard.Executa_Col_Hard;
-var InfoSoft : TStringList;
-    v_te_cpu_freq, v_te_cpu_fabricante, v_te_cpu_desc, v_te_cpu_serial, v_te_placa_rede_desc, v_te_placa_som_desc, v_te_cdrom_desc, v_te_teclado_desc,
-    v_te_modem_desc, v_te_mouse_desc, v_qt_mem_ram, v_te_mem_ram_desc, v_qt_placa_video_mem, v_te_placa_video_resolucao, v_te_placa_video_desc,
-    v_qt_placa_video_cores, v_te_bios_fabricante, v_te_bios_data, v_te_bios_desc,
-    v_te_placa_mae_fabricante, v_te_placa_mae_desc,
-    ValorChaveColetado, ValorChaveRegistro : String;
-    i : Integer;
-begin
-  Try
-     frm_col_hard.Log_Historico('* Coletando informações de Hardware.');
-
-     Try frm_col_hard.MSysteminfo1.CPU.GetInfo(False, False); except end;
-     Try frm_col_hard.MSysteminfo1.Machine.GetInfo(0); except end;
-     Try frm_col_hard.MSysteminfo1.Machine.SMBIOS.GetInfo(1);except end;
-     Try frm_col_hard.MSysteminfo1.Display.GetInfo; except end;
-     Try frm_col_hard.MSysteminfo1.Media.GetInfo; except end;
-     Try frm_col_hard.MSysteminfo1.Devices.GetInfo; except end;
-     Try frm_col_hard.MSysteminfo1.Memory.GetInfo; except end;
-     Try frm_col_hard.MSysteminfo1.OS.GetInfo; except end;
-//       frm_col_hard.MSysteminfo1.Software.GetInfo;
-//       frm_col_hard.MSysteminfo1.Software.Report(InfoSoft);
-
-
-     //Try frm_col_hard.MSysteminfo1.Storage.GetInfo; except end;
-
-
-     if (frm_col_hard.MSysteminfo1.Network.CardAdapterIndex > -1) then v_te_placa_rede_desc := frm_col_hard.MSysteminfo1.Network.Adapters[frm_col_hard.MSysteminfo1.Network.CardAdapterIndex]
-     else v_te_placa_rede_desc := frm_col_hard.MSysteminfo1.Network.Adapters[0];
-     v_te_placa_rede_desc := Trim(v_te_placa_rede_desc);
-
-
-     if (frm_col_hard.MSysteminfo1.Media.Devices.Count > 0) then
-        if (frm_col_hard.MSysteminfo1.Media.SoundCardIndex > -1) then v_te_placa_som_desc := frm_col_hard.MSysteminfo1.Media.Devices[frm_col_hard.MSysteminfo1.Media.SoundCardIndex]
-        else v_te_placa_som_desc := frm_col_hard.MSysteminfo1.Media.Devices[0];
-
-     v_te_placa_som_desc := Trim(v_te_placa_som_desc);
-
-
-     for i:=0 to frm_col_hard.MSysteminfo1.Devices.DeviceCount-1 do
-     Begin
-        if frm_col_hard.MSysteminfo1.Devices.Devices[i].DeviceClass=dcCDROM then
-            if Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName)='' then  v_te_cdrom_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].Description)
-            else v_te_cdrom_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName);
-        if frm_col_hard.MSysteminfo1.Devices.Devices[i].DeviceClass=dcModem then
-            if Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName)='' then v_te_modem_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].Description)
-            else v_te_modem_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName);
-        if frm_col_hard.MSysteminfo1.Devices.Devices[i].DeviceClass=dcMouse then
-            if Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName)='' then v_te_mouse_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].Description)
-            else v_te_mouse_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName);
-        if frm_col_hard.MSysteminfo1.Devices.Devices[i].DeviceClass=dcKeyboard then
-            if Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName)='' then v_te_teclado_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].Description)
-            else v_te_teclado_desc := Trim(frm_col_hard.MSysteminfo1.Devices.Devices[i].FriendlyName);
-     end;
-
-
-     v_te_mem_ram_desc := '';
-     Try
-//        for i:=0 to frm_col_hard.MSysteminfo1.Machine.SMBIOS.MemoryModuleCount-1 do
-        for i:=0 to frm_col_hard.MSysteminfo1.Machine.SMBIOS.MemorySlotCount-1 do
-//        if (frm_col_hard.MSysteminfo1.Machine.SMBIOS.MemoryModule[i].Size > 0) then
-        if (frm_col_hard.MSysteminfo1.Machine.SMBIOS.MemoryBank[i].Size > 0) then
-        begin
-            v_te_mem_ram_desc := v_te_mem_ram_desc + IntToStr(frm_col_hard.MSysteminfo1.Machine.SMBIOS.MemoryBank[i].Size) + ' ' +
-                           frm_col_hard.MSysteminfo1.Machine.SMBIOS.GetMemoryTypeStr(frm_col_hard.MSysteminfo1.Machine.SMBIOS.MemoryBank[i].Types) + ' ';
-        end;
-     Except
-     end;
-
-     v_te_mem_ram_desc := Trim(v_te_mem_ram_desc);
-     v_qt_mem_ram := IntToStr((frm_col_hard.MSysteminfo1.Memory.PhysicalTotal div 1048576) + 1);
-
-     Try
-       v_te_placa_mae_fabricante := Trim(frm_col_hard.MSysteminfo1.Machine.SMBIOS.MainboardManufacturer);
-       v_te_placa_mae_desc       := Trim(frm_col_hard.MSysteminfo1.Machine.SMBIOS.MainboardModel);
-     Except
-     end;
-
-     Try
-       v_te_cpu_serial     := Trim(frm_col_hard.MSystemInfo1.CPU.SerialNumber);
-       v_te_cpu_desc       := Trim(frm_col_hard.MSystemInfo1.CPU.FriendlyName + ' ' + frm_col_hard.MSystemInfo1.CPU.CPUIDNameString);
-       v_te_cpu_fabricante := CPUVendors[frm_col_hard.MSystemInfo1.CPU.vendorType];
-       v_te_cpu_freq       := IntToStr(frm_col_hard.MSystemInfo1.CPU.Frequency);
-     Except
-     end;
-
-     Try
-         v_te_bios_desc       := Trim(frm_col_hard.MSysteminfo1.Machine.BIOS.Name);
-         v_te_bios_data       := Trim(frm_col_hard.MSysteminfo1.Machine.BIOS.Date);
-         v_te_bios_fabricante := Trim(frm_col_hard.MSysteminfo1.Machine.BIOS.Copyright);
-     Except
-     End;
-
-     Try
-         v_qt_placa_video_cores     := IntToStr(frm_col_hard.MSysteminfo1.Display.ColorDepth);
-         v_te_placa_video_desc      := Trim(frm_col_hard.MSysteminfo1.Display.Adapter);
-         v_qt_placa_video_mem       := IntToStr((frm_col_hard.MSysteminfo1.Display.Memory) div 1048576 );
-         v_te_placa_video_resolucao := IntToStr(frm_col_hard.MSysteminfo1.Display.HorzRes) + 'x' + IntToStr(frm_col_hard.MSysteminfo1.Display.VertRes);
-     Except
-     End;
-     {
-     for i:=0 to frm_col_hard.MSysteminfo1.Storage.DeviceCount-1 do
-     if (frm_col_hard.MSysteminfo1.Storage.Devices[i].Geometry.MediaType = Fixedmedia) Then
-     Begin
-       DescHDs := frm_col_hard.MSysteminfo1.Storage.Devices[i].Model + IntToStr((frm_col_hard.MSysteminfo1.Storage.Devices[i].Capacity div 1024) div 1024);
-     end;
-      }
-
-
-
-     // Monto a string que será comparada com o valor armazenado no registro.
-     ValorChaveColetado := Trim(v_te_placa_rede_desc + ';' +
-         v_te_cpu_fabricante  + ';' +
-         v_te_cpu_desc  + ';' +
-         // Como a frequência não é constante, ela não vai entrar na verificação da mudança de hardware.
-         // IntToStr(frm_col_hard.MSysteminfo1.CPU.Frequency)  + ';' +
-         v_te_cpu_serial  + ';' +
-         v_te_mem_ram_desc  + ';' +
-         v_qt_mem_ram  + ';' +
-         v_te_bios_desc  + ';' +
-         v_te_bios_data  + ';' +
-         v_te_bios_fabricante + ';' +
-         v_te_placa_mae_fabricante + ';' +
-         v_te_placa_mae_desc + ';' +
-         v_te_placa_video_desc + ';' +
-         v_te_placa_video_resolucao + ';' +
-         v_qt_placa_video_cores  + ';' +
-         v_qt_placa_video_mem + ';' +
-         v_te_placa_som_desc + ';' +
-         v_te_cdrom_desc + ';' +
-         v_te_teclado_desc + ';' +
-         v_te_modem_desc + ';' +
-         v_te_mouse_desc);
-
-
-     // Obtenho do registro o valor que foi previamente armazenado
-     ValorChaveRegistro := Trim(GetValorChaveRegIni('Coleta','Hardware',p_path_cacic_ini));
-
-     // Se essas informações forem diferentes significa que houve alguma alteração
-     // na configuração de hardware. Nesse caso, gravo as informações no BD Central
-     // e, se não houver problemas durante esse procedimento, atualizo as
-     // informações no registro.
-
-     If (GetValorChaveRegIni('Configs','IN_COLETA_FORCADA_HARD',p_path_cacic_ini)='S') or (ValorChaveColetado <> ValorChaveRegistro) Then
-      Begin
-        //Envio via rede para ao Agente Gerente, para gravação no BD.
-        SetValorChaveRegIni('Col_Hard','te_placa_rede_desc'      , v_te_placa_rede_desc      , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_placa_mae_fabricante' , v_te_placa_mae_fabricante , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_placa_mae_desc'       , v_te_placa_mae_desc       , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_cpu_serial'           , v_te_cpu_serial           , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_cpu_desc'             , v_te_cpu_desc             , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_cpu_fabricante'       , v_te_cpu_fabricante       , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_cpu_freq'             , v_te_cpu_freq             , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','qt_mem_ram'              , v_qt_mem_ram              , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_mem_ram_desc'         , v_te_mem_ram_desc         , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_bios_desc'            , v_te_bios_desc            , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_bios_data'            , v_te_bios_data            , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_bios_fabricante'      , v_te_bios_fabricante      , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','qt_placa_video_cores'    , v_qt_placa_video_cores    , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_placa_video_desc'     , v_te_placa_video_desc     , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','qt_placa_video_mem'      , v_qt_placa_video_mem      , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_placa_video_resolucao', v_te_placa_video_resolucao, frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_placa_som_desc'       , v_te_placa_som_desc       , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_cdrom_desc'           , v_te_cdrom_desc           , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_teclado_desc'         , v_te_teclado_desc         , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_mouse_desc'           , v_te_mouse_desc           , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','te_modem_desc'           , v_te_modem_desc           , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        SetValorChaveRegIni('Col_Hard','ValorChaveColetado'      , ValorChaveColetado      , frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-
-      end
-   else SetValorChaveRegIni('Col_Hard','nada', 'nada', frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-   Application.terminate
-  Except
-    SetValorChaveRegIni('Col_Hard','nada', 'nada', frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-    Application.terminate;
-  End;
-end;
-
-
-procedure Tfrm_col_hard.Log_Historico(strMsg : String);
-var
-    HistoricoLog : TextFile;
-    strDataArqLocal, strDataAtual : string;
-begin
-   try
-       FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
-       AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
-       {$IOChecks off}
-       Reset(HistoricoLog); {Abre o arquivo texto}
-       {$IOChecks on}
-       if (IOResult <> 0) then // Arquivo não existe, será recriado.
-          begin
-            Rewrite (HistoricoLog);
-            Append(HistoricoLog);
-            Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
-          end;
-       DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log')));
-       DateTimeToString(strDataAtual   , 'yyyymmdd', Date);
-       if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
-          begin
-            Rewrite (HistoricoLog); //Cria/Recria o arquivo
-            Append(HistoricoLog);
-            Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
-          end;
-       Append(HistoricoLog);
-       Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + strMsg); {Grava a string Texto no arquivo texto}
-       CloseFile(HistoricoLog); {Fecha o arquivo texto}
-//       FileSetAttr (ExtractFilePath(Application.Exename) + '\cacic2.log',6); // Muda o atributo para arquivo de SISTEMA e OCULTO
-
-   except
-     Log_Historico('Erro na gravação do log!');
-   end;
-end;
-// Simples rotinas de Criptografação e Descriptografação
-// Baixadas de http://www.costaweb.com.br/forum/delphi/474.shtml
-Function Tfrm_col_hard.Crip(PNome: String): String;
-Var
-  TamI, TamF: Integer;
-  SenA, SenM, SenD: String;
-Begin
-    SenA := Trim(PNome);
-    TamF := Length(SenA);
-    if (TamF > 1) then
-      begin
-        SenM := '';
-        SenD := '';
-        For TamI := TamF Downto 1 do
-            Begin
-                SenM := SenM + Copy(SenA,TamI,1);
-            End;
-        SenD := Chr(TamF+95)+Copy(SenM,1,1)+Copy(SenA,1,1)+Copy(SenM,2,TamF-2)+Chr(75+TamF);
-      end
-    else SenD := SenA;
-    Result := SenD;
-End;
-
-Function Tfrm_col_hard.DesCrip(PNome: String): String;
-Var
-  TamI, TamF: Integer;
-  SenA, SenM, SenD: String;
-Begin
-    SenA := Trim(PNome);
-    TamF := Length(SenA) - 2;
-    if (TamF > 1) then
-      begin
-        SenM := '';
-        SenD := '';
-        SenA := Copy(SenA,2,TamF);
-        SenM := Copy(SenA,1,1)+Copy(SenA,3,TamF)+Copy(SenA,2,1);
-        For TamI := TamF Downto 1 do
-            Begin
-                SenD := SenD + Copy(SenM,TamI,1);
-            End;
-      end
-    else SenD := SenA;
-    Result := SenD;
-End;
-
-procedure Tfrm_col_hard.FormCreate(Sender: TObject);
-var tstrTripa1 : TStrings;
-    intAux     : integer;
-begin
-     //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini
-     tstrTripa1 := explode(ExtractFilePath(Application.Exename),'\');
-     p_path_cacic := '';
-     For intAux := 0 to tstrTripa1.Count -2 do
-       begin
-         p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';
-       end;
-     p_path_cacic_ini := p_path_cacic + 'cacic2.ini';
-
-     Try
-        Executa_Col_Hard;
-     Except
-        SetValorChaveRegIni('Col_Hard','nada', 'nada', frm_col_hard.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_hard.ini');
-        Application.terminate;
-     End;
-end;
-
-end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev/ES
 FileDescription=Coletor de Informações de Sistemas Monitorados do pelo CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_MONI
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=5
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item3=C:\Arquivos de programas\Borland\Delphi7\mitec;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\mitec
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -18,15 +18,17 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 program col_moni;
 {$R *.res}
-uses  Windows,
-      sysutils,
-      inifiles,
-      Registry,
-      Classes,
-      PJVersionInfo,
-      DCPcrypt2,
-      DCPrijndael,
-      DCPbase64;
+uses
+  Windows,
+  sysutils,
+  inifiles,
+  Registry,
+  Classes,
+  PJVersionInfo,
+  DCPcrypt2,
+  DCPrijndael,
+  DCPbase64,
+  CACIC_Library in '..\CACIC_Library.pas';
 var  p_path_cacic, v_Res_Search, v_Drive, v_File : string;
      PJVersionInfo1: TPJVersionInfo;
@@ -1074,11 +1076,18 @@ begin
   end;
 end;
+const
+  CACIC_APP_NAME = 'col_moni';
 var tstrTripa1 : TStrings;
     intAux     : integer;
+    oCacic : TCACIC;
+
 begin
-  if (ParamCount>0) then
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
+    if (ParamCount>0) then
     Begin
       For intAux := 1 to ParamCount do
         Begin
@@ -1122,7 +1131,9 @@ begin
                SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
                CipherClose(p_path_cacic + 'temp\col_moni.dat', v_tstrCipherOpened1);
              End;
-             Halt(0);
           End;
     End;
+
+    oCacic.Free();
+
 end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,23 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Coletor de Informações de Patrimônio do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_PATR
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na Licença GPL(General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
-Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=4
+Count=10
 Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
-Item1=C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\mitec;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item3=C:\Arquivos de programas\Borland\Delphi7\mitec
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -19,14 +19,42 @@ program col_patr;
 uses
   Forms,
+  Windows,
   main_col_patr in 'main_col_patr.pas' {FormPatrimonio},
-  LibXmlParser in 'LibXmlParser.pas',
-  XML in 'xml.pas';
+  LibXmlParser,
+  XML,
+  CACIC_Library in '..\CACIC_Library.pas';
 {$R *.res}
+const
+  CACIC_APP_NAME = 'col_patr';
+
+var
+  hwind:HWND;
+  oCacic : TCACIC;
+
 begin
-  Application.Initialize;
-  Application.CreateForm(TFormPatrimonio, FormPatrimonio);
-  Application.Run;
+   oCacic := TCACIC.Create();
+
+   if( oCacic.isAppRunning( CACIC_APP_NAME ) )
+     then begin
+        hwind := 0;
+        repeat			// The string 'My app' must match your App Title (below)
+           hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );
+        until (hwind<>Application.Handle);
+        IF (hwind<>0) then
+        begin
+           Windows.ShowWindow(hwind,SW_SHOWNORMAL);
+           Windows.SetForegroundWindow(hwind);
+        end;
+     end
+     else begin
+       Application.Initialize;
+       Application.CreateForm(TFormPatrimonio, FormPatrimonio);
+       Application.Run;
+     end;
+
+   oCacic.Free();
+
 end.
@@ -678,14 +678,6 @@ begin
     var_te_info_patrimonio6           := GetValorDatMemoria('Patrimonio.te_info_patrimonio6',v_tstrCipherOpened);
     if (var_te_info_patrimonio6='') then var_te_info_patrimonio6 := DeCrypt(XML.XML_RetornaValor('TE_INFO6', v_configs));
-    {
-    Try
-      id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1));
-      id_unid_organizacional_nivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1
-      id_unid_organizacional_nivel2.ItemIndex := id_unid_organizacional_nivel2.Items.IndexOf(RetornaValorVetorUON2(var_id_unid_organizacional_nivel1, var_id_unid_organizacional_nivel2));
-    Except
-    end;
-    }
     Try
       id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1));
       id_unid_organizacional_nivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1
@@ -725,52 +717,6 @@ var Parser   : TXmlParser;
     strTagName,
     strItemName  : string;
 begin
-{
-  Parser := TXmlParser.Create;
-  Parser.Normalize := True;
-  Parser.LoadFromBuffer(PAnsiChar(v_configs));
-  Parser.StartScan;
-  i := -1;
-  v_Tag := false;
-  While Parser.Scan and (UpperCase(Parser.CurName) <> 'IT2') DO
-  Begin
-     if ((Parser.CurPartType = ptStartTag) and (UpperCase(Parser.CurName) = 'IT1')) Then
-        Begin
-          v_Tag := true;
-          i := i + 1;
-          SetLength(VetorUON1, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
-        end
-     else if (Parser.CurPartType in [ptContent, ptCData]) and v_Tag Then
-          if      (UpperCase(Parser.CurName) = 'ID1') then VetorUON1[i].id1 := DeCrypt(Parser.CurContent)
-          else if (UpperCase(Parser.CurName) = 'NM1') then VetorUON1[i].nm1 := DeCrypt(Parser.CurContent);
-  end;
-
-  // Código para montar o combo 2
-  Parser.StartScan;
-
-  v_Tag := false;
-  i := -1;
-  While Parser.Scan DO
-  Begin
-     if ((Parser.CurPartType = ptStartTag) and (UpperCase(Parser.CurName) = 'IT2')) Then
-       Begin
-         v_Tag := TRUE;
-         i := i + 1;
-         SetLength(VetorUON2, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
-       end
-     else if (Parser.CurPartType in [ptContent, ptCData]) and v_Tag Then
-        if      (UpperCase(Parser.CurName) = 'ID1') then VetorUON2[i].id1 := DeCrypt(Parser.CurContent)
-        else if (UpperCase(Parser.CurName) = 'ID2') then VetorUON2[i].id2 := DeCrypt(Parser.CurContent)
-        else if (UpperCase(Parser.CurName) = 'NM2') then VetorUON2[i].nm2 := DeCrypt(Parser.CurContent);
-  end;
-  Parser.Free;
-  // Como os itens do combo1 nunca mudam durante a execução do programa (ao contrario do combo2), posso colocar o seu preenchimento aqui mesmo.
-  id_unid_organizacional_nivel1.Items.Clear;
-  For i := 0 to Length(VetorUON1) - 1 Do
-     id_unid_organizacional_nivel1.Items.Add(VetorUON1[i].nm1);
- }
-
-
   Parser := TXmlParser.Create;
   Parser.Normalize := True;
   Parser.LoadFromBuffer(PAnsiChar(v_Configs));
@@ -908,23 +854,6 @@ var i, j: Word;
     strAux,
     strIdUON1 : String;
 begin
-  {
-  // Filtro os itens do combo2, de acordo com o item selecionado no combo1
-  strAux := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
-
-  id_unid_organizacional_nivel2.Items.Clear;
-  SetLength(VetorUON2Filtrado, 0);
-  For i := 0 to Length(VetorUON2) - 1 Do
-  Begin
-     if VetorUON2[i].id1 = strAux then
-     Begin
-        id_unid_organizacional_nivel2.Items.Add(VetorUON2[i].nm2);
-        j := Length(VetorUON2Filtrado);
-        SetLength(VetorUON2Filtrado, j + 1);
-        VetorUON2Filtrado[j] := VetorUON2[i].id2;
-     end;
-  end;
-  }
       // Filtro os itens do combo2, de acordo com o item selecionado no combo1
       strIdUON1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
       id_unid_organizacional_nivel1a.Items.Clear;
@@ -998,17 +927,6 @@ var strIdUON1,
     strRetorno : String;
     tstrAux    : TStrings;
 begin
-
-      //Verifico se houve qualquer alteração nas informações.
-      // Só vou enviar as novas informações para o bd ou gravar no registro se houve alterações.
-      {
-     Try
-        strAux1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
-        strAux2 := VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex];
-     Except
-     end;
-     }
-
      tstrAux := TStrings.Create;
      tstrAux := explode(VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex],'#');
      Try
@@ -1141,8 +1059,8 @@ end;
 procedure TFormPatrimonio.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-   SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1);
-   CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1);
+   //SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1);
+   //CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1);
    Application.Terminate;
 end;
 // Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php
@@ -1194,8 +1112,6 @@ Function TFormPatrimonio.RemoveCaracteresEspeciais(Texto, p_Fill : String; p_sta
 var I : Integer;
     strAux : String;
 Begin
-//     if ord(Texto[I]) in [32..126] Then
-//   else strAux := strAux + ' ';  // Coloca um espaço onde houver caracteres especiais
    strAux := '';
    if (Length(trim(Texto))>0) then
      For I := 0 To Length(Texto) Do
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,25 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Coletor de Informações de Softwares Básicos do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_SOFT
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=6
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes;C:\Arquivos de programas\Borland\Delphi7\Mitec\9.60
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item3=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\mitec;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item5=C:\Arquivos de programas\Borland\Delphi7\mitec
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -32,7 +32,8 @@ uses
   MSI_XML_Reports,
   DCPcrypt2,
   DCPrijndael,
-  DCPbase64;
+  DCPbase64,
+  CACIC_Library in '..\CACIC_Library.pas';
 var  p_path_cacic,
      v_CipherKey,
@@ -769,13 +770,19 @@ begin
  End;
 end;
+const
+  CACIC_APP_NAME = 'col_soft';
-
-
-var tstrTripa1 : TStrings;
+var
+    tstrTripa1 : TStrings;
     intAux     : integer;
+    oCacic : TCACIC;
+
 begin
-  if (ParamCount>0) then
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
+    if (ParamCount>0) then
     Begin
       For intAux := 1 to ParamCount do
         Begin
@@ -820,7 +827,9 @@ begin
                 SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);
                 CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1);
              End;
-             Halt(0);
           End;
     End;
+
+   oCacic.Free();
+
 end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Coletor de Informações de Unidades de Disco do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Col_UNDI
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=5
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\9.60;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item3=C:\Arquivos de programas\Borland\Delphi7\mitec;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\mitec
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -31,7 +31,8 @@ uses
   MSI_XML_Reports,
   DCPcrypt2,
   DCPrijndael,
-  DCPbase64;
+  DCPbase64,
+  CACIC_Library in '..\CACIC_Library.pas';
 var  p_path_cacic,
      v_CipherKey,
@@ -590,10 +591,19 @@ Begin
   End;
 end;
-var tstrTripa1 : TStrings;
+const
+  CACIC_APP_NAME = 'col_undi';
+
+var
+    tstrTripa1 : TStrings;
     intAux     : integer;
+    oCacic : TCACIC;
+
 begin
-  if (ParamCount>0) then
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
+    if (ParamCount>0) then
     Begin
       For intAux := 1 to ParamCount do
         Begin
@@ -637,7 +647,9 @@ begin
                 SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);
                 CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1);
              End;
-             Halt(0);
           End;
     End;
+
+    oCacic.Free();
+    
 end.
@@ -1,2 +0,0 @@
-03/11 09:39:39 : ======================> Iniciando o Log <=======================
-03/11 09:39:39 : [Gerente de Coletas] Fui chamado com total de 0 parâmetro(s).
@@ -33,3 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
@@ -76,9 +76,9 @@ LocaleToUnicode=1
 ImagebaseMultiple=1
 SuspiciousTypecast=1
 PrivatePropAccessor=1
-UnsafeType=1
-UnsafeCode=1
-UnsafeCast=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
 [Linker]
 MapFile=0
 OutputObjs=0
@@ -113,9 +113,9 @@ RootDir=
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,11 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Módulo Gerente de Coletas do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Ger_COLS
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -34,6 +34,7 @@ uses
   IdBaseComponent,
   IdComponent,
   PJVersionInfo,
+  MSI_Machine,
   MSI_NETWORK,
   MSI_XML_Reports,
   StrUtils,
@@ -46,7 +47,8 @@ uses
   DCPcrypt2,
   DCPrijndael,
   DCPbase64,
-  ZLibEx;
+  ZLibEx,
+  CACIC_Library in '..\CACIC_Library.pas';
 {$APPTYPE CONSOLE}
 var p_path_cacic,
@@ -86,6 +88,8 @@ var v_Debugs,
 var BatchFile,
     Request_Ger_Cols          : TStringList;
+var
+  g_oCacic: TCACIC;
 // Some constants that are dependant on the cipher being used
 // Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)
@@ -224,8 +228,6 @@ end; {DeCompress}
 Function RemoveCaracteresEspeciais(Texto, p_Fill : String; p_start, p_end:integer) : String;
 var I : Integer;
 Begin
-//     if ord(Texto[I]) in [32..126] Then
-//   else strAux := strAux + ' ';  // Coloca um espaço onde houver caracteres especiais
    strAux := '';
    if (Length(trim(Texto))>0) then
      For I := 0 To Length(Texto) Do
@@ -376,10 +378,6 @@ begin
         l_IV    := PadWithZeros(v_IV,BlockSize);
         l_Data  := PadWithZeros(trim(p_Data),BlockSize);
-        //log_DEBUG('Encrypt - HEXA da CHAVE "'+v_CipherKey+'": "'+StringtoHex(l_Key)+'"');
-        //log_DEBUG('Encrypt - HEXA do IV    "'+v_IV+'": "'+StringtoHex(l_IV)+'"');
-        //log_DEBUG('Encrypt - HEXA do DADO  "'+trim(p_Data)+'": "'+StringtoHex(l_Data)+'"');
-
         // Create the cipher and initialise according to the key length
         l_Cipher := TDCP_rijndael.Create(nil);
         if Length(v_CipherKey) <= 16 then
@@ -431,10 +429,6 @@ begin
         // Decode the Base64 encoded string
         l_Data := Base64DecodeStr(trim(v_Data));
-        //log_DEBUG('Decrypt - HEXA da CHAVE "'+v_CipherKey+'": "'+StringtoHex(l_Key)+'"');
-        //log_DEBUG('Decrypt - HEXA do IV    "'+v_IV+'": "'+StringtoHex(l_IV)+'"');
-        //log_DEBUG('Decrypt - HEXA do DADO  "'+trim(p_Data)+'": "'+StringtoHex(l_Data)+'"');
-
         // Create the cipher and initialise according to the key length
         l_Cipher := TDCP_rijndael.Create(nil);
         if Length(v_CipherKey) <= 16 then
@@ -569,12 +563,6 @@ var v_strCipherOpenImploded,
     v_cs_cipher             : boolean;
 begin
    try
-   {
-       log_DEBUG('Valores MemoryDAT salvos e arquivo "'+p_DatFileName+ '" devidamente fechado!');
-        if v_Debugs then
-          for intAux := 0 to (p_tstrCipherOpened.Count-1) do
-            log_DEBUG('Posição ['+inttostr(intAux)+']='+p_tstrCipherOpened[intAux]);
-   }
        FileSetAttr (p_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
        AssignFile(v_DatFile,p_DatFileName); {Associa o arquivo a uma variável do tipo TextFile}
@@ -656,13 +644,6 @@ begin
     if Result.Count mod 2 = 0 then
         Result.Add('');
-    {
-    log_DEBUG(v_DatFileName+' aberto com sucesso!');
-    if v_Debugs then
-      for intLoop := 0 to (Result.Count-1) do
-        log_DEBUG('Posição ['+inttostr(intLoop)+'] do MemoryDAT: '+Result[intLoop]);
-    }
-
 end;
 procedure Apaga_Temps;
@@ -1255,13 +1236,12 @@ Begin
     if (strAux = '') then
         strAux := 'A.B.C.D'; // Apenas para forçar que o Gerente extraia via _SERVER[REMOTE_ADDR]
-    // Tratamentos de valores para tráfego POST:
-    // v_te_so => transformar ' ' em <ESPACE> Razão: o mmcrypt se perde quando encontra ' ' (espaço)
-    v_te_so := StringReplace(v_te_so,' ','<ESPACE>',[rfReplaceAll]);
-
     v_AuxRequest.Values['te_node_address']   := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS'   , v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
     v_AuxRequest.Values['id_so']             := StringReplace(EnCrypt(IntToStr(intAux)                                                  ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
-    v_AuxRequest.Values['te_so']             := StringReplace(EnCrypt(v_te_so                                                           ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
+    // Tratamentos de valores para tráfego POST:
+    // v_te_so => transformar ' ' em <ESPACE> Razão: o mmcrypt se perde quando encontra ' ' (espaço)
+    //v_te_so := StringReplace(v_te_so,' ','<ESPACE>',[rfReplaceAll]);
+    v_AuxRequest.Values['te_so']             := StringReplace(EnCrypt(StringReplace(v_te_so,' ','<ESPACE>',[rfReplaceAll])              ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
     v_AuxRequest.Values['te_ip']             := StringReplace(EnCrypt(strAux                                                            ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
     v_AuxRequest.Values['id_ip_rede']        := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.ID_IP_REDE'        , v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
     v_AuxRequest.Values['te_workgroup']      := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.TE_WORKGROUP'      , v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
@@ -1852,6 +1832,8 @@ var Request_SVG, v_array_campos, v_array_valores, v_Report : TStringList;
     v_mac_address,v_metodo_obtencao,v_nome_arquivo,IpConfigLINHA, v_enderecos_mac_invalidos, v_win_dir, v_dir_command, v_dir_ipcfg, v_win_dir_command, v_win_dir_ipcfg, v_te_serv_cacic : string;
     tstrTripa1, tstrTripa2, tstrTripa3, tstrTripa4, tstrTripa5, tstrEXCECOES : TStrings;
     IpConfigTXT, chksis_ini : textfile;
+
+    v_oMachine : TMiTec_Machine;
     v_TCPIP     : TMiTeC_TCPIP;
     v_NETWORK : TMiTeC_Network;
 Begin
@@ -1859,6 +1841,10 @@ Begin
     ChecaCipher;
     ChecaCompress;
+    v_acao_gercols := 'Instanciando TMiTeC_Machine...';
+    v_oMachine := TMiTec_Machine.Create(nil);
+    v_oMachine.RefreshData();
+
     v_acao_gercols := 'Instanciando TMiTeC_TcpIp...';
     v_TCPIP := TMiTeC_tcpip.Create(nil);
     v_tcpip.RefreshData;
@@ -1869,7 +1855,6 @@ Begin
       Begin
         log_DEBUG('Montando ambiente para busca de configurações...');
         v_Report := TStringList.Create;
-        //v_tcpip.Report(v_Report,false);
         MSI_XML_Reports.TCPIP_XML_Report(v_TCPIP,true,v_Report);
         for intAux1:=0 to v_Report.count-1 do
             Grava_Debugs(v_report[intAux1]);
@@ -1889,7 +1874,7 @@ Begin
     Try v_mac_address      := v_tcpip.Adapter[v_index_ethernet].Address                    except v_mac_address       := ''; end;
     Try te_mascara         := v_tcpip.Adapter[v_index_ethernet].IPAddressMask[0]           except te_mascara          := ''; end;
     Try te_ip              := v_tcpip.Adapter[v_index_ethernet].IPAddress[0]               except te_ip               := ''; end;
-    Try te_nome_host       := v_tcpip.HostName                                             except te_nome_host        := ''; end;
+    Try te_nome_host       := v_oMachine.MachineName                                       except te_nome_host        := ''; end;
     if (v_mac_address='') or (te_ip='') then
       Begin
@@ -1904,7 +1889,6 @@ Begin
         if (v_Debugs) then
           Begin
             v_acao_gercols := 'Gerando Report para TMiTeC_Network...';
-            //v_NETWORK.Report(v_Report,false);
             MSI_XML_Reports.Network_XML_Report(v_NETWORK,true,v_Report);
             for intAux1:=0 to v_Report.count-1 do
@@ -1917,18 +1901,13 @@ Begin
         v_mac_address  := parse('TNetwork','MACAdresses','MACAddress[0]',v_Report);
         te_ip          := parse('TNetwork','IPAddresses','IPAddress[0]',v_Report);
+
         v_Report.Free;
       End;
     // Verifico comunicação com o Módulo Gerente WEB.
     Request_SVG := TStringList.Create;
     Request_SVG.Values['in_teste']          := StringReplace(EnCrypt('OK',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
-    //Request_SVG.Values['te_node_address']   := EnCrypt(v_mac_address,l_cs_compress);
-    //Request_SVG.Values['id_so']             := EnCrypt(inttostr(GetWinVer),l_cs_compress);
-    //Request_SVG.Values['te_so']             := EnCrypt(v_te_so,l_cs_compress);
-    //Request_SVG.Values['id_ip_rede']        := EnCrypt(GetIPRede(te_ip, te_mascara),l_cs_compress);
-    //Request_SVG.Values['te_workgroup']      := EnCrypt(GetWorkgroup,l_cs_compress);
-    //Request_SVG.Values['te_nome_computador']:= EnCrypt(te_nome_host,l_cs_compress);
     v_acao_gercols := 'Preparando teste de comunicação com Módulo Gerente WEB.';
@@ -1972,13 +1951,6 @@ Begin
         // Nova tentativa, preciso reinicializar o objeto devido aos restos da operação anterior... (Eu acho!)  :)
         Request_SVG.Free;
         Request_SVG := TStringList.Create;
-        //Request_SVG.Values['te_node_address']   := EnCrypt(v_mac_address,l_cs_compress);
-        //Request_SVG.Values['id_so']             := EnCrypt(inttostr(GetWinVer),l_cs_compress);
-        //Request_SVG.Values['te_so']             := EnCrypt(v_te_so,l_cs_compress);
-        //Request_SVG.Values['id_ip_rede']        := EnCrypt(GetIPRede(te_ip, te_mascara),l_cs_compress);
-        //Request_SVG.Values['te_workgroup']      := EnCrypt(GetWorkgroup,l_cs_compress);
-        //Request_SVG.Values['te_nome_computador']:= EnCrypt(te_nome_host,l_cs_compress);
-        //Request_SVG.Values['te_ip']             := EnCrypt(te_ip,l_cs_compress);
         Request_SVG.Values['in_teste']          := StringReplace(EnCrypt('OK',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
         Try
           strRetorno := ComunicaServidor('get_config.php', Request_SVG, 'Teste de comunicação com o Módulo Gerente WEB.');
@@ -2112,10 +2084,10 @@ Begin
     if (not p_mensagem_log) then v_mensagem_log := '';
   // Caso a obtenção dos dados de TCP via MSI_NETWORK/TCP tenha falhado...
-  if (v_mac_address='') or (te_mascara='')    or (te_ip='')           or (te_gateway='') or
-     (te_nome_host='')  or (te_serv_dhcp='' ) or (te_dns_primario='') or (te_wins_primario='') or
-     (te_wins_secundario='') then
-    Begin
+  // (considerado falha somente se v_mac_address, te_ip ou v_te_so forem nulos
+  //  por serem chaves - demais valores devem ser avaliados pelo administrador)
+
+  if (v_mac_address='') or (te_ip='') then begin
       v_nome_arquivo    := p_path_cacic + 'Temp\ipconfig.txt';
       v_metodo_obtencao := 'WMI Object';
       v_acao_gercols    := 'Criando batch para obtenção de IPCONFIG via WMI...';
@@ -2160,6 +2132,7 @@ Begin
          if ChecaAgente(p_path_cacic + 'modulos', v_scripter) then
            WinExec(PChar(p_path_cacic + 'modulos\' + v_scripter + ' //b ' + p_path_cacic + 'temp\ipconfig.vbs'), SW_HIDE);
+
       Except
         Begin
           log_diario('Erro na geração do ipconfig.txt pelo ' + v_metodo_obtencao+'.');
@@ -2170,7 +2143,8 @@ Begin
       sleep(5000);
       v_Tamanho_Arquivo := Get_File_Size(p_path_cacic + 'Temp\ipconfig.txt',true);
-      if not (FileExists(p_path_cacic + 'Temp\ipconfi1.txt')) or (v_Tamanho_Arquivo='0')  then // O arquivo ipconfig.txt foi gerado vazio, tentarei IPConfig ou WinIPcfg!
+      // O arquivo ipconfig.txt foi gerado vazio, tentarei IPConfig ou WinIPcfg!
+      if not (FileExists(p_path_cacic + 'Temp\ipconfi1.txt')) or (v_Tamanho_Arquivo='0')  then
         Begin
           Try
              v_win_dir          := PegaWinDir(nil);
@@ -2289,11 +2263,18 @@ Begin
            if (te_wins_primario='')   then Try te_wins_primario   := PegaDadosIPConfig(v_array_campos,v_array_valores,'servidor,wins,prim;wins,server,primary','')              Except te_wins_primario   := ''; end;
            if (te_wins_secundario='') then Try te_wins_secundario := PegaDadosIPConfig(v_array_campos,v_array_valores,'servidor,wins,secund;wins,server,secondary','')          Except te_wins_secundario := ''; end;
-           if ((GetWinVer <> 0) and (GetWinVer > 5)) or
-              (abstraiCSD(v_te_so) >= 250) then //Se NT/2K/XP
-             Try te_dominio_windows := PegaDadosIPConfig(v_array_campos,v_array_valores,'usu,rio,logado;usu,rio,logado','')                                                                                Except te_dominio_windows := 'Não Identificado'; end
+           if (g_oCacic.isWindowsNT()) then //Se NT/2K/XP
+             Try
+                te_dominio_windows := PegaDadosIPConfig(v_array_campos,v_array_valores,'usu,rio,logado;usu,rio,logado','')
+             Except
+                te_dominio_windows := 'Não Identificado';
+             end
            else
-             Try te_dominio_windows := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider\AuthenticatingAgent') + '@' + GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Network\Logon\username') Except te_dominio_windows := 'Não Identificado'; end
+             Try
+                te_dominio_windows := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider\AuthenticatingAgent') + '@' + GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Network\Logon\username')
+             Except te_dominio_windows := 'Não Identificado';
+             end;
+
         End // fim do Begin
       Else
         Begin
@@ -2352,6 +2333,13 @@ Begin
     // O cálculo para obtenção deste parâmetro poderá ser feito pelo módulo Gerente Web através do script get_config.php
     // if (trim(v_mascara)='') then v_mascara := '255.255.255.0';
+    if(te_ip<>'') then
+      try
+        SetValorDatMemoria('TcpIp.TE_IP',te_ip, v_tstrCipherOpened);
+      except
+         log_diario('Erro setando TE_IP.');
+      end;
+
     try
       if (trim(GetIPRede(te_ip, te_mascara))<>'') then
       SetValorDatMemoria('TcpIp.ID_IP_REDE',GetIPRede(te_ip, te_mascara), v_tstrCipherOpened);
@@ -2359,19 +2347,16 @@ Begin
        log_diario('Erro setando IP_REDE.');
     end;
+    if( (v_te_so<>'') and (v_mac_address<>'') and (te_ip<>'') ) // Verifica dados chave para controles
+       then log_diario('Dados de rede usados: SO=' + v_te_so + ' MAC=' + v_mac_address + ' IP=' + te_ip)
+       else log_diario('Erro na obtenção de dados de rede: SO=' + v_te_so + ' MAC=' + v_mac_address + ' IP=' + te_ip);
+
     try
       SetValorDatMemoria('TcpIp.TE_NODE_ADDRESS',StringReplace(v_mac_address,':','-',[rfReplaceAll]), v_tstrCipherOpened);
     except
        log_diario('Erro setando NODE_ADDRESS.');
     end;
-    // Esta atribuição foi realizada no teste de comunicação mais acima
-    //Try
-    //  SetValorDatMemoria('TcpIp.TE_IP',TE_IP, v_tstrCipherOpened);
-    //except
-    //  log_diario('Erro setando IP.');
-    //End;
-
     Try
       SetValorDatMemoria('TcpIp.TE_NOME_HOST',TE_NOME_HOST, v_tstrCipherOpened);
     Except
@@ -2395,13 +2380,6 @@ Begin
             // Passei a enviar sempre a versão do CACIC...
             // Solicito do servidor a configuração que foi definida pelo administrador do CACIC.
             Request_SVG := TStringList.Create;
-            //Request_SVG.Values['te_node_address']    := EnCrypt(GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS'   , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['id_so']              := EnCrypt(GetValorDatMemoria('Configs.ID_SO'           , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_so']              := EnCrypt(v_te_so,l_cs_compress);
-            //Request_SVG.Values['id_ip_rede']         := EnCrypt(GetValorDatMemoria('TcpIp.ID_IP_REDE'        , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_nome_computador'] := EnCrypt(GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_ip']              := EnCrypt(GetValorDatMemoria('TcpIp.TE_IP'             , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_workgroup']       := EnCrypt(GetValorDatMemoria('TcpIp.TE_WORKGROUP'      , v_tstrCipherOpened),l_cs_compress);
             //Tratamento de Sistemas Monitorados
             intAux4 := 1;
@@ -2425,7 +2403,6 @@ Begin
                 intAux4 := intAux4 + 1;
               end; //While
-             // Request_SVG.Values['te_tripa_perfis']       := strTripa;
              // Proposital, para forçar a chegada dos perfis, solução temporária...
              Request_SVG.Values['te_tripa_perfis']       := StringReplace(EnCrypt('',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
@@ -2461,13 +2438,6 @@ Begin
                   // Solicito do servidor a configuração que foi definida pelo administrador do CACIC.
                   Request_SVG.Free;
                   Request_SVG := TStringList.Create;
-                  //Request_SVG.Values['te_node_address']    := EnCrypt(GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS'   , v_tstrCipherOpened),l_cs_compress);
-                  //Request_SVG.Values['id_so']              := EnCrypt(GetValorDatMemoria('Configs.ID_SO'           , v_tstrCipherOpened),l_cs_compress);
-                  //Request_SVG.Values['te_so']              := EnCrypt(v_te_so,l_cs_compress);
-                  //Request_SVG.Values['id_ip_rede']         := EnCrypt(GetValorDatMemoria('TcpIp.ID_IP_REDE'        , v_tstrCipherOpened),l_cs_compress);
-                  //Request_SVG.Values['te_nome_computador'] := EnCrypt(GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', v_tstrCipherOpened),l_cs_compress);
-                  //Request_SVG.Values['te_ip']              := EnCrypt(GetValorDatMemoria('TcpIp.TE_IP'             , v_tstrCipherOpened),l_cs_compress);
-                  //Request_SVG.Values['te_workgroup']       := EnCrypt(GetValorDatMemoria('TcpIp.TE_WORKGROUP'      , v_tstrCipherOpened),l_cs_compress);
                   Request_SVG.Values['te_tripa_perfis']    := StringReplace(EnCrypt('',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
                   strRetorno := ComunicaServidor('get_config.php', Request_SVG, v_mensagem_log);
                   Seta_l_cs_cipher(strRetorno);
@@ -2575,8 +2545,7 @@ Begin
             if (te_dominio_windows = '') then
               Begin
                 Try
-                  if ((GetWinVer <> 0) and (GetWinVer > 5)) or
-                     (abstraiCSD(v_te_so) >= 250) then //Se NT/2K/XP
+                  if (g_oCacic.isWindowsNT()) then //Se NT/2K/XP
                      te_dominio_windows := GetNetworkUserName + '@' + GetDomainName
                   else
                      te_dominio_windows := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Network\Logon\username')+ '@' + GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider\AuthenticatingAgent');
@@ -2585,13 +2554,6 @@ Begin
               End;
             Request_SVG := TStringList.Create;
-            //Request_SVG.Values['te_node_address']    := EnCrypt(GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS'   , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['id_so']              := EnCrypt(GetValorDatMemoria('Configs.ID_SO'           , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_so']              := EnCrypt(v_te_so,l_cs_compress);
-            //Request_SVG.Values['id_ip_rede']         := EnCrypt(GetValorDatMemoria('TcpIp.ID_IP_REDE'        , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_nome_computador'] := EnCrypt(GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_ip']              := EnCrypt(GetValorDatMemoria('TcpIp.TE_IP'             , v_tstrCipherOpened),l_cs_compress);
-            //Request_SVG.Values['te_workgroup']       := EnCrypt(GetValorDatMemoria('TcpIp.TE_WORKGROUP'      , v_tstrCipherOpened),l_cs_compress);
             Request_SVG.Values['te_mascara']         := StringReplace(EnCrypt(te_mascara,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
             Request_SVG.Values['te_gateway']         := StringReplace(EnCrypt(te_gateway,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
             Request_SVG.Values['te_serv_dhcp']       := StringReplace(EnCrypt(te_serv_dhcp,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
@@ -2693,8 +2655,7 @@ Begin
                 Begin
                   v_acao_gercols := 'Configurando diretório para o CACIC. (Registry para w95/95OSR2/98/98SE/ME)';
                   // Identifico a versão do Windows
-                  If ((GetWinVer <> 0) and (GetWinVer <= 5)) or
-                     (abstraiCSD(v_te_so) < 250) then
+                  If (g_oCacic.isWindows9xME()) then
                     begin
                     //Se for 95/95OSR2/98/98SE/ME faço aqui...  (Em NT Like isto é feito no LoginScript)
                     SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\cacic2', Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux))))) + '\cacic2.exe');
@@ -2957,8 +2918,6 @@ Begin
                                   Request_Ger_Cols.Values['in_chkcacic']   := StringReplace(EnCrypt('chkcacic',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);
                                   Request_Ger_Cols.Values['te_fila_ftp']   := StringReplace(EnCrypt('2',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); // Indicará sucesso na operação de FTP e liberará lugar para o próximo
                                   Request_Ger_Cols.Values['id_ftp']        := StringReplace(EnCrypt(GetValorDatMemoria('Configs.ID_FTP',v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); // Indicará sucesso na operação de FTP e liberará lugar para o próximo
-                                  //Request_Ger_Cols.Values['te_so']         := EnCrypt(v_te_so,l_cs_compress);
-                                  //Request_Ger_Cols.Values['id_ip_estacao'] := EnCrypt(GetIP,l_cs_compress); // Informará o IP para registro na tabela redes_grupos_FTP
                                   ComunicaServidor('get_config.php', Request_Ger_Cols, '>> Liberando Grupo FTP!...');
                                   Request_Ger_Cols.Free;
                                   SetValorDatMemoria('Configs.ID_FTP','', v_tstrCipherOpened)
@@ -3382,83 +3341,93 @@ Begin
 End;
+const
+   CACIC_APP_NAME = 'ger_cols';
+
 begin
-  Try
-  // Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.DAT
-  tstrTripa1   := explode(ExtractFilePath(ParamStr(0)),'\');
-  p_path_cacic := '';
-  For intAux := 0 to tstrTripa1.Count -2 do
-      p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';
-
-  v_Debugs := false;
-  if DirectoryExists(p_path_cacic + 'Temp\Debugs') then
-    Begin
-      if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
-        Begin
-          v_Debugs := true;
-          log_DEBUG('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
-        End;
-    End;
+   g_oCacic := TCACIC.Create();
-    For intAux := 1 to ParamCount do
-      if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then
-        Begin
-          v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux)))));
-          log_DEBUG('Parâmetro para cifragem recebido.');
-        End;
+   if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then begin
+     Try
+       // Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.DAT
+       tstrTripa1   := explode(ExtractFilePath(ParamStr(0)),'\');
+       p_path_cacic := '';
+       For intAux := 0 to tstrTripa1.Count -2 do
+           p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';
-    // Caso tenha sido invocado por um CACIC2.EXE versão antiga, assumo o valor abaixo...
-    // Solução provisória até a convergência das versões do Agente Principal e do Gerente de Coletas
-    if (trim(v_CipherKey)='') then v_CipherKey := 'CacicBrasil';
+       g_oCacic.setCacicPath(p_path_cacic);
-    if (trim(v_CipherKey)<>'') then
-      Begin
-        v_IV := 'abcdefghijklmnop';
+       // Obtem a string de identificação do SO (v_te_so), para uso nas comunicações com o Gerente WEB.
+       v_te_so := g_oCacic.getWindowsStrId();
-        // De acordo com a versão do OS, determino o ShellCommand para chamadas externas.
-        p_Shell_Command := 'command.com /c ';
-        if ((GetWinVer <> 0) and (GetWinVer > 5)) or
-           (abstraiCSD(v_te_so) >= 250) then p_Shell_Command := 'cmd.exe /c '; //NT/2K/XP
+       v_Debugs := false;
+       if DirectoryExists(p_path_cacic + 'Temp\Debugs') then
+           if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
+          Begin
+            v_Debugs := true;
+            log_DEBUG('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
+          End;
-        if not DirectoryExists(p_path_cacic + 'Temp') then
-          ForceDirectories(p_path_cacic + 'Temp');
+        For intAux := 1 to ParamCount do
+          if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then
+            Begin
+              v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux)))));
+              log_DEBUG('Parâmetro para cifragem recebido.');
+            End;
-        // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.
-        v_DatFileName      := p_path_cacic + 'cacic2.dat';
-        v_tstrCipherOpened := TStrings.Create;
-        v_tstrCipherOpened := CipherOpen(v_DatFileName);
+        // Caso tenha sido invocado por um CACIC2.EXE versão antiga, assumo o valor abaixo...
+        // Solução provisória até a convergência das versões do Agente Principal e do Gerente de Coletas
+        if (trim(v_CipherKey)='') then
+           v_CipherKey := 'CacicBrasil';
-        // Não tirar desta posição
-        SetValorDatMemoria('Configs.ID_SO',IntToStr(GetWinVer), v_tstrCipherOpened);
+        if (trim(v_CipherKey)<>'') then
+          Begin
+            v_IV := 'abcdefghijklmnop';
-        v_scripter := 'wscript.exe';
-        // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando este estiver em funcionamento
-        AssignFile(v_Aguarde,p_path_cacic + 'temp\aguarde_GER.txt'); {Associa o arquivo a uma variável do tipo TextFile}
-        {$IOChecks off}
-        Reset(v_Aguarde); {Abre o arquivo texto}
-        {$IOChecks on}
-        if (IOResult <> 0) then // Arquivo não existe, será recriado.
-          Rewrite (v_Aguarde);
+           // De acordo com a versão do OS, determina-se o ShellCommand para chamadas externas.
+           p_Shell_Command := 'cmd.exe /c '; //NT/2K/XP
+           if(g_oCacic.isWindows9xME()) then
+              p_Shell_Command := 'command.com /c ';
-        Append(v_Aguarde);
-        Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ger_Cols');
-        Append(v_Aguarde);
+           if not DirectoryExists(p_path_cacic + 'Temp') then
+             ForceDirectories(p_path_cacic + 'Temp');
-        ChecaCipher;
-        ChecaCompress;
+           // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.
+           v_DatFileName      := p_path_cacic + 'cacic2.dat';
+           v_tstrCipherOpened := TStrings.Create;
+           v_tstrCipherOpened := CipherOpen(v_DatFileName);
-        // Provoco a alimentação da variável v_te_so, para uso nas comunicações com o Gerente WEB.
-        GetWinVer;
+           // Não tirar desta posição
+           SetValorDatMemoria('Configs.ID_SO',IntToStr(GetWinVer), v_tstrCipherOpened);
-        Executa_Ger_Cols;
-        Finalizar(true);
-      End;
-  Except
-    Begin
-     log_diario('PROBLEMAS EM EXECUTA_GER_COLS! Ação: ' + v_acao_gercols+'.');
-     CriaTXT(p_path_cacic,'ger_erro');
-     Finalizar(false);
-     SetValorDatMemoria('Erro_Fatal_Descricao', v_acao_gercols, v_tstrCipherOpened);
-    End;
-  End;
+           v_scripter := 'wscript.exe';
+           // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando este estiver em funcionamento
+           AssignFile(v_Aguarde,p_path_cacic + 'temp\aguarde_GER.txt'); {Associa o arquivo a uma variável do tipo TextFile}
+           {$IOChecks off}
+           Reset(v_Aguarde); {Abre o arquivo texto}
+           {$IOChecks on}
+           if (IOResult <> 0) then // Arquivo não existe, será recriado.
+             Rewrite (v_Aguarde);
+
+           Append(v_Aguarde);
+           Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ger_Cols');
+           Append(v_Aguarde);
+
+           ChecaCipher;
+           ChecaCompress;
+
+           Executa_Ger_Cols;
+           Finalizar(true);
+          End;
+       Except
+         Begin
+           log_diario('PROBLEMAS EM EXECUTA_GER_COLS! Ação: ' + v_acao_gercols+'.');
+           CriaTXT(p_path_cacic,'ger_erro');
+           Finalizar(false);
+           SetValorDatMemoria('Erro_Fatal_Descricao', v_acao_gercols, v_tstrCipherOpened);
+         End;
+     End;
+   End;
+
+   g_oCacic.Free();
 end.
@@ -1,118 +0,0 @@
-(**
----------------------------------------------------------------------------------------------------------------------------------------------------------------
-Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
-
-Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
-
-O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
-publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
-
-Este programa é distribuido na esperança que possa ser  util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
-MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
-
-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
-Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
----------------------------------------------------------------------------------------------------------------------------------------------------------------
-*)
-
-unit utils;
-
-interface
-
-Uses Classes, SysUtils, Windows, TLHELP32;
-
-Function Explode(Texto, Separador : String) : TStrings;
-Function RemoveCaracteresEspeciais(Texto : String) : String;
-function ProgramaRodando(NomePrograma: String): Boolean;
-function LastPos(SubStr, S: string): Integer;
-function Get_File_Size(sFileToExamine: string; bInKBytes: Boolean): string;
-
-implementation
-
-function Get_File_Size(sFileToExamine: string; bInKBytes: Boolean): string;
-var
-  SearchRec: TSearchRec;
-  sgPath: string;
-  inRetval, I1: Integer;
-begin
-  sgPath := ExpandFileName(sFileToExamine);
-  try
-    inRetval := FindFirst(ExpandFileName(sFileToExamine), faAnyFile, SearchRec);
-    if inRetval = 0 then
-      I1 := SearchRec.Size
-    else
-      I1 := -1;
-  finally
-    SysUtils.FindClose(SearchRec);
-  end;
-  Result := IntToStr(I1);
-end;
-
-function LastPos(SubStr, S: string): Integer;
-var
-  Found, Len, Pos: integer;
-begin
-  Pos := Length(S);
-  Len := Length(SubStr);
-  Found := 0;
-  while (Pos > 0) and (Found = 0) do
-  begin
-    if Copy(S, Pos, Len) = SubStr then
-      Found := Pos;
-    Dec(Pos);
-  end;
-  LastPos := Found;
-end;
-Function Explode(Texto, Separador : String) : TStrings;
-var
-    strItem : String;
-    ListaAuxUTILS : TStrings;
-    NumCaracteres, I : Integer;
-Begin
-    ListaAuxUTILS := TStringList.Create;
-    strItem := '';
-    NumCaracteres := Length(Texto);
-    For I := 0 To NumCaracteres Do
-    If (Texto[I] = Separador) or (I = NumCaracteres) Then
-    Begin
-       If (I = NumCaracteres) then strItem := strItem + Texto[I];
-       ListaAuxUTILS.Add(Trim(strItem));
-       strItem := '';
-    end
-    Else strItem := strItem + Texto[I];
-      Explode := ListaAuxUTILS;
-end;
-
-
-Function RemoveCaracteresEspeciais(Texto : String) : String;
-var I : Integer;
-    strAux : String;
-Begin
-   For I := 0 To Length(Texto) Do
-     if ord(Texto[I]) in [32..126] Then
-           strAux := strAux + Texto[I]
-     else strAux := strAux + ' ';  // Coloca um espaço onde houver caracteres especiais
-   Result := strAux;
-end;
-
-
-function ProgramaRodando(NomePrograma: String): Boolean;
-var
-  IsRunning, ContinueTest: Boolean;
-  FSnapshotHandle: THandle;
-  FProcessEntry32: TProcessEntry32;
-begin
-  IsRunning := False;
-  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
-  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
-  ContinueTest := Process32First(FSnapshotHandle, FProcessEntry32);
-  while ContinueTest do
-  begin
-    IsRunning :=  UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(NomePrograma);
-    if IsRunning then  ContinueTest := False
-    else ContinueTest := Process32Next(FSnapshotHandle, FProcessEntry32);
-  end;
-  CloseHandle(FSnapshotHandle);
-  Result := IsRunning;
-end;
-end.
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+SearchPath=
 Packages=dclact
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,22 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-Unidade Regional Espírito Santo
 FileDescription=Inicializador de Coletas do Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=Ini_COLS
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na licença GPL (General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=3
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
-Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -27,8 +27,8 @@ uses
   PJVersionInfo,
   DCPcrypt2,
   DCPrijndael,
-  DCPbase64;
-
+  DCPbase64,
+  CACIC_Library in '..\CACIC_Library.pas';
 var p_path_cacic,
     v_te_senha_login_serv_updates,
@@ -410,9 +410,17 @@ begin
   End;
 end;
+const
+   CACIC_APP_NAME = 'ini_cols';
+
+var
+   oCacic : TCACIC;
 begin
-  if (ParamCount>0) then // A passagem da chave EAS é mandatória...
+   oCacic := TCACIC.Create();
+
+   if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
+    if (ParamCount>0) then // A passagem da chave EAS é mandatória...
     Begin
        For intAux := 1 to ParamCount do
           Begin
@@ -545,4 +553,5 @@ begin
              end;
           End;
     End;
+    oCacic.Free();
 end.
@@ -41,7 +41,8 @@ uses  Windows,
       IdTCPServer,
       IdCustomHTTPServer,
       IdHTTPServer,
-      IdFTPServer;
+      IdFTPServer,
+      CACIC_Library;
 const WM_MYMESSAGE = WM_USER+100;
@@ -471,13 +472,6 @@ begin
       log_DEBUG('Posição ['+inttostr(intAux)+']='+v_tstrCipherOpened[intAux]);
    try
-       {
-       v_Tamanho_Arquivo := Get_File_Size(v_DatFileName,true);
-
-       if (v_Tamanho_Arquivo = '0') or
-          (v_Tamanho_Arquivo = '-1') then FormularioGeral.Matar(p_path_cacic,'cacic2.dat');
-       }
-
        FileSetAttr (v_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
        log_DEBUG('Localizando arquivo: '+v_DatFileName);
@@ -486,16 +480,6 @@ begin
        log_DEBUG('Abrindo arquivo: '+v_DatFileName);
        ReWrite(v_DatFile); {Abre o arquivo texto}
        {$IOChecks on}
-       {
-       if (IOResult <> 0) then // Arquivo não existe, será recriado.
-          begin
-            if v_Debugs then log_DEBUG('Recriando arquivo: '+v_DatFileName);
-            Rewrite (v_DatFile);
-            if v_Debugs then log_DEBUG('Append(1) no arquivo: '+v_DatFileName);
-            Append(v_DatFile);
-          end
-       else
-       }
        log_DEBUG('Append(2) no arquivo: '+v_DatFileName);
        Append(v_DatFile);
        log_DEBUG('Criando vetor para criptografia.');
@@ -591,12 +575,6 @@ begin
         if Result.Count mod 2 = 0 then
             Result.Add('');
-        {
-        log_DEBUG(v_DatFileName+' aberto com sucesso!');
-        if v_Debugs then
-          for intAux := 0 to (v_tstrCipherOpened.Count-1) do
-            log_DEBUG('Posição ['+inttostr(intAux)+'] do MemoryDAT: '+Result[intAux]);
-        }
     End
   else log_DEBUG('Cacic2.dat ainda não alterado! Não foi necessário reabrí-lo.');
 end;
@@ -1040,16 +1018,17 @@ var strAux,
     intAux : integer;
     v_Aguarde : TextFile;
     v_SystemDrive : TStrings;
+    oCacic : TCACIC;
 begin
       // Não mostrar o formulário...
       Application.ShowMainForm:=false;
+      oCacic := TCACIC.Create;
+      oCacic.showTrayIcon(false);
       Try
          // De acordo com a versão do OS, determino o ShellCommand para chamadas externas.
-         if ((GetWinVer <> 0) and (GetWinVer > 5)) or
-              (abstraiCSD(v_te_so) >= 250) then //Se NT/2K/XP... then
+         if (oCacic.isWindowsNTPlataform()) then //Se NT/2K/XP... then
           Begin
-            //p_Shell_Command := GetEnvironmentVariable('SYSTEMROOT') + '\system32\cmd.exe /c '; //NT/2K/XP
             p_Shell_Path    := HomeDrive + '\system32\'; //NT/2K/XP
             p_Shell_Command := 'cmd.exe'; //NT/2K/XP
             strAux := HomeDrive + '\';  //Ex.: c:\windows\
@@ -1058,7 +1037,6 @@ begin
           Begin
             v_windir := GetEnvironmentVariable('windir');
             if (trim(v_windir) <> '') then v_windir := v_windir + '\';
-            //p_Shell_Command := v_windir + 'command.com /c ';
             p_Shell_Path    := v_windir;
             p_Shell_Command := 'command.com';
             strAux := GetEnvironmentVariable('windir') + '\';  //Ex.: c:\windows\
@@ -1206,7 +1184,7 @@ begin
               // Envia o ícone para a bandeja com HINT mostrando Versão...
               strFraseVersao := 'CACIC  V:' + getVersionInfo(ParamStr(0));
               if not (getValorDatMemoria('TcpIp.TE_IP',v_tstrCipherOpened) = '') then
-                strFraseVersao := strFraseVersao + #13#10 + 'IP: '+ getValorDatMemoria('TcpIp.TE_IP',v_tstrCipherOpened);
+                strFraseVersao := strFraseVersao + char(13) + char(10) + 'IP: '+ getValorDatMemoria('TcpIp.TE_IP',v_tstrCipherOpened);
               pnVersao.Caption := 'V. ' + getVersionInfo(ParamStr(0));
               InicializaTray(strFraseVersao);
               CipherClose;
@@ -1214,11 +1192,24 @@ begin
          else
             Begin
               log_DEBUG('Agente finalizado devido a concomitância de sessões...');
+
+              // Libera memoria referente ao objeto oCacic
+              try
+                oCacic.Free;
+              except
+              end;
+
               Finaliza;
             End;
       Except
         log_diario('PROBLEMAS NA INICIALIZAÇÃO (2)');
       End;
+
+      // Libera memoria referente ao objeto oCacic
+      try
+         oCacic.Free;
+      except
+      end;
 end;
 procedure TFormularioGeral.SetaVariaveisGlobais;
@@ -1545,58 +1536,7 @@ begin
                   Invoca_GerCols(nil,'UpdatePrincipal');
                   log_diario('Finalizando... (Atualização em aproximadamente 20 segundos).');
                   Finaliza;
-                  {
-                  // O método abaixo foi descartado devido à janela MS-DOS que em algumas máquinas
-                  // permaneciam abertas e minimizadas e, em alguns casos, escureciam totalmente a tela do usuário,
-                  // causando muito descontentamento!  :|
-                  FileSetAttr(p_path_cacic + 'cacic2.exe', 0);
-                  Batchfile := TStringList.Create;
-                  Batchfile.Add('@echo off');
-                  Batchfile.Add(':Label1');
-                  Batchfile.Add('del ' + p_path_cacic + 'cacic2.exe');
-                  Batchfile.Add('if Exist ' + p_path_cacic + 'cacic2.exe goto Label1');
-                  Batchfile.Add('move ' + p_path_cacic + 'temp\cacic2.exe ' + p_path_cacic + 'cacic2.exe');
-                  Batchfile.Add(p_path_cacic + 'cacic2.exe /atualizacao');
-                  Batchfile.SaveToFile(p_path_cacic + 'Temp\cacic2.bat');
-                  BatchFile.Free;
-                  log_diario('* Atualizando versão do módulo Principal');
-                  Shell_NotifyIcon(NIM_Delete,@NotifyStruc);
-                  Shell_NotifyIcon(NIM_MODIFY,@NotifyStruc);
-                  Executa(p_Shell_Path + p_Shell_Command + 'Temp\cacic2.bat /c',SW_HIDE);
-                  FreeMemory(0);
-                  Halt(0);
-                  }
-                End;
-
-                {
-                // Não usar VBS pois, o processo morre quando o CACIC é finalizado.
-                // E também pela dependência do WSH, certo?!!  :|
-                Begin
-                  main.frmMain.log_diario('* Atualizando versão do módulo Principal');
-                  FileSetAttr(p_path_cacic + 'cacic2.exe', 0);
-                  Batchfile := TStringList.Create;
-                  Batchfile.Add('Dim fso,fsoDEL,v_pausa,WshShell');
-                  Batchfile.Add('Set fsoDEL = CreateObject("Scripting.FileSystemObject")');
-                  Batchfile.Add('While (fsoDEL.FileExists("'+p_path_cacic+'cacic2.exe"))');
-                  Batchfile.Add('   fsoDEL.DeleteFile("'+p_path_cacic+'cacic2.exe")');
-                  Batchfile.Add('Wend');
-                  Batchfile.Add('Set fso = CreateObject("Scripting.FileSystemObject")');
-                  Batchfile.Add('fso.MoveFile ' + p_path_cacic + 'temp\cacic2.exe, "' + p_path_cacic + 'cacic2.exe"');
-                  Batchfile.Add('Set WshShell = WScript.CreateObject("WScript.Shell")');
-                  Batchfile.Add('WshShell.Run "' + p_path_cacic + 'cacic2.exe /atualizacao",10,FALSE');
-                  Batchfile.Add('For v_pausa = 1 to 5000:next');
-                  Batchfile.Add('WScript.Quit');
-                  Batchfile.SaveToFile(p_path_cacic + 'Temp\cacic2.vbs');
-                  Batchfile.SaveToFile(p_path_cacic + 'Temp\cacic21.vbs');
-                  BatchFile.Free;
-                  Executa_VBS('cacic2');
-                  Shell_NotifyIcon(NIM_Delete,@NotifyStruc);
-                  Shell_NotifyIcon(NIM_MODIFY,@NotifyStruc);
-                  FreeMemory(0);
-                  Halt(0);
-                  Application.Terminate;
                 End;
-              }
               // A existência de "temp\cacic2.bat" significa AutoUpdate já executado!
               // Essa verificação foi usada no modelo antigo de AutoUpdate e deve ser mantida
@@ -185,6 +185,7 @@ object frmAcesso: TfrmAcesso
     Width = 100
     Height = 30
     Caption = 'Acessar'
+    Default = True
     Enabled = False
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -84,7 +84,7 @@ begin
       str_local_Aux := trim(frmMapaCacic.DeCrypt(frmMapaCacic.XML_RetornaValor('TE_VERSAO_MAPA',strRetorno)));
       if (str_local_Aux <> '') then
         Begin
-          MessageDLG(#13#10#13#10+'ATENÇÃO! Foi disponibilizada a versão "'+str_local_Aux+'".'+#13#10#13#10#13#10+'Efetue o download acessando http://www-cacic, na opção Repositório.'+#13#10#13#10,mtInformation,[mbOK],0);
+          MessageDLG(#13#10#13#10+'ATENÇÃO! Foi disponibilizada a versão "'+str_local_Aux+'".'+#13#10#13#10+'Acesse o gerente cacic na opção "Repositório" e baixe o programa "MapaCACIC"!'+#13#10,mtWarning,[mbOK],0);
           btCancela.Click;
         End;
@@ -97,12 +97,12 @@ begin
         End
       else
         Begin
-          str_local_Aux := 'Usuário/Senha Incorretos ou Nível de Acesso Não Permitido!';
+          str_local_Aux := 'Usuário/Senha incorretos ou Nível de acesso não permitido!';
         End
     End
   else
     Begin
-      str_local_Aux := 'Problemas na Comunicação!';
+      str_local_Aux := 'Problemas na comunicação!';
     End;
   lbMsg_Erro_Senha.Caption := str_local_Aux;
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,24 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Dataprev-ES
 FileDescription=MapaCacic - Módulo Avulso para Coleta de Informações Patrimoniais para o Sistema CACIC
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=Baseado na Licença GPL(General Public License)
 [HistoryLists\hlDebugSourcePath]
-Count=1
-Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=5
-Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
-Item1=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
-Item2=C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
-Item3=C:\Arquivos de programas\Borland\Delphi7\mitec;C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item4=C:\Arquivos de programas\Borland\Delphi7\mitec
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -19,15 +19,42 @@ program MapaCacic;
 uses
   Forms,
+  Windows,
   main_mapa in 'main_mapa.pas' {frmMapaCacic},
   LibXmlParser in 'LibXmlParser.pas',
   XML in 'xml.pas',
-  acesso in 'acesso.pas' {frmAcesso};
+  acesso in 'acesso.pas' {frmAcesso},
+  CACIC_Library in '..\CACIC_Library.pas';
 {$R *.res}
+const
+  CACIC_APP_NAME = 'MapaCacic';
+
+var
+  hwind:HWND;
+  oCacic : TCACIC;
+
 begin
-  Application.Initialize;
-  Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
-  Application.Run;
+   oCacic := TCACIC.Create();
+   
+   if( oCacic.isAppRunning( CACIC_APP_NAME ) )
+     then begin
+        hwind := 0;
+        repeat			// The string 'My app' must match your App Title (below)
+           hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );
+        until (hwind<>Application.Handle);
+        IF (hwind<>0) then
+        begin
+           Windows.ShowWindow(hwind,SW_SHOWNORMAL);
+           Windows.SetForegroundWindow(hwind);
+        end;
+        FreeMemory(0);
+     end
+     else begin
+        Application.Initialize;
+        Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
+        Application.Run;
+     end;
+     oCacic.Free();
 end.
@@ -33,7 +33,3 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Mitec\D7"
--O"C:\Arquivos de programas\Borland\Delphi7\Mitec\D7"
--I"C:\Arquivos de programas\Borland\Delphi7\Mitec\D7"
--R"C:\Arquivos de programas\Borland\Delphi7\Mitec\D7"
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Documents and Settings\d306851\Desktop\MiTeC\Demos\1\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=708
 Debug=0
 PreRelease=0
 Special=0
@@ -126,10 +126,33 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=2.4.0.601
+FileVersion=2.6.0.708
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=10
+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -33,10 +33,6 @@
 -K$00400000
 -LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
 -LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
--U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
--R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
@@ -94,10 +94,10 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+SearchPath=
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k
 Conditionals=
-DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
@@ -113,9 +113,9 @@ RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
-MinorVer=4
+MinorVer=6
 Release=0
-Build=601
+Build=704
 Debug=0
 PreRelease=0
 Special=0
@@ -126,22 +126,34 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=2.4.0.601
+FileVersion=2.6.0.704
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=2.4.0.371
+ProductVersion=2.6.0
 Comments=
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=3
+Count=10
 Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
 Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
-Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Repositorio
+Item1=Repositorio
@@ -0,0 +1,460 @@		@@ -0,0 +1,460 @@
	1	+{*------------------------------------------------------------------------------
	2	+ Package of both methods/properties to be used by CACIC Clients
	3	+
	4	+ @version CACIC_Library 2009-01-07 23:00 harpiain
	5	+ @package CACIC_Agente
	6	+ @subpackage CACIC_Library
	7	+ @author Adriano dos Santos Vieira <harpiain at gmail.com>
	8	+ @copyright Copyright (C) Adriano dos Santos Vieira. All rights reserved.
	9	+ @license GNU/GPL, see LICENSE.php
	10	+ CACIC_Library is free software and parts of it may contain or be derived from
	11	+ the GNU General Public License or other free or open source software license.
	12	+ See COPYRIGHT.php for copyright notices and details.
	13	+
	14	+ CACIC_Library - Coding style
	15	+ for Constants
	16	+ - characters always in uppercase
	17	+ - use underscore for long name
	18	+ e.g.
	19	+ const CACIC_VERSION = '2.4.0';
	20	+
	21	+ for Variables
	22	+ - characters always in lowercase
	23	+ - start with "g" character for global
	24	+ - start with "v" character for local
	25	+ - start with "p" character for methods parameters
	26	+ - use underscore for better read
	27	+ e.g.
	28	+ var g_global : string;
	29	+ var v_local : string;
	30	+
	31	+ for Objects
	32	+ - start with "o" character
	33	+ e.g.
	34	+ oCacicObject : TCACIC_Common;
	35	+
	36	+ for Methods
	37	+ - start with lowercase word
	38	+ - next words start with capital letter
	39	+ e.g.
	40	+ function getCacicPath() : string;
	41	+ procedure setCacicPath( pPath: string );
	42	+-------------------------------------------------------------------------------}
	43	+
	44	+unit CACIC_Library;
	45	+
	46	+interface
	47	+
	48	+uses
	49	+ Windows, SysUtils, StrUtils;
	50	+
	51	+type
	52	+{*------------------------------------------------------------------------------
	53	+ Classe para obter informações do sistema windows
	54	+-------------------------------------------------------------------------------}
	55	+ TCACIC_Windows = class
	56	+ private
	57	+
	58	+ protected
	59	+ /// Mantem a identificação do sistema operacional
	60	+ g_osVerInfo: TOSVersionInfo;
	61	+
	62	+ public
	63	+ function isWindowsVista() : boolean;
	64	+ function isWindowsGEVista() : boolean;
	65	+ function isWindowsXP() : boolean;
	66	+ function isWindowsGEXP() : boolean;
	67	+ function isWindowsNTPlataform() : boolean;
	68	+ function isWindows2000() : boolean;
	69	+ function isWindowsNT() : boolean;
	70	+ function isWindows9xME() : boolean;
	71	+ function getWindowsStrId() : string;
	72	+ function isWindowsAdmin(): Boolean;
	73	+ function createSampleProcess(p_cmd: string; p_wait: boolean ): boolean;
	74	+ procedure showTrayIcon(p_visible:boolean);
	75	+ end;
	76	+
	77	+{*------------------------------------------------------------------------------
	78	+ Classe para tratamento de debug
	79	+-------------------------------------------------------------------------------}
	80	+ TCACIC_Debug = class
	81	+ private
	82	+
	83	+ protected
	84	+ /// TRUE se em mode de debug, FALSE caso contrário
	85	+ g_debug: boolean;
	86	+
	87	+ public
	88	+ procedure debugOn();
	89	+ procedure debugOff();
	90	+ function inDebugMode() : boolean;
	91	+ end;
	92	+{*------------------------------------------------------------------------------
	93	+ Classe geral da biblioteca
	94	+-------------------------------------------------------------------------------}
	95	+ TCACIC = class(TCACIC_Windows)
	96	+ constructor Create();
	97	+ private
	98	+
	99	+ protected
	100	+ /// Mantem o caminho físico de instalação do agente cacic
	101	+ g_cacic_path: string;
	102	+
	103	+ public
	104	+ Windows : TCACIC_Windows; /// objeto de informacoes de windows
	105	+ Debug : TCACIC_Debug; /// objeto de tratamento de debug
	106	+ procedure setCacicPath(p_cacic_path: string);
	107	+ function getCacicPath(): string;
	108	+ function trimEspacosExcedentes(p_str: string): string;
	109	+ function isAppRunning( p_app_name: PAnsiChar ): boolean;
	110	+ end;
	111	+
	112	+// Declaração de constantes para a biblioteca
	113	+const CACIC_PROCESS_WAIT = true; // aguardar fim do processo
	114	+const CACIC_PROCESS_NOWAIT = false; // não aguardar o fim do processo
	115	+
	116	+implementation
	117	+
	118	+{*------------------------------------------------------------------------------
	119	+ Construtor para a classe
	120	+
	121	+ Objetiva inicializar valores a serem usados pelos objetos da
	122	+ classe.
	123	+-------------------------------------------------------------------------------}
	124	+constructor TCACIC.Create();
	125	+begin
	126	+ Self.g_osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
	127	+ GetVersionEx(Self.g_osVerInfo);
	128	+ Self.Windows := TCACIC_Windows.Create();
	129	+ Self.Debug := TCACIC_Debug.Create();
	130	+end;
	131	+
	132	+{*------------------------------------------------------------------------------
	133	+ Elimina espacos excedentes na string
	134	+
	135	+ @param p_str String a excluir espacos
	136	+-------------------------------------------------------------------------------}
	137	+function TCACIC.trimEspacosExcedentes(p_str: String): String;
	138	+begin
	139	+ if(ansipos(' ', p_str ) <> 0 ) then
	140	+ repeat
	141	+ p_str := StringReplace( p_str, ' ', ' ', [rfReplaceAll] );
	142	+ until ( ansipos( ' ', p_str ) = 0 );
	143	+
	144	+ Result := p_str;
	145	+end;
	146	+
	147	+{*------------------------------------------------------------------------------
	148	+ Atribui o caminho físico de instalação do agente cacic
	149	+
	150	+ @param p_cacic_path Caminho físico de instalação do agente cacic
	151	+-------------------------------------------------------------------------------}
	152	+procedure TCACIC.setCacicPath(p_cacic_path: string);
	153	+begin
	154	+ Self.g_cacic_path := p_cacic_path;
	155	+end;
	156	+
	157	+{*------------------------------------------------------------------------------
	158	+ Obter o caminho fisico de instalacao do agente cacic
	159	+
	160	+ @return String contendo o caminho físico
	161	+-------------------------------------------------------------------------------}
	162	+function TCACIC.getCacicPath(): string;
	163	+begin
	164	+ Result := Self.g_cacic_path;
	165	+end;
	166	+
	167	+{*------------------------------------------------------------------------------
	168	+ Verifica se a aplicação está em execução
	169	+
	170	+ @param p_app_name Nome da aplicação a ser verificada
	171	+ @return TRUE se em execução, FALSE caso contrário
	172	+-------------------------------------------------------------------------------}
	173	+function TCACIC.isAppRunning( p_app_name: PAnsiChar ): boolean;
	174	+var
	175	+ MutexHandle: THandle;
	176	+
	177	+begin
	178	+ MutexHandle := CreateMutex(nil, TRUE, p_app_name);
	179	+ if (MutexHandle = 0) OR (GetLastError = ERROR_ALREADY_EXISTS)
	180	+ then Result := true
	181	+ else Result := false;
	182	+end;
	183	+
	184	+{*------------------------------------------------------------------------------
	185	+ Coloca o sistema em modo de debug
	186	+
	187	+-------------------------------------------------------------------------------}
	188	+procedure TCACIC_Debug.debugOn();
	189	+begin
	190	+ Self.g_debug := true;
	191	+end;
	192	+
	193	+{*------------------------------------------------------------------------------
	194	+ Desliga o modo de debug do sistema
	195	+
	196	+-------------------------------------------------------------------------------}
	197	+procedure TCACIC_Debug.debugOff();
	198	+begin
	199	+ Self.g_debug := false;
	200	+end;
	201	+
	202	+{*------------------------------------------------------------------------------
	203	+ Coloca o sistema em modo de debug
	204	+
	205	+ @return String contendo o caminho físico
	206	+-------------------------------------------------------------------------------}
	207	+function TCACIC_Debug.inDebugMode() : boolean;
	208	+begin
	209	+ Result := Self.g_debug;
	210	+end;
	211	+
	212	+{*------------------------------------------------------------------------------
	213	+ Verifica se é Windows Vista ou superior
	214	+
	215	+ @return TRUE se Windows Vista ou superior, FALSE caso contrário
	216	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	217	+ @see isWindowsXP, isWindowsVista, isWindowsGEVista
	218	+-------------------------------------------------------------------------------}
	219	+function TCACIC_Windows.isWindowsGEVista() : boolean;
	220	+begin
	221	+ Result := false;
	222	+ if((g_osVerInfo.dwMajorVersion >= 6) and (g_osVerInfo.dwMinorVersion >= 0)) then
	223	+ Result := true;
	224	+end;
	225	+
	226	+{*------------------------------------------------------------------------------
	227	+ Verifica se é Windows Vista
	228	+
	229	+ @return TRUE se Windows Vista, FALSE caso contrário
	230	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	231	+ @see isWindowsXP, isWindowsVista
	232	+-------------------------------------------------------------------------------}
	233	+function TCACIC_Windows.isWindowsVista() : boolean;
	234	+begin
	235	+ Result := false;
	236	+ if((g_osVerInfo.dwMajorVersion = 6) and (g_osVerInfo.dwMinorVersion = 0)) then
	237	+ Result := true;
	238	+end;
	239	+
	240	+{*------------------------------------------------------------------------------
	241	+ Verifica se é Windows XP ou superior
	242	+
	243	+ @return TRUE se Windows XP ou superior, FALSE caso contrário
	244	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	245	+ @see isWindowsXP, isWindowsVista
	246	+-------------------------------------------------------------------------------}
	247	+function TCACIC_Windows.isWindowsGEXP() : boolean;
	248	+begin
	249	+ Result := false;
	250	+ if((g_osVerInfo.dwMajorVersion >= 5) and (g_osVerInfo.dwMinorVersion >= 1)) then
	251	+ Result := true;
	252	+end;
	253	+
	254	+{*------------------------------------------------------------------------------
	255	+ Verifica se é Windows XP
	256	+
	257	+ @return TRUE se Windows XP, FALSE caso contrário
	258	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	259	+ @see isWindowsXP, isWindowsVista
	260	+-------------------------------------------------------------------------------}
	261	+function TCACIC_Windows.isWindowsXP() : boolean;
	262	+begin
	263	+ Result := false;
	264	+ if((g_osVerInfo.dwMajorVersion = 5) and (g_osVerInfo.dwMinorVersion = 1)) then
	265	+ Result := true;
	266	+end;
	267	+
	268	+{*------------------------------------------------------------------------------
	269	+ Verifica se é Windows 2000
	270	+
	271	+ @return TRUE se Windows 2000, FALSE caso contrário
	272	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	273	+ @see isWindowsXP, isWindowsVista
	274	+-------------------------------------------------------------------------------}
	275	+function TCACIC_Windows.isWindows2000() : boolean;
	276	+begin
	277	+ Result := false;
	278	+ if((g_osVerInfo.dwMajorVersion = 5) and (g_osVerInfo.dwMinorVersion = 0)) then
	279	+ Result := true;
	280	+end;
	281	+
	282	+{*------------------------------------------------------------------------------
	283	+ Verifica se é Windows NT
	284	+
	285	+ @return TRUE se Windows NT, FALSE caso contrário
	286	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	287	+ @see isWindowsXP, isWindowsVista
	288	+-------------------------------------------------------------------------------}
	289	+function TCACIC_Windows.isWindowsNT() : boolean;
	290	+begin
	291	+ Result := false;
	292	+ if((g_osVerInfo.dwMajorVersion = 4) and (g_osVerInfo.dwMinorVersion = 0)) then
	293	+ Result := true;
	294	+end;
	295	+
	296	+{*------------------------------------------------------------------------------
	297	+ Verifica se a plataforma do sistema é de windows 9x ou ME
	298	+
	299	+ @return TRUE se plataforma de Windows 9x/ME, FALSE caso contrário
	300	+ @see isWindowsNTPlataform, isWindows9xME, isWindowsNT, isWindows2000
	301	+ @see isWindowsXP, isWindowsVista
	302	+-------------------------------------------------------------------------------}
	303	+function TCACIC_Windows.isWindows9xME() : boolean;
	304	+begin
	305	+ Result := (Self.g_osVerInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);
	306	+end;
	307	+
	308	+{*------------------------------------------------------------------------------
	309	+ Obter identificação extensa do sistema operacional
	310	+
	311	+ @return String de identificação do sistema operacional
	312	+ @example 1.4.10.A
	313	+-------------------------------------------------------------------------------}
	314	+function TCACIC_Windows.getWindowsStrId() : string;
	315	+begin
	316	+ Result := IntToStr(Self.g_osVerInfo.dwPlatformId) + '.' +
	317	+ IntToStr(Self.g_osVerInfo.dwMajorVersion) + '.' +
	318	+ IntToStr(Self.g_osVerInfo.dwMinorVersion) +
	319	+ ifThen(trim(Self.g_osVerInfo.szCSDVersion)='',
	320	+ '',
	321	+ '.'+Self.g_osVerInfo.szCSDVersion);
	322	+
	323	+end;
	324	+
	325	+{*------------------------------------------------------------------------------
	326	+ Verifica se a plataforma do sistema é de Windows NT
	327	+
	328	+ @return TRUE se plataforma de Windows NT, FALSE caso contrário
	329	+ @see isWindows9xME, isWindowsVista
	330	+-------------------------------------------------------------------------------}
	331	+function TCACIC_Windows.isWindowsNTPlataform() : boolean;
	332	+begin
	333	+ Result := (Self.g_osVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT);
	334	+end;
	335	+
	336	+{*------------------------------------------------------------------------------
	337	+ Verifica se é administrador do sistema operacional se em plataforma NT
	338	+
	339	+ @return TRUE se administrador do sistema, FALSE caso contrário
	340	+-------------------------------------------------------------------------------}
	341	+function TCACIC_Windows.isWindowsAdmin(): Boolean;
	342	+
	343	+const
	344	+ constSECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5));
	345	+ constSECURITY_BUILTIN_DOMAIN_RID = $00000020;
	346	+ constDOMAIN_ALIAS_RID_ADMINS = $00000220;
	347	+
	348	+var
	349	+ hAccessToken: THandle;
	350	+ ptgGroups: PTokenGroups;
	351	+ dwInfoBufferSize: DWORD;
	352	+ psidAdministrators: PSID;
	353	+ x: Integer;
	354	+ bSuccess: BOOL;
	355	+
	356	+begin
	357	+ if (not Self.isWindowsNTPlataform()) then // Se nao NT (ex: Win95/98)
	358	+ // Se nao eh NT nao tem ''admin''
	359	+ Result := True
	360	+ else begin
	361	+ Result := False;
	362	+ bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True, hAccessToken);
	363	+ if not bSuccess then begin
	364	+ if GetLastError = ERROR_NO_TOKEN then
	365	+ bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hAccessToken);
	366	+ end;
	367	+ if bSuccess then begin
	368	+ GetMem(ptgGroups, 1024);
	369	+ bSuccess := GetTokenInformation(hAccessToken, TokenGroups, ptgGroups, 1024, dwInfoBufferSize);
	370	+ CloseHandle(hAccessToken);
	371	+ if bSuccess then begin
	372	+ AllocateAndInitializeSid(constSECURITY_NT_AUTHORITY, 2,
	373	+ constSECURITY_BUILTIN_DOMAIN_RID,
	374	+ constDOMAIN_ALIAS_RID_ADMINS,
	375	+ 0, 0, 0, 0, 0, 0, psidAdministrators);
	376	+ {$R-}
	377	+ for x := 0 to ptgGroups.GroupCount - 1 do
	378	+ if EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid) then begin
	379	+ Result := True;
	380	+ Break;
	381	+ end;
	382	+ {$R+}
	383	+ FreeSid(psidAdministrators);
	384	+ end;
	385	+ FreeMemory(ptgGroups);
	386	+ end;
	387	+ end;
	388	+end;
	389	+
	390	+{*------------------------------------------------------------------------------
	391	+ Executa commandos, substitui o WinExec
	392	+
	393	+ @autor: Marcos Dell Antonio
	394	+ @param p_cmd Comando a ser executado
	395	+ @param p_wait TRUE se deve aguardar término da excução, FALSE caso contrário
	396	+-------------------------------------------------------------------------------}
	397	+function TCACIC_Windows.createSampleProcess(p_cmd: string; p_wait: boolean ): boolean;
	398	+var
	399	+ SUInfo: TStartupInfo;
	400	+ ProcInfo: TProcessInformation;
	401	+begin
	402	+ FillChar(SUInfo, SizeOf(SUInfo), #0);
	403	+ SUInfo.cb := SizeOf(SUInfo);
	404	+ SUInfo.dwFlags := STARTF_USESHOWWINDOW;
	405	+ SUInfo.wShowWindow := SW_HIDE;
	406	+
	407	+ Result := CreateProcess(nil,
	408	+ PChar(p_cmd),
	409	+ nil,
	410	+ nil,
	411	+ false,
	412	+ CREATE_NEW_CONSOLE or
	413	+ NORMAL_PRIORITY_CLASS,
	414	+ nil,
	415	+ nil,
	416	+ SUInfo,
	417	+ ProcInfo);
	418	+
	419	+ if (Result) then
	420	+ begin
	421	+ if(p_wait) then begin
	422	+ WaitForSingleObject(ProcInfo.hProcess, INFINITE);
	423	+ CloseHandle(ProcInfo.hProcess);
	424	+ CloseHandle(ProcInfo.hThread);
	425	+ end;
	426	+ end;
	427	+end;
	428	+
	429	+{*------------------------------------------------------------------------------
	430	+ Mostra ou oculta o cacic na "systray" do windows
	431	+
	432	+ @autor: Diversos - compilado de vários exemplos obtidos na internet
	433	+ @param p_visible TRUE se deve mostrar na systray, FALSE caso contrário
	434	+-------------------------------------------------------------------------------}
	435	+procedure TCACIC_Windows.showTrayIcon(p_visible:boolean);
	436	+ Var
	437	+ v_tray, v_child : hWnd;
	438	+ v_char : Array[0..127] of Char;
	439	+ v_string : String;
	440	+
	441	+ Begin
	442	+ v_tray := FindWindow('Shell_TrayWnd', NIL);
	443	+ v_child := GetWindow(v_tray, GW_CHILD);
	444	+ While v_child <> 0
	445	+ do Begin
	446	+ If GetClassName(v_child, v_char, SizeOf(v_char)) > 0
	447	+ Then Begin
	448	+ v_string := StrPAS(v_char);
	449	+ If UpperCase(v_string) = 'TRAYNOTIFYWND'
	450	+ then begin
	451	+ If p_visible
	452	+ then ShowWindow(v_child, 1)
	453	+ else ShowWindow(v_child, 0);
	454	+ end;
	455	+ End;
	456	+ v_child := GetWindow(v_child, GW_HWNDNEXT);
	457	+ End;
	458	+ End;
	459	+
	460	+end.
@@ -0,0 +1,64 @@		@@ -0,0 +1,64 @@
	1	+#------------------------------------------------------------------------------
	2	+VERSION = BWS.01
	3	+#------------------------------------------------------------------------------
	4	+!ifndef ROOT
	5	+ROOT = $(MAKEDIR)\..
	6	+!endif
	7	+#------------------------------------------------------------------------------
	8	+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
	9	+DCC = $(ROOT)\bin\dcc32.exe $**
	10	+BRCC = $(ROOT)\bin\brcc32.exe $**
	11	+#------------------------------------------------------------------------------
	12	+PROJECTS = cacic2.exe chkcacic.exe chksis.exe col_anvi.exe col_comp.exe \
	13	+ col_hard.exe col_moni.exe col_patr.exe col_soft.exe col_undi.exe ger_cols.exe \
	14	+ ini_cols.exe mapacacic.exe vaca.exe vacon.exe
	15	+#------------------------------------------------------------------------------
	16	+default: $(PROJECTS)
	17	+#------------------------------------------------------------------------------
	18	+
	19	+cacic2.exe: cacic2.dpr
	20	+ $(DCC)
	21	+
	22	+chkcacic.exe: chkcacic\chkcacic.dpr
	23	+ $(DCC)
	24	+
	25	+chksis.exe: chksis\chksis.dpr
	26	+ $(DCC)
	27	+
	28	+col_anvi.exe: col_anvi\col_anvi.dpr
	29	+ $(DCC)
	30	+
	31	+col_comp.exe: col_comp\col_comp.dpr
	32	+ $(DCC)
	33	+
	34	+col_hard.exe: col_hard\col_hard.dpr
	35	+ $(DCC)
	36	+
	37	+col_moni.exe: col_moni\col_moni.dpr
	38	+ $(DCC)
	39	+
	40	+col_patr.exe: col_patr\col_patr.dpr
	41	+ $(DCC)
	42	+
	43	+col_soft.exe: col_soft\col_soft.dpr
	44	+ $(DCC)
	45	+
	46	+col_undi.exe: col_undi\col_undi.dpr
	47	+ $(DCC)
	48	+
	49	+ger_cols.exe: ger_cols\ger_cols.dpr
	50	+ $(DCC)
	51	+
	52	+ini_cols.exe: ini_cols\ini_cols.dpr
	53	+ $(DCC)
	54	+
	55	+mapacacic.exe: mapa\mapacacic.dpr
	56	+ $(DCC)
	57	+
	58	+vaca.exe: vaca\vaca.dpr
	59	+ $(DCC)
	60	+
	61	+vacon.exe: vacon\vacon.dpr
	62	+ $(DCC)
	63	+
	64	+
	@@ -25,42 +25,42 @@ uses		@@ -25,42 +25,42 @@ uses
25	frmSenha in 'frmsenha.pas' {formSenha},	25	frmSenha in 'frmsenha.pas' {formSenha},
26	frmConfiguracoes in 'frmConfiguracoes.pas' {FormConfiguracoes},	26	frmConfiguracoes in 'frmConfiguracoes.pas' {FormConfiguracoes},
27	frmLog in 'frmLog.pas' {FormLog},	27	frmLog in 'frmLog.pas' {FormLog},
28	- LibXmlParser in 'LibXmlParser.pas';	28	+ LibXmlParser,
		29	+ CACIC_Library in 'CACIC_Library.pas';
29		30
30	{$R *.res}	31	{$R *.res}
31		32
32	-VAR // Add Vars
33	- MutexHandle: THandle;
34	- hwind:HWND;	33	+const
		34	+ CACIC_APP_NAME = 'cacic2';
35		35
36	-begin	36	+var
		37	+ hwind:HWND;
		38	+ oCacic : TCACIC;
37		39
38	- // Esse código evita que mais de uma cópia do cacic seja instanciada.
39	- MutexHandle := CreateMutex(nil, TRUE, 'cacic2'); // should be a unique string
40	- IF MutexHandle <> 0 then
41	- begin
42	- IF GetLastError = ERROR_ALREADY_EXISTS then
43	- begin
44	- CloseHandle(MutexHandle);	40	+begin
		41	+ oCacic := TCACIC.Create();
		42	+
		43	+ if( oCacic.isAppRunning( CACIC_APP_NAME ) )
		44	+ then begin
45	hwind := 0;	45	hwind := 0;
46	repeat // The string 'My app' must match your App Title (below)	46	repeat // The string 'My app' must match your App Title (below)
47	- hwind:=Windows.FindWindowEx(0,hwind,'TApplication','cacic2');	47	+ hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );
48	until (hwind<>Application.Handle);	48	until (hwind<>Application.Handle);
49	IF (hwind<>0) then	49	IF (hwind<>0) then
50	begin	50	begin
51	Windows.ShowWindow(hwind,SW_SHOWNORMAL);	51	Windows.ShowWindow(hwind,SW_SHOWNORMAL);
52	Windows.SetForegroundWindow(hwind);	52	Windows.SetForegroundWindow(hwind);
53	end;	53	end;
54	-
55	FreeMemory(0);	54	FreeMemory(0);
56	Halt(0);	55	Halt(0);
57	- end
58	- end;	56	+ end;
		57	+
		58	+ oCacic.Free();
59		59
60	// Preventing application button showing in the task bar	60	// Preventing application button showing in the task bar
61	SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW );	61	SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW );
62	Application.Initialize;	62	Application.Initialize;
63	Application.Title := 'cacic2';	63	Application.Title := 'cacic2';
64	Application.CreateForm(TFormularioGeral, FormularioGeral);	64	Application.CreateForm(TFormularioGeral, FormularioGeral);
65	- Application.Run;	65	+ Application.Run;
66	end.	66	end.
	@@ -16,14 +16,29 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA		@@ -16,14 +16,29 @@ Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
16	*)	16	*)
17	program chkcacic;	17	program chkcacic;
18	uses	18	uses
19	- Forms,	19	+ Forms, windows,
20	main in 'main.pas',	20	main in 'main.pas',
21	- FormConfig in 'FormConfig.pas' {Configs};	21	+ FormConfig in 'FormConfig.pas' {Configs},
		22	+ CACIC_Library in '..\CACIC_Library.pas';
22		23
23	{$R *.res}	24	{$R *.res}
24		25
		26	+const
		27	+ CACIC_APP_NAME = 'chkcacic';
		28	+
		29	+var
		30	+ oCacic : TCACIC;
		31	+
25	begin	32	begin
26	- Application.Initialize;
27	- Application.CreateForm(TForm1, Form1);
28	- Application.Run;	33	+ oCacic := TCACIC.Create();
		34	+
		35	+ if( not oCacic.isAppRunning( CACIC_APP_NAME ) )
		36	+ then begin
		37	+ Application.Initialize;
		38	+ Application.CreateForm(TForm1, Form1);
		39	+ Application.Run;
		40	+ end;
		41	+
		42	+ oCacic.Free();
		43	+
29	end.	44	end.
	@@ -113,9 +113,9 @@ RootDir=		@@ -113,9 +113,9 @@ RootDir=
113	IncludeVerInfo=1	113	IncludeVerInfo=1
114	AutoIncBuild=0	114	AutoIncBuild=0
115	MajorVer=2	115	MajorVer=2
116	-MinorVer=4	116	+MinorVer=6
117	Release=0	117	Release=0
118	-Build=601	118	+Build=708
119	Debug=0	119	Debug=0
120	PreRelease=0	120	PreRelease=0
121	Special=0	121	Special=0
	@@ -126,11 +126,34 @@ CodePage=1252		@@ -126,11 +126,34 @@ CodePage=1252
126	[Version Info Keys]	126	[Version Info Keys]
127	CompanyName=Dataprev-Unidade Regional Espírito Santo	127	CompanyName=Dataprev-Unidade Regional Espírito Santo
128	FileDescription=Coletor de Informações de Hardware do Sistema CACIC	128	FileDescription=Coletor de Informações de Hardware do Sistema CACIC
129	-FileVersion=2.4.0.601	129	+FileVersion=2.6.0.708
130	InternalName=	130	InternalName=
131	LegalCopyright=	131	LegalCopyright=
132	LegalTrademarks=	132	LegalTrademarks=
133	OriginalFilename=	133	OriginalFilename=
134	ProductName=Col_Hard	134	ProductName=Col_Hard
135	-ProductVersion=2.4.0.371	135	+ProductVersion=2.6.0
136	Comments=Baseado na licença GPL (General Public License)	136	Comments=Baseado na licença GPL (General Public License)
		137	+[HistoryLists\hlDebugSourcePath]
		138	+Count=2
		139	+Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
		140	+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
		141	+[HistoryLists\hlUnitAliases]
		142	+Count=1
		143	+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
		144	+[HistoryLists\hlSearchPath]
		145	+Count=10
		146	+Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
		147	+Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
		148	+Item2=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
		149	+Item3=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
		150	+Item4=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\ZLibEx
		151	+Item5=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
		152	+Item6=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7
		153	+Item7=C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\Common;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
		154	+Item8=C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\CriptografiaDCP;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\LibXMLParser;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\MD5;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\Mitec\v10.2.0-D7;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\NTFileSecurity;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\PJVersion;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ShellLinker;C:\Documents and Settings\Adriano S. Vieira\Meus documentos\cacic\Comps_CACIC\ZLibEx
		155	+Item9=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
		156	+[HistoryLists\hlOutputDirectorry]
		157	+Count=2
		158	+Item0=..\Repositorio
		159	+Item1=Repositorio
	@@ -1,250 +0,0 @@	@@ -1,250 +0,0 @@
1	-unit coleta_hardware;
2	-
3	-interface
4	-
5	-uses Windows, Registry, SysUtils, Classes, dialogs;
6	-
7	-procedure RealizarColetaHardware;
8	-function GetMACAdress: string;
9	-
10	-implementation
11	-
12	-
13	-Uses main, comunicacao, utils, registro, MSI_CPU, MSI_Devices, MiTeC_WinIOCTL, NB30 ;
14	-
15	-
16	-
17	-function GetMACAdress: string;
18	-var
19	- NCB: PNCB;
20	- Adapter: PAdapterStatus;
21	-
22	- URetCode: PChar;
23	- RetCode: char;
24	- I: integer;
25	- Lenum: PlanaEnum;
26	- _SystemID: string;
27	- TMPSTR: string;
28	-begin
29	- Result := '';
30	- _SystemID := '';
31	- Getmem(NCB, SizeOf(TNCB));
32	- Fillchar(NCB^, SizeOf(TNCB), 0);
33	-
34	- Getmem(Lenum, SizeOf(TLanaEnum));
35	- Fillchar(Lenum^, SizeOf(TLanaEnum), 0);
36	-
37	- Getmem(Adapter, SizeOf(TAdapterStatus));
38	- Fillchar(Adapter^, SizeOf(TAdapterStatus), 0);
39	-
40	- Lenum.Length := chr(0);
41	- NCB.ncb_command := chr(NCBENUM);
42	- NCB.ncb_buffer := Pointer(Lenum);
43	- NCB.ncb_length := SizeOf(Lenum);
44	- RetCode := Netbios(NCB);
45	-
46	- i := 0;
47	- repeat
48	- Fillchar(NCB^, SizeOf(TNCB), 0);
49	- Ncb.ncb_command := chr(NCBRESET);
50	- Ncb.ncb_lana_num := lenum.lana[I];
51	- RetCode := Netbios(Ncb);
52	-
53	- Fillchar(NCB^, SizeOf(TNCB), 0);
54	- Ncb.ncb_command := chr(NCBASTAT);
55	- Ncb.ncb_lana_num := lenum.lana[I];
56	- // Must be 16
57	- Ncb.ncb_callname := '* ';
58	-
59	- Ncb.ncb_buffer := Pointer(Adapter);
60	-
61	- Ncb.ncb_length := SizeOf(TAdapterStatus);
62	- RetCode := Netbios(Ncb);
63	- //---- calc _systemId from mac-address[2-5] XOR mac-address[1]...
64	- if (RetCode = chr(0)) or (RetCode = chr(6)) then
65	- begin
66	- _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' +
67	- IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' +
68	- IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' +
69	- IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' +
70	- IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' +
71	- IntToHex(Ord(Adapter.adapter_address[5]), 2);
72	- end;
73	- Inc(i);
74	- until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00');
75	- FreeMem(NCB);
76	- FreeMem(Adapter);
77	- FreeMem(Lenum);
78	- GetMacAdress := _SystemID;
79	-end;
80	-
81	-
82	-
83	-
84	-
85	-procedure RealizarColetaHardware;
86	-var Request_RCH, InfoSoft : TStringList;
87	- DescPlacaRede, DescPlacaSom, DescCDROM, DescTeclado, DescModem, DescMouse, QtdMemoria, DescMemoria,
88	- DescHDs, te_placa_mae_fabricante, te_placa_mae_desc,
89	- ValorChaveColetado, ValorChaveRegistro, s : String;
90	- i, c : Integer;
91	-begin
92	- // Verifica se deverá ser realizada a coleta de informações de hardware neste
93	- // computador, perguntando ao agente gerente.
94	- if (CS_COLETA_HARDWARE) Then
95	- Begin
96	- main.frmMain.Log_Historico('* Coletando informações de hardware.');
97	-
98	- Try main.frmMain.MSystemInfo.CPU.GetInfo(False, False); except end;
99	- Try main.frmMain.MSystemInfo.Machine.GetInfo(0); except end;
100	- Try main.frmMain.MSystemInfo.Machine.SMBIOS.GetInfo(1);except end;
101	- Try main.frmMain.MSystemInfo.Display.GetInfo; except end;
102	- Try main.frmMain.MSystemInfo.Media.GetInfo; except end;
103	- Try main.frmMain.MSystemInfo.Devices.GetInfo; except end;
104	- Try main.frmMain.MSystemInfo.Memory.GetInfo; except end;
105	- Try main.frmMain.MSystemInfo.OS.GetInfo; except end;
106	-// main.frmMain.MSystemInfo.Software.GetInfo;
107	-// main.frmMain.MSystemInfo.Software.Report(InfoSoft);
108	-
109	-
110	- //Try main.frmMain.MSystemInfo.Storage.GetInfo; except end;
111	-
112	-
113	- if (main.frmMain.MSystemInfo.Network.CardAdapterIndex > -1) then DescPlacaRede := main.frmMain.MSystemInfo.Network.Adapters[main.frmMain.MSystemInfo.Network.CardAdapterIndex]
114	- else DescPlacaRede := main.frmMain.MSystemInfo.Network.Adapters[0];
115	- DescPlacaRede := Trim(DescPlacaRede);
116	-
117	-
118	- if (main.frmMain.MSystemInfo.Media.Devices.Count > 0) then
119	- if (main.frmMain.MSystemInfo.Media.SoundCardIndex > -1) then DescPlacaSom := main.frmMain.MSystemInfo.Media.Devices[main.frmMain.MSystemInfo.Media.SoundCardIndex]
120	- else DescPlacaSom := main.frmMain.MSystemInfo.Media.Devices[0];
121	-
122	- DescPlacaSom := Trim(DescPlacaSom);
123	-
124	-
125	- for i:=0 to main.frmMain.MSystemInfo.Devices.DeviceCount-1 do
126	- Begin
127	- if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcCDROM then
128	- if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescCDROM := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
129	- else DescCDROM := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
130	- if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcModem then
131	- if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescModem := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
132	- else DescModem := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
133	- if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcMouse then
134	- if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescMouse := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
135	- else DescMouse := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
136	- if main.frmMain.MSystemInfo.Devices.Devices[i].DeviceClass=dcKeyboard then
137	- if Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName)='' then DescTeclado := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].Description)
138	- else DescTeclado := Trim(main.frmMain.MSystemInfo.Devices.Devices[i].FriendlyName);
139	- end;
140	-
141	-
142	- DescMemoria := '';
143	- Try
144	- for i:=0 to main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModuleCount-1 do
145	- if (main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModule[i].Size > 0) then
146	- begin
147	- DescMemoria := DescMemoria + IntToStr(main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModule[i].Size) + ' ' +
148	- main.frmMain.MSystemInfo.Machine.SMBIOS.GetMemoryTypeStr(main.frmMain.MSystemInfo.Machine.SMBIOS.MemoryModule[i].Types) + ' ';
149	- end;
150	- Except
151	- end;
152	-
153	- DescMemoria := Trim(DescMemoria);
154	- QtdMemoria := IntToStr((main.frmMain.MSystemInfo.Memory.PhysicalTotal div 1048576) + 1);
155	-
156	- Try
157	- te_placa_mae_fabricante := Trim(main.frmMain.MSystemInfo.Machine.SMBIOS.MainboardManufacturer);
158	- te_placa_mae_desc := Trim(main.frmMain.MSystemInfo.Machine.SMBIOS.MainboardModel);
159	- Except
160	- end;
161	-
162	-
163	- {
164	- for i:=0 to main.frmMain.MSystemInfo.Storage.DeviceCount-1 do
165	- if (main.frmMain.MSystemInfo.Storage.Devices[i].Geometry.MediaType = Fixedmedia) Then
166	- Begin
167	- DescHDs := main.frmMain.MSystemInfo.Storage.Devices[i].Model + IntToStr((main.frmMain.MSystemInfo.Storage.Devices[i].Capacity div 1024) div 1024);
168	- end;
169	- }
170	-
171	-
172	- // Monto a string que será comparada com o valor armazenado no registro.
173	- ValorChaveColetado := Trim(DescPlacaRede + ';' +
174	- CPUVendors[main.frmMain.MSystemInfo.CPU.vendorType] + ';' +
175	- main.frmMain.MSystemInfo.CPU.FriendlyName + ' ' + main.frmMain.MSystemInfo.CPU.CPUIDNameString + ';' +
176	- // Como a frequência não é constante, ela não vai entrar na verificação da mudança de hardware.
177	- // IntToStr(main.frmMain.MSystemInfo.CPU.Frequency) + ';' +
178	- main.frmMain.MSystemInfo.CPU.SerialNumber + ';' +
179	- DescMemoria + ';' +
180	- QtdMemoria + ';' +
181	- main.frmMain.MSystemInfo.Machine.BIOS.Name + ';' +
182	- main.frmMain.MSystemInfo.Machine.BIOS.Date + ';' +
183	- main.frmMain.MSystemInfo.Machine.BIOS.Copyright + ';' +
184	- te_placa_mae_fabricante + ';' +
185	- te_placa_mae_desc + ';' +
186	- main.frmMain.MSystemInfo.Display.Adapter + ';' +
187	- IntToStr(main.frmMain.MSystemInfo.Display.HorzRes) + 'x' + IntToStr(main.frmMain.MSystemInfo.Display.VertRes) + ';' +
188	- IntToStr(main.frmMain.MSystemInfo.Display.ColorDepth) + ';' +
189	- IntToStr((main.frmMain.MSystemInfo.Display.Memory) div 1048576 ) + ';' +
190	- DescPlacaSom + ';' +
191	- DescCDROM + ';' +
192	- DescTeclado + ';' +
193	- DescModem + ';' +
194	- DescMouse);
195	-
196	- // Obtenho do registro o valor que foi previamente armazenado
197	- ValorChaveRegistro := Trim(Registro.GetValorChaveRegIni('Coleta','Hardware',p_path_cacic_ini));
198	-
199	- // Se essas informações forem diferentes significa que houve alguma alteração
200	- // na configuração de hardware. Nesse caso, gravo as informações no BD Central
201	- // e, se não houver problemas durante esse procedimento, atualizo as
202	- // informações no registro.
203	- If (IN_COLETA_FORCADA or (ValorChaveColetado <> ValorChaveRegistro)) Then
204	- Begin
205	- //Envio via rede para ao Agente Gerente, para gravação no BD.
206	- Request_RCH:=TStringList.Create;
207	- Request_RCH.Values['te_node_address'] := TE_NODE_ADDRESS;
208	- Request_RCH.Values['id_so'] := ID_SO;
209	- Request_RCH.Values['te_nome_computador'] := TE_NOME_COMPUTADOR;
210	- Request_RCH.Values['id_ip_rede'] := ID_IP_REDE;
211	- Request_RCH.Values['te_ip'] := TE_IP;
212	- Request_RCH.Values['te_workgroup'] := TE_WORKGROUP;
213	- Request_RCH.Values['te_placa_rede_desc'] := DescPlacaRede;
214	- Request_RCH.Values['te_placa_mae_fabricante'] := te_placa_mae_fabricante;
215	- Request_RCH.Values['te_placa_mae_desc'] := te_placa_mae_desc;
216	- Request_RCH.Values['te_cpu_serial'] := Trim(main.frmMain.MSystemInfo.CPU.SerialNumber);
217	- Request_RCH.Values['te_cpu_desc'] := Trim(main.frmMain.MSystemInfo.CPU.FriendlyName + ' ' + main.frmMain.MSystemInfo.CPU.CPUIDNameString);
218	- Request_RCH.Values['te_cpu_fabricante'] := CPUVendors[main.frmMain.MSystemInfo.CPU.vendorType];
219	- Request_RCH.Values['te_cpu_freq'] := IntToStr(main.frmMain.MSystemInfo.CPU.Frequency);
220	- Request_RCH.Values['qt_mem_ram'] := QtdMemoria;
221	- Request_RCH.Values['te_mem_ram_desc'] := DescMemoria;
222	- Request_RCH.Values['te_bios_desc'] := Trim(main.frmMain.MSystemInfo.Machine.BIOS.Name);
223	- Request_RCH.Values['te_bios_data'] := Trim(main.frmMain.MSystemInfo.Machine.BIOS.Date);
224	- Request_RCH.Values['te_bios_fabricante'] := Trim(main.frmMain.MSystemInfo.Machine.BIOS.Copyright);
225	- Request_RCH.Values['qt_placa_video_cores'] := IntToStr(main.frmMain.MSystemInfo.Display.ColorDepth);
226	- Request_RCH.Values['te_placa_video_desc'] := Trim(main.frmMain.MSystemInfo.Display.Adapter);
227	- Request_RCH.Values['qt_placa_video_mem'] := IntToStr((main.frmMain.MSystemInfo.Display.Memory) div 1048576);
228	- Request_RCH.Values['te_placa_video_resolucao']:= IntToStr(main.frmMain.MSystemInfo.Display.HorzRes) + 'x' + IntToStr(main.frmMain.MSystemInfo.Display.VertRes);
229	- Request_RCH.Values['te_placa_som_desc'] := DescPlacaSom;
230	- Request_RCH.Values['te_cdrom_desc'] := DescCDROM;
231	- Request_RCH.Values['te_teclado_desc'] := DescTeclado;
232	- Request_RCH.Values['te_mouse_desc'] := DescMouse;
233	- Request_RCH.Values['te_modem_desc'] := DescModem;
234	-
235	- // Somente atualizo o registro caso não tenha havido nenhum erro durante o envio das informações para o BD
236	- //Sobreponho a informação no registro para posterior comparação, na próxima execução.
237	- if (comunicacao.ComunicaServidor('set_hardware.php', Request_RCH, '>> Enviando informações de hardware para o servidor.') <> '0') Then
238	- Begin
239	- Registro.SetValorChaveRegIni('Coleta','Hardware', ValorChaveColetado,p_path_cacic_ini);
240	- end;
241	- Request_RCH.Free;
242	- end;
243	- end
244	- else main.frmMain.Log_Historico('Coleta de informações de hardware não configurada.');
245	-
246	-end;
247	-
248	-
249	-end.
250	-
	@@ -19,14 +19,42 @@ program col_patr;		@@ -19,14 +19,42 @@ program col_patr;
19		19
20	uses	20	uses
21	Forms,	21	Forms,
		22	+ Windows,
22	main_col_patr in 'main_col_patr.pas' {FormPatrimonio},	23	main_col_patr in 'main_col_patr.pas' {FormPatrimonio},
23	- LibXmlParser in 'LibXmlParser.pas',
24	- XML in 'xml.pas';	24	+ LibXmlParser,
		25	+ XML,
		26	+ CACIC_Library in '..\CACIC_Library.pas';
25		27
26	{$R *.res}	28	{$R *.res}
27		29
		30	+const
		31	+ CACIC_APP_NAME = 'col_patr';
		32	+
		33	+var
		34	+ hwind:HWND;
		35	+ oCacic : TCACIC;
		36	+
28	begin	37	begin
29	- Application.Initialize;
30	- Application.CreateForm(TFormPatrimonio, FormPatrimonio);
31	- Application.Run;	38	+ oCacic := TCACIC.Create();
		39	+
		40	+ if( oCacic.isAppRunning( CACIC_APP_NAME ) )
		41	+ then begin
		42	+ hwind := 0;
		43	+ repeat // The string 'My app' must match your App Title (below)
		44	+ hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );
		45	+ until (hwind<>Application.Handle);
		46	+ IF (hwind<>0) then
		47	+ begin
		48	+ Windows.ShowWindow(hwind,SW_SHOWNORMAL);
		49	+ Windows.SetForegroundWindow(hwind);
		50	+ end;
		51	+ end
		52	+ else begin
		53	+ Application.Initialize;
		54	+ Application.CreateForm(TFormPatrimonio, FormPatrimonio);
		55	+ Application.Run;
		56	+ end;
		57	+
		58	+ oCacic.Free();
		59	+
32	end.	60	end.
	@@ -678,14 +678,6 @@ begin		@@ -678,14 +678,6 @@ begin
678	var_te_info_patrimonio6 := GetValorDatMemoria('Patrimonio.te_info_patrimonio6',v_tstrCipherOpened);	678	var_te_info_patrimonio6 := GetValorDatMemoria('Patrimonio.te_info_patrimonio6',v_tstrCipherOpened);
679	if (var_te_info_patrimonio6='') then var_te_info_patrimonio6 := DeCrypt(XML.XML_RetornaValor('TE_INFO6', v_configs));	679	if (var_te_info_patrimonio6='') then var_te_info_patrimonio6 := DeCrypt(XML.XML_RetornaValor('TE_INFO6', v_configs));
680		680
681	- {
682	- Try
683	- id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1));
684	- id_unid_organizacional_nivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1
685	- id_unid_organizacional_nivel2.ItemIndex := id_unid_organizacional_nivel2.Items.IndexOf(RetornaValorVetorUON2(var_id_unid_organizacional_nivel1, var_id_unid_organizacional_nivel2));
686	- Except
687	- end;
688	- }
689	Try	681	Try
690	id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1));	682	id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1));
691	id_unid_organizacional_nivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1	683	id_unid_organizacional_nivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1
	@@ -725,52 +717,6 @@ var Parser : TXmlParser;		@@ -725,52 +717,6 @@ var Parser : TXmlParser;
725	strTagName,	717	strTagName,
726	strItemName : string;	718	strItemName : string;
727	begin	719	begin
728	-{
729	- Parser := TXmlParser.Create;
730	- Parser.Normalize := True;
731	- Parser.LoadFromBuffer(PAnsiChar(v_configs));
732	- Parser.StartScan;
733	- i := -1;
734	- v_Tag := false;
735	- While Parser.Scan and (UpperCase(Parser.CurName) <> 'IT2') DO
736	- Begin
737	- if ((Parser.CurPartType = ptStartTag) and (UpperCase(Parser.CurName) = 'IT1')) Then
738	- Begin
739	- v_Tag := true;
740	- i := i + 1;
741	- SetLength(VetorUON1, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
742	- end
743	- else if (Parser.CurPartType in [ptContent, ptCData]) and v_Tag Then
744	- if (UpperCase(Parser.CurName) = 'ID1') then VetorUON1[i].id1 := DeCrypt(Parser.CurContent)
745	- else if (UpperCase(Parser.CurName) = 'NM1') then VetorUON1[i].nm1 := DeCrypt(Parser.CurContent);
746	- end;
747	-
748	- // Código para montar o combo 2
749	- Parser.StartScan;
750	-
751	- v_Tag := false;
752	- i := -1;
753	- While Parser.Scan DO
754	- Begin
755	- if ((Parser.CurPartType = ptStartTag) and (UpperCase(Parser.CurName) = 'IT2')) Then
756	- Begin
757	- v_Tag := TRUE;
758	- i := i + 1;
759	- SetLength(VetorUON2, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
760	- end
761	- else if (Parser.CurPartType in [ptContent, ptCData]) and v_Tag Then
762	- if (UpperCase(Parser.CurName) = 'ID1') then VetorUON2[i].id1 := DeCrypt(Parser.CurContent)
763	- else if (UpperCase(Parser.CurName) = 'ID2') then VetorUON2[i].id2 := DeCrypt(Parser.CurContent)
764	- else if (UpperCase(Parser.CurName) = 'NM2') then VetorUON2[i].nm2 := DeCrypt(Parser.CurContent);
765	- end;
766	- Parser.Free;
767	- // Como os itens do combo1 nunca mudam durante a execução do programa (ao contrario do combo2), posso colocar o seu preenchimento aqui mesmo.
768	- id_unid_organizacional_nivel1.Items.Clear;
769	- For i := 0 to Length(VetorUON1) - 1 Do
770	- id_unid_organizacional_nivel1.Items.Add(VetorUON1[i].nm1);
771	- }
772	-
773	-
774	Parser := TXmlParser.Create;	720	Parser := TXmlParser.Create;
775	Parser.Normalize := True;	721	Parser.Normalize := True;
776	Parser.LoadFromBuffer(PAnsiChar(v_Configs));	722	Parser.LoadFromBuffer(PAnsiChar(v_Configs));
	@@ -908,23 +854,6 @@ var i, j: Word;		@@ -908,23 +854,6 @@ var i, j: Word;
908	strAux,	854	strAux,
909	strIdUON1 : String;	855	strIdUON1 : String;
910	begin	856	begin
911	- {
912	- // Filtro os itens do combo2, de acordo com o item selecionado no combo1
913	- strAux := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
914	-
915	- id_unid_organizacional_nivel2.Items.Clear;
916	- SetLength(VetorUON2Filtrado, 0);
917	- For i := 0 to Length(VetorUON2) - 1 Do
918	- Begin
919	- if VetorUON2[i].id1 = strAux then
920	- Begin
921	- id_unid_organizacional_nivel2.Items.Add(VetorUON2[i].nm2);
922	- j := Length(VetorUON2Filtrado);
923	- SetLength(VetorUON2Filtrado, j + 1);
924	- VetorUON2Filtrado[j] := VetorUON2[i].id2;
925	- end;
926	- end;
927	- }
928	// Filtro os itens do combo2, de acordo com o item selecionado no combo1	857	// Filtro os itens do combo2, de acordo com o item selecionado no combo1
929	strIdUON1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;	858	strIdUON1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
930	id_unid_organizacional_nivel1a.Items.Clear;	859	id_unid_organizacional_nivel1a.Items.Clear;
	@@ -998,17 +927,6 @@ var strIdUON1,		@@ -998,17 +927,6 @@ var strIdUON1,
998	strRetorno : String;	927	strRetorno : String;
999	tstrAux : TStrings;	928	tstrAux : TStrings;
1000	begin	929	begin
1001	-
1002	- //Verifico se houve qualquer alteração nas informações.
1003	- // Só vou enviar as novas informações para o bd ou gravar no registro se houve alterações.
1004	- {
1005	- Try
1006	- strAux1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
1007	- strAux2 := VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex];
1008	- Except
1009	- end;
1010	- }
1011	-
1012	tstrAux := TStrings.Create;	930	tstrAux := TStrings.Create;
1013	tstrAux := explode(VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex],'#');	931	tstrAux := explode(VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex],'#');
1014	Try	932	Try
	@@ -1141,8 +1059,8 @@ end;		@@ -1141,8 +1059,8 @@ end;
1141		1059
1142	procedure TFormPatrimonio.FormClose(Sender: TObject; var Action: TCloseAction);	1060	procedure TFormPatrimonio.FormClose(Sender: TObject; var Action: TCloseAction);
1143	begin	1061	begin
1144	- SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1);
1145	- CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1);	1062	+ //SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1);
		1063	+ //CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1);
1146	Application.Terminate;	1064	Application.Terminate;
1147	end;	1065	end;
1148	// Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php	1066	// Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php
	@@ -1194,8 +1112,6 @@ Function TFormPatrimonio.RemoveCaracteresEspeciais(Texto, p_Fill : String; p_sta		@@ -1194,8 +1112,6 @@ Function TFormPatrimonio.RemoveCaracteresEspeciais(Texto, p_Fill : String; p_sta
1194	var I : Integer;	1112	var I : Integer;
1195	strAux : String;	1113	strAux : String;
1196	Begin	1114	Begin
1197	-// if ord(Texto[I]) in [32..126] Then
1198	-// else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais
1199	strAux := '';	1115	strAux := '';
1200	if (Length(trim(Texto))>0) then	1116	if (Length(trim(Texto))>0) then
1201	For I := 0 To Length(Texto) Do	1117	For I := 0 To Length(Texto) Do
	@@ -32,7 +32,8 @@ uses		@@ -32,7 +32,8 @@ uses
32	MSI_XML_Reports,	32	MSI_XML_Reports,
33	DCPcrypt2,	33	DCPcrypt2,
34	DCPrijndael,	34	DCPrijndael,
35	- DCPbase64;	35	+ DCPbase64,
		36	+ CACIC_Library in '..\CACIC_Library.pas';
36		37
37	var p_path_cacic,	38	var p_path_cacic,
38	v_CipherKey,	39	v_CipherKey,
	@@ -769,13 +770,19 @@ begin		@@ -769,13 +770,19 @@ begin
769	End;	770	End;
770	end;	771	end;
771		772
		773	+const
		774	+ CACIC_APP_NAME = 'col_soft';
772		775
773	-
774	-
775	-var tstrTripa1 : TStrings;	776	+var
		777	+ tstrTripa1 : TStrings;
776	intAux : integer;	778	intAux : integer;
		779	+ oCacic : TCACIC;
		780	+
777	begin	781	begin
778	- if (ParamCount>0) then	782	+ oCacic := TCACIC.Create();
		783	+
		784	+ if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
		785	+ if (ParamCount>0) then
779	Begin	786	Begin
780	For intAux := 1 to ParamCount do	787	For intAux := 1 to ParamCount do
781	Begin	788	Begin
	@@ -820,7 +827,9 @@ begin		@@ -820,7 +827,9 @@ begin
820	SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);	827	SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);
821	CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1);	828	CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1);
822	End;	829	End;
823	- Halt(0);
824	End;	830	End;
825	End;	831	End;
		832	+
		833	+ oCacic.Free();
		834	+
826	end.	835	end.
	@@ -31,7 +31,8 @@ uses		@@ -31,7 +31,8 @@ uses
31	MSI_XML_Reports,	31	MSI_XML_Reports,
32	DCPcrypt2,	32	DCPcrypt2,
33	DCPrijndael,	33	DCPrijndael,
34	- DCPbase64;	34	+ DCPbase64,
		35	+ CACIC_Library in '..\CACIC_Library.pas';
35		36
36	var p_path_cacic,	37	var p_path_cacic,
37	v_CipherKey,	38	v_CipherKey,
	@@ -590,10 +591,19 @@ Begin		@@ -590,10 +591,19 @@ Begin
590	End;	591	End;
591	end;	592	end;
592		593
593	-var tstrTripa1 : TStrings;	594	+const
		595	+ CACIC_APP_NAME = 'col_undi';
		596	+
		597	+var
		598	+ tstrTripa1 : TStrings;
594	intAux : integer;	599	intAux : integer;
		600	+ oCacic : TCACIC;
		601	+
595	begin	602	begin
596	- if (ParamCount>0) then	603	+ oCacic := TCACIC.Create();
		604	+
		605	+ if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then
		606	+ if (ParamCount>0) then
597	Begin	607	Begin
598	For intAux := 1 to ParamCount do	608	For intAux := 1 to ParamCount do
599	Begin	609	Begin
	@@ -637,7 +647,9 @@ begin		@@ -637,7 +647,9 @@ begin
637	SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);	647	SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);
638	CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1);	648	CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1);
639	End;	649	End;
640	- Halt(0);
641	End;	650	End;
642	End;	651	End;
		652	+
		653	+ oCacic.Free();
		654	+
643	end.	655	end.