Download as
Browse Code »

Commit 315361afa74f91810a8b48750123ebdade106d2e

Authored by anderson.peterle@previdencia.gov.br
1 parent 2b432a45
Exists in master

Exclusão para posterior reposição com versão 2.6-Beta-2 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@963 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 9 changed files with 0 additions and 1658 deletions   Show diff stats
col_soft/col_soft.cfg
View file @2b432a4
@@ -1,38 +0,0 @@ @@ -1,38 +0,0 @@
1 --$A8  
2 --$B-  
3 --$C+  
4 --$D+  
5 --$E-  
6 --$F-  
7 --$G+  
8 --$H+  
9 --$I+  
10 --$J-  
11 --$K-  
12 --$L+  
13 --$M-  
14 --$N+  
15 --$O+  
16 --$P+  
17 --$Q-  
18 --$R-  
19 --$S-  
20 --$T-  
21 --$U-  
22 --$V+  
23 --$W-  
24 --$X+  
25 --$YD  
26 --$Z1  
27 --cg  
28 --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
29 --H+  
30 --W+  
31 --M  
32 --$M16384,1048576  
33 --K$00400000  
34 --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"  
35 --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"  
36 --w-UNSAFE_TYPE  
37 --w-UNSAFE_CODE  
38 --w-UNSAFE_CAST  
col_soft/col_soft.dof
View file @2b432a4
@@ -1,136 +0,0 @@ @@ -1,136 +0,0 @@
1 -[FileVersion]  
2 -Version=7.0  
3 -[Compiler]  
4 -A=8  
5 -B=0  
6 -C=1  
7 -D=1  
8 -E=0  
9 -F=0  
10 -G=1  
11 -H=1  
12 -I=1  
13 -J=0  
14 -K=0  
15 -L=1  
16 -M=0  
17 -N=1  
18 -O=1  
19 -P=1  
20 -Q=0  
21 -R=0  
22 -S=0  
23 -T=0  
24 -U=0  
25 -V=1  
26 -W=0  
27 -X=1  
28 -Y=1  
29 -Z=1  
30 -ShowHints=1  
31 -ShowWarnings=1  
32 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
33 -NamespacePrefix=  
34 -SymbolDeprecated=1  
35 -SymbolLibrary=1  
36 -SymbolPlatform=1  
37 -UnitLibrary=1  
38 -UnitPlatform=1  
39 -UnitDeprecated=1  
40 -HResultCompat=1  
41 -HidingMember=1  
42 -HiddenVirtual=1  
43 -Garbage=1  
44 -BoundsError=1  
45 -ZeroNilCompat=1  
46 -StringConstTruncated=1  
47 -ForLoopVarVarPar=1  
48 -TypedConstVarPar=1  
49 -AsgToTypedConst=1  
50 -CaseLabelRange=1  
51 -ForVariable=1  
52 -ConstructingAbstract=1  
53 -ComparisonFalse=1  
54 -ComparisonTrue=1  
55 -ComparingSignedUnsigned=1  
56 -CombiningSignedUnsigned=1  
57 -UnsupportedConstruct=1  
58 -FileOpen=1  
59 -FileOpenUnitSrc=1  
60 -BadGlobalSymbol=1  
61 -DuplicateConstructorDestructor=1  
62 -InvalidDirective=1  
63 -PackageNoLink=1  
64 -PackageThreadVar=1  
65 -ImplicitImport=1  
66 -HPPEMITIgnored=1  
67 -NoRetVal=1  
68 -UseBeforeDef=1  
69 -ForLoopVarUndef=1  
70 -UnitNameMismatch=1  
71 -NoCFGFileFound=1  
72 -MessageDirective=1  
73 -ImplicitVariants=1  
74 -UnicodeToLocale=1  
75 -LocaleToUnicode=1  
76 -ImagebaseMultiple=1  
77 -SuspiciousTypecast=1  
78 -PrivatePropAccessor=1  
79 -UnsafeType=0  
80 -UnsafeCode=0  
81 -UnsafeCast=0  
82 -[Linker]  
83 -MapFile=0  
84 -OutputObjs=0  
85 -ConsoleApp=1  
86 -DebugInfo=0  
87 -RemoteSymbols=0  
88 -MinStackSize=16384  
89 -MaxStackSize=1048576  
90 -ImageBase=4194304  
91 -ExeDescription=  
92 -[Directories]  
93 -OutputDir=  
94 -UnitOutputDir=  
95 -PackageDLLOutputDir=  
96 -PackageDCPOutputDir=  
97 -SearchPath=  
98 -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  
99 -Conditionals=  
100 -DebugSourceDirs=  
101 -UsePackages=0  
102 -[Parameters]  
103 -RunParams=  
104 -HostApplication=  
105 -Launcher=  
106 -UseLauncher=0  
107 -DebugCWD=  
108 -[Language]  
109 -ActiveLang=  
110 -ProjectLang=  
111 -RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\  
112 -[Version Info]  
113 -IncludeVerInfo=1  
114 -AutoIncBuild=0  
115 -MajorVer=2  
116 -MinorVer=5  
117 -Release=0  
118 -Build=773  
119 -Debug=0  
120 -PreRelease=0  
121 -Special=0  
122 -Private=0  
123 -DLL=0  
124 -Locale=1046  
125 -CodePage=1252  
126 -[Version Info Keys]  
127 -CompanyName=Dataprev - Emp. de TI da Prev.Social - URES  
128 -FileDescription=Coletor de Informações de Softwares Básicos do Sistema CACIC  
129 -FileVersion=2.5.0.773  
130 -InternalName=  
131 -LegalCopyright=  
132 -LegalTrademarks=  
133 -OriginalFilename=  
134 -ProductName=Col_SOFT  
135 -ProductVersion=2.6  
136 -Comments=Baseado na licença GPL (General Public License)  
col_soft/col_soft.dpr
View file @2b432a4
@@ -1,746 +0,0 @@ @@ -1,746 +0,0 @@
1 -(**  
2 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
3 -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil  
4 -  
5 -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais  
6 -  
7 -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como  
8 -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.  
9 -  
10 -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer  
11 -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.  
12 -  
13 -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software  
14 -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA  
15 -  
16 -NOTA: O componente MiTeC System Information Component (MSIC) é baseado na classe TComponent e contém alguns subcomponentes baseados na classe TPersistent  
17 - Este componente é apenas freeware e não open-source, e foi baixado de http://www.mitec.cz/Downloads/MSIC.zip  
18 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
19 -*)  
20 -  
21 -program col_soft;  
22 -{$R *.res}  
23 -{$APPTYPE CONSOLE}  
24 -uses  
25 - Windows,  
26 - Classes,  
27 - SysUtils,  
28 - Registry,  
29 - MSI_SOFTWARE,  
30 - MSI_ENGINES,  
31 - MSI_OS,  
32 - MSI_XML_Reports,  
33 - CACIC_Library in '..\CACIC_Library.pas';  
34 -  
35 -var  
36 - v_strCipherClosed : String;  
37 - v_Debugs : boolean;  
38 -  
39 -var  
40 - v_tstrCipherOpened,  
41 - v_tstrCipherOpened1,  
42 - tstrTripa1 : TStrings;  
43 -  
44 -var  
45 - intAux : integer;  
46 -  
47 -var  
48 - g_oCacic : TCACIC;  
49 -  
50 -const  
51 - CACIC_APP_NAME = 'col_soft';  
52 -  
53 -procedure log_diario(strMsg : String);  
54 -var  
55 - HistoricoLog : TextFile;  
56 - strDataArqLocal, strDataAtual : string;  
57 -begin  
58 - try  
59 - FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
60 - AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}  
61 - {$IOChecks off}  
62 - Reset(HistoricoLog); {Abre o arquivo texto}  
63 - {$IOChecks on}  
64 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
65 - begin  
66 - Rewrite (HistoricoLog);  
67 - Append(HistoricoLog);  
68 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
69 - end;  
70 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));  
71 - DateTimeToString(strDataAtual , 'yyyymmdd', Date);  
72 - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...  
73 - begin  
74 - Rewrite (HistoricoLog); //Cria/Recria o arquivo  
75 - Append(HistoricoLog);  
76 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
77 - end;  
78 - Append(HistoricoLog);  
79 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now)+ '[Coletor SOFT] '+strMsg); {Grava a string Texto no arquivo texto}  
80 - CloseFile(HistoricoLog); {Fecha o arquivo texto}  
81 - except  
82 - log_diario('Erro na gravação do log!');  
83 - end;  
84 -end;  
85 -  
86 -Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;  
87 -var v_strCipherOpenImploded : string;  
88 - v_DatFile : TextFile;  
89 -begin  
90 - try  
91 - FileSetAttr (p_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
92 - AssignFile(v_DatFile,p_DatFileName); {Associa o arquivo a uma variável do tipo TextFile}  
93 -  
94 - // Criação do arquivo .DAT  
95 - Rewrite (v_DatFile);  
96 - Append(v_DatFile);  
97 -  
98 - v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);  
99 - v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);  
100 -  
101 - Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}  
102 -  
103 - CloseFile(v_DatFile);  
104 - except  
105 - end;  
106 -end;  
107 -  
108 -Function CipherOpen(p_DatFileName : string) : TStrings;  
109 -var v_DatFile : TextFile;  
110 - v_strCipherOpened,  
111 - v_strCipherClosed : string;  
112 -begin  
113 - v_strCipherOpened := '';  
114 - if FileExists(p_DatFileName) then  
115 - begin  
116 - AssignFile(v_DatFile,p_DatFileName);  
117 - {$IOChecks off}  
118 - Reset(v_DatFile);  
119 - {$IOChecks on}  
120 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
121 - begin  
122 - Rewrite (v_DatFile);  
123 - Append(v_DatFile);  
124 - end;  
125 -  
126 - Readln(v_DatFile,v_strCipherClosed);  
127 - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);  
128 - CloseFile(v_DatFile);  
129 - v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);  
130 - end;  
131 - if (trim(v_strCipherOpened)<>'') then  
132 - Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)  
133 - else  
134 - Result := g_oCacic.explode('Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorKey);  
135 -  
136 - if Result.Count mod 2 <> 0 then  
137 - Result.Add('');  
138 -end;  
139 -  
140 -Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings);  
141 -begin  
142 - // Exemplo: p_Chave => Configs.nu_ip_servidor : p_Valor => 10.71.0.120  
143 - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then  
144 - p_tstrCipherOpened[v_tstrCipherOpened.IndexOf(p_Chave)+1] := p_Valor  
145 - else  
146 - Begin  
147 - p_tstrCipherOpened.Add(p_Chave);  
148 - p_tstrCipherOpened.Add(p_Valor);  
149 - End;  
150 -end;  
151 -  
152 -Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;  
153 -begin  
154 - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then  
155 - Result := p_tstrCipherOpened[p_tstrCipherOpened.IndexOf(p_Chave)+1]  
156 - else  
157 - Result := '';  
158 -end;  
159 -  
160 -function GetFolderDate(Folder: string): TDateTime;  
161 -var  
162 - Rec: TSearchRec;  
163 - Found: Integer;  
164 - Date: TDateTime;  
165 -begin  
166 -  
167 - if Folder[Length(folder)] = '\' then  
168 - Delete(Folder, Length(folder), 1);  
169 - Result := 0;  
170 - Found := FindFirst(Folder, faDirectory, Rec);  
171 - try  
172 - if Found = 0 then  
173 - begin  
174 - Date := FileDateToDateTime(Rec.Time);  
175 - Result := Date;  
176 - end;  
177 - finally  
178 - FindClose(Rec);  
179 - end;  
180 -end;  
181 -  
182 -  
183 -  
184 -// Converte caracteres básicos da tabela Ansi para Ascii  
185 -// Solução temporária.  
186 -function AnsiToAscii( StrANSI: String ): String;  
187 -var i: Integer;  
188 - StrASCII, Carac : string;  
189 - Letras_ANSI : array[150..255] of String;  
190 -begin  
191 - Letras_ANSI[150] := ' ';  
192 - Letras_ANSI[169] := '©';  
193 - Letras_ANSI[174] := '®';  
194 - Letras_ANSI[181] := 'µ';  
195 - Letras_ANSI[192] := 'A';  
196 - Letras_ANSI[193] := 'A';  
197 - Letras_ANSI[194] := 'A';  
198 - Letras_ANSI[195] := 'A';  
199 - Letras_ANSI[196] := 'A';  
200 - Letras_ANSI[197] := 'A';  
201 - Letras_ANSI[198] := 'A';  
202 - Letras_ANSI[199] := 'C';  
203 - Letras_ANSI[200] := 'E';  
204 - Letras_ANSI[201] := 'E';  
205 - Letras_ANSI[202] := 'E';  
206 - Letras_ANSI[203] := 'E';  
207 - Letras_ANSI[204] := 'I';  
208 - Letras_ANSI[205] := 'I';  
209 - Letras_ANSI[206] := 'I';  
210 - Letras_ANSI[207] := 'I';  
211 - Letras_ANSI[208] := 'D';  
212 - Letras_ANSI[209] := 'N';  
213 - Letras_ANSI[210] := 'O';  
214 - Letras_ANSI[211] := 'O';  
215 - Letras_ANSI[212] := 'O';  
216 - Letras_ANSI[213] := 'O';  
217 - Letras_ANSI[214] := 'O';  
218 - Letras_ANSI[215] := 'x';  
219 - Letras_ANSI[216] := 'O';  
220 - Letras_ANSI[217] := 'U';  
221 - Letras_ANSI[218] := 'U';  
222 - Letras_ANSI[219] := 'U';  
223 - Letras_ANSI[220] := 'U';  
224 - Letras_ANSI[221] := 'Y';  
225 - Letras_ANSI[222] := 'd';  
226 - Letras_ANSI[223] := 'b';  
227 - Letras_ANSI[224] := 'a';  
228 - Letras_ANSI[225] := 'a';  
229 - Letras_ANSI[226] := 'a';  
230 - Letras_ANSI[227] := 'a';  
231 - Letras_ANSI[228] := 'a';  
232 - Letras_ANSI[229] := 'a';  
233 - Letras_ANSI[230] := 'a';  
234 - Letras_ANSI[231] := 'c';  
235 - Letras_ANSI[232] := 'e';  
236 - Letras_ANSI[233] := 'e';  
237 - Letras_ANSI[234] := 'e';  
238 - Letras_ANSI[235] := 'e';  
239 - Letras_ANSI[236] := 'i';  
240 - Letras_ANSI[237] := 'i';  
241 - Letras_ANSI[238] := 'i';  
242 - Letras_ANSI[239] := 'i';  
243 - Letras_ANSI[240] := 'o';  
244 - Letras_ANSI[241] := 'n';  
245 - Letras_ANSI[242] := 'o';  
246 - Letras_ANSI[243] := 'o';  
247 - Letras_ANSI[244] := 'o';  
248 - Letras_ANSI[245] := 'o';  
249 - Letras_ANSI[246] := 'o';  
250 - Letras_ANSI[247] := 'o';  
251 - Letras_ANSI[248] := 'o';  
252 - Letras_ANSI[249] := 'u';  
253 - Letras_ANSI[250] := 'u';  
254 - Letras_ANSI[251] := 'u';  
255 - Letras_ANSI[252] := 'u';  
256 - Letras_ANSI[253] := 'y';  
257 - Letras_ANSI[254] := 'b';  
258 - Letras_ANSI[255] := 'y';  
259 -  
260 - i := 1;  
261 - StrASCII := '';  
262 - while (i <= Length(StrANSI)) do  
263 - begin  
264 - if (Copy(StrANSI,i,2)='&#') then  
265 - Begin  
266 - Carac := Letras_ANSI[StrToInt(Copy(StrANSI,i+2,3))];  
267 - i := i+ 5;  
268 - End  
269 - else if (Copy(StrANSI,i,4)='&gt;') then  
270 - Begin  
271 - Carac := '?';  
272 - i := i+ 3;  
273 - End  
274 - else if (Copy(StrANSI,i,6)='&quot;') then  
275 - Begin  
276 - Carac := '-';  
277 - i := i+ 5;  
278 - End  
279 - else if (Copy(StrANSI,i,6)='&apos;') then  
280 - Begin  
281 - Carac := '';  
282 - i := i+ 5;  
283 - End  
284 - else if (Copy(StrANSI,i,5)='&amp;') then  
285 - Begin  
286 - Carac := '';  
287 - i := i+ 4;  
288 - End  
289 - else Carac := Copy(StrANSI,i,1);  
290 - StrASCII := StrASCII + Carac;  
291 - i := i+1;  
292 - End;  
293 - Result := StrASCII;  
294 -end;  
295 -  
296 -procedure Grava_Debugs(strMsg : String);  
297 -var  
298 - DebugsFile : TextFile;  
299 - strDataArqLocal, strDataAtual, v_file_debugs : string;  
300 -begin  
301 - try  
302 - v_file_debugs := g_oCacic.getCacicPath + 'Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt';  
303 - FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
304 - AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile}  
305 -  
306 - {$IOChecks off}  
307 - Reset(DebugsFile); {Abre o arquivo texto}  
308 - {$IOChecks on}  
309 -  
310 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
311 - begin  
312 - Rewrite(DebugsFile);  
313 - Append(DebugsFile);  
314 - Writeln(DebugsFile,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Debug <=======================');  
315 - end;  
316 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(v_file_debugs)));  
317 - DateTimeToString(strDataAtual , 'yyyymmdd', Date);  
318 -  
319 - if (strDataAtual <> strDataArqLocal) then // Se o arquivo não é da data atual...  
320 - begin  
321 - Rewrite(DebugsFile); //Cria/Recria o arquivo  
322 - Append(DebugsFile);  
323 - Writeln(DebugsFile,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Debug <=======================');  
324 - end;  
325 -  
326 - Append(DebugsFile);  
327 - Writeln(DebugsFile,FormatDateTime('dd/mm hh:nn:ss : ', Now) + strMsg); {Grava a string Texto no arquivo texto}  
328 - CloseFile(DebugsFile); {Fecha o arquivo texto}  
329 - except  
330 - log_diario('Erro na gravação do Debug!');  
331 - end;  
332 -end;  
333 -  
334 -Function RemoveCaracteresEspeciais(Texto : String) : String;  
335 -var I : Integer;  
336 - strAux : String;  
337 -Begin  
338 - For I := 0 To Length(Texto) Do  
339 - if ord(Texto[I]) in [32..126] Then  
340 - strAux := strAux + Texto[I]  
341 - else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais  
342 - Result := strAux;  
343 -end;  
344 -  
345 -  
346 -function GetRootKey(strRootKey: String): HKEY;  
347 -begin  
348 - if Trim(strRootKey) = 'HKEY_LOCAL_MACHINE' Then Result := HKEY_LOCAL_MACHINE  
349 - else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT' Then Result := HKEY_CLASSES_ROOT  
350 - else if Trim(strRootKey) = 'HKEY_CURRENT_USER' Then Result := HKEY_CURRENT_USER  
351 - else if Trim(strRootKey) = 'HKEY_USERS' Then Result := HKEY_USERS  
352 - else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG' Then Result := HKEY_CURRENT_CONFIG  
353 - else if Trim(strRootKey) = 'HKEY_DYN_DATA' Then Result := HKEY_DYN_DATA;  
354 -end;  
355 -  
356 -// Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php  
357 -//Para buscar do RegEdit...  
358 -function GetValorChaveRegEdit(Chave: String): Variant;  
359 -var RegEditGet: TRegistry;  
360 - RegDataType: TRegDataType;  
361 - strRootKey, strKey, strValue, s: String;  
362 - ListaAuxGet : TStrings;  
363 - DataSize, Len, I : Integer;  
364 -begin  
365 - try  
366 - Result := '';  
367 - ListaAuxGet := g_oCacic.explode(Chave, '\');  
368 -  
369 - strRootKey := ListaAuxGet[0];  
370 - For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';  
371 - strValue := ListaAuxGet[ListaAuxGet.Count - 1];  
372 - if (strValue = '(Padrão)') then strValue := ''; //Para os casos de se querer buscar o valor default (Padrão)  
373 - RegEditGet := TRegistry.Create;  
374 -  
375 - RegEditGet.Access := KEY_READ;  
376 - RegEditGet.Rootkey := GetRootKey(strRootKey);  
377 - if RegEditGet.OpenKeyReadOnly(strKey) then //teste  
378 - Begin  
379 - RegDataType := RegEditGet.GetDataType(strValue);  
380 - if (RegDataType = rdString) or (RegDataType = rdExpandString) then Result := RegEditGet.ReadString(strValue)  
381 - else if RegDataType = rdInteger then Result := RegEditGet.ReadInteger(strValue)  
382 - else if (RegDataType = rdBinary) or (RegDataType = rdUnknown)  
383 - then  
384 - begin  
385 - DataSize := RegEditGet.GetDataSize(strValue);  
386 - if DataSize = -1 then exit;  
387 - SetLength(s, DataSize);  
388 - Len := RegEditGet.ReadBinaryData(strValue, PChar(s)^, DataSize);  
389 - if Len <> DataSize then exit;  
390 - Result := RemoveCaracteresEspeciais(s);  
391 - end  
392 - end;  
393 - finally  
394 - RegEditGet.CloseKey;  
395 - RegEditGet.Free;  
396 - ListaAuxGet.Free;  
397 -  
398 - end;  
399 -end;  
400 -  
401 -function GetAllEnvVars():String;  
402 -var  
403 - Variable: Boolean;  
404 - Str: PChar;  
405 - Res, Retorno: string;  
406 -begin  
407 - Str :=GetEnvironmentStrings;  
408 - Res :='';  
409 - Retorno := '';  
410 - Variable:=False;  
411 - while True do begin  
412 - if Str^=#0 then  
413 - begin  
414 - if Variable then Retorno := Retorno + Res + '#';  
415 - Variable:=True;  
416 - Inc(Str);  
417 - Res:='';  
418 - if Str^=#0 then  
419 - Break  
420 - else  
421 - Res:=Res+str^;  
422 - end  
423 - else  
424 - if Variable then Res:=Res+Str^;  
425 - Inc(str);  
426 - end;  
427 - Result := Retorno;  
428 -end;  
429 -  
430 -  
431 -  
432 -function GetVersaoIE: string;  
433 -var strVersao: string;  
434 -begin  
435 - // Detalhes das versões em http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q164539&  
436 - strVersao := '';  
437 - strVersao := Trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Version'));  
438 - Result := strVersao;  
439 -end;  
440 -  
441 -  
442 -  
443 -function GetVersaoAcrobatReader: String;  
444 -var Reg_GVAR : TRegistry;  
445 - Lista_GVAR: TStringList;  
446 - strChave : String;  
447 -Begin  
448 - Reg_GVAR := TRegistry.Create;  
449 - Reg_GVAR.LazyWrite := False;  
450 - Lista_GVAR := TStringList.Create;  
451 - Reg_GVAR.Rootkey := HKEY_LOCAL_MACHINE;  
452 - strChave := '\Software\Adobe\Acrobat Reader';  
453 - Reg_GVAR.OpenKeyReadOnly(strChave);  
454 - Reg_GVAR.GetKeyNames(Lista_GVAR);  
455 - Reg_GVAR.CloseKey;  
456 - If Lista_GVAR.Count > 0 Then  
457 - Begin  
458 - Lista_GVAR.Sort;  
459 - Result := Lista_GVAR.Strings[Lista_GVAR.Count - 1];  
460 - end;  
461 - Lista_GVAR.Free;  
462 - Reg_GVAR.Free;  
463 -end;  
464 -  
465 -function GetVersaoJRE: String;  
466 -var strVersao: string;  
467 -begin  
468 - strVersao := '';  
469 - strVersao := Trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\JavaSoft\Java Runtime Environment\CurrentVersion'));  
470 - Result := strVersao;  
471 -end;  
472 -  
473 -function GetVersaoMozilla: String;  
474 -var strVersao: string;  
475 -begin  
476 - strVersao := '';  
477 - strVersao := Trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\mozilla.org\Mozilla\CurrentVersion'));  
478 - Result := strVersao;  
479 -end;  
480 -  
481 -procedure Executa_Col_Soft;  
482 -var te_versao_mozilla, te_versao_ie, te_versao_jre, te_versao_acrobat_reader,  
483 - UVC,ValorChaveRegistro, te_inventario_softwares, te_variaveis_ambiente,  
484 - strDisplayName,  
485 - strKeyName : String;  
486 - InfoSoft, v_Report : TStringList;  
487 - i : integer;  
488 - v_SOFTWARE : TMiTeC_Software;  
489 - v_ENGINES : TMiTeC_Engines;  
490 - v_OS : TMiTeC_OperatingSystem;  
491 - registrySoftwares : TRegistry;  
492 -begin  
493 - Try  
494 - log_diario('Coletando informações de Softwares Básicos.');  
495 - SetValorDatMemoria('Col_Soft.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);  
496 - te_versao_mozilla := GetVersaoMozilla;  
497 - te_versao_ie := GetVersaoIE;  
498 - te_versao_jre := GetVersaoJRE;  
499 - te_versao_acrobat_reader := GetVersaoAcrobatReader;  
500 - te_inventario_softwares := '';  
501 - InfoSoft := TStringList.Create;  
502 -  
503 - if not g_oCacic.isWindowsGEVista then  
504 - Begin  
505 - Try  
506 - v_SOFTWARE := TMiTeC_Software.Create(nil);  
507 - v_SOFTWARE.RefreshData;  
508 - MSI_XML_Reports.Software_XML_Report(v_SOFTWARE,true,InfoSoft);  
509 -  
510 - // Caso exista a pasta ..temp/debugs, será criado o arquivo diário debug_<coletor>.txt  
511 - // Usar esse recurso apenas para debug de coletas mal-sucedidas através do componente MSI-Mitec.  
512 - if v_Debugs then  
513 - Begin  
514 - v_Report := TStringList.Create;  
515 -  
516 - MSI_XML_Reports.Software_XML_Report(v_SOFTWARE,true,v_Report);  
517 - v_SOFTWARE.Free;  
518 -  
519 - v_OS := TMiTeC_OperatingSystem.Create(nil);  
520 - v_OS.RefreshData;  
521 -  
522 - MSI_XML_Reports.OperatingSystem_XML_Report(v_OS,true,v_Report);  
523 - v_OS.Free;  
524 - End  
525 -  
526 - except  
527 - log_diario('Problema em Software Report!');  
528 - end;  
529 -  
530 - for i := 0 to v_SOFTWARE.Count - 1 do  
531 - begin  
532 - if (trim(Copy(InfoSoft[i],1,14))='<section name=') then  
533 - Begin  
534 - if (te_inventario_softwares <> '') then  
535 - te_inventario_softwares := te_inventario_softwares + '#';  
536 - te_inventario_softwares := te_inventario_softwares + Copy(InfoSoft[i],16,Pos('">',InfoSoft[i])-16);  
537 - End;  
538 - end;  
539 -  
540 - v_SOFTWARE.Free;  
541 - end  
542 - else  
543 - Begin  
544 - // Chave para 64Bits  
545 - strKeyName := 'Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall';  
546 -  
547 - registrySoftwares := TRegistry.Create;  
548 - with registrySoftwares do  
549 - begin  
550 - RootKey:=HKEY_LOCAL_MACHINE;  
551 - if OpenKey(strKeyName,False)=True then GetKeyNames(InfoSoft);  
552 - CloseKey;  
553 -  
554 - for i:=0 to InfoSoft.Count-1 do  
555 - begin  
556 - RootKey:=HKEY_LOCAL_MACHINE;  
557 - OpenKey(strKeyName + '\'+InfoSoft[i],False);  
558 - strDisplayName := ReadString('DisplayName');  
559 - if (strDisplayName <> '') then  
560 - Begin  
561 - if (Copy(strDisplayName,1,1)='{') then  
562 - begin  
563 - OpenKey(strKeyName + '\'+InfoSoft[i]+'\'+strDisplayName,False);  
564 - strDisplayName := ReadString('DisplayName');  
565 - end;  
566 -  
567 - if (te_inventario_softwares <> '') then  
568 - te_inventario_softwares := te_inventario_softwares + '#';  
569 - te_inventario_softwares := te_inventario_softwares + strDisplayName;  
570 - end;  
571 - CloseKey;  
572 - end;  
573 - end;  
574 -  
575 - // Caso a consulta acima tenha retornado vazio, tentarei a chave para 32Bits  
576 - strKeyName := 'Software\Microsoft\Windows\CurrentVersion\Uninstall';  
577 -  
578 - with registrySoftwares do  
579 - begin  
580 - RootKey:=HKEY_LOCAL_MACHINE;  
581 - if OpenKey(strKeyName,False)=True then GetKeyNames(InfoSoft);  
582 - CloseKey;  
583 -  
584 - for i:=0 to InfoSoft.Count-1 do  
585 - begin  
586 - RootKey:=HKEY_LOCAL_MACHINE;  
587 - OpenKey(strKeyName + '\'+InfoSoft[i],False);  
588 - strDisplayName := ReadString('DisplayName');  
589 - if (strDisplayName <> '') then  
590 - Begin  
591 - if (Copy(strDisplayName,1,1)='{') then  
592 - begin  
593 - OpenKey(strKeyName + '\'+InfoSoft[i]+'\'+strDisplayName,False);  
594 - strDisplayName := ReadString('DisplayName');  
595 - end;  
596 -  
597 - if (te_inventario_softwares <> '') then  
598 - te_inventario_softwares := te_inventario_softwares + '#';  
599 - te_inventario_softwares := te_inventario_softwares + strDisplayName;  
600 - end;  
601 - CloseKey;  
602 - end;  
603 - end;  
604 -  
605 - //  
606 - end;  
607 -  
608 - try  
609 - te_inventario_softwares := AnsiToAscii(te_inventario_softwares);  
610 - except  
611 - log_diario('Falha após a Conversão ANSIxASCII');  
612 - end;  
613 -  
614 - InfoSoft.Free;  
615 -  
616 - // Pego todas as variáveis de ambiente.  
617 - te_variaveis_ambiente := GetAllEnvVars();  
618 -  
619 - v_ENGINES := TMiTeC_Engines.Create(nil);  
620 - v_ENGINES.RefreshData;  
621 -  
622 - // Caso exista a pasta ..temp/debugs, será criado o arquivo diário debug_<coletor>.txt  
623 - // Usar esse recurso apenas para debug de coletas mal-sucedidas através do componente MSI-Mitec.  
624 - if (v_Debugs) then  
625 - Begin  
626 - MSI_XML_Reports.Engines_XML_Report(v_ENGINES,true,v_Report);  
627 - End;  
628 -  
629 - // Monto a string que será comparada com o valor armazenado no registro.  
630 - UVC := v_Engines.ODBC + ';' +  
631 - v_Engines.BDE + ';' +  
632 - v_Engines.DAO + ';' +  
633 - v_Engines.ADO + ';' +  
634 - v_Engines.DirectX.Version + ';' +  
635 - te_versao_mozilla + ';' +  
636 - te_versao_ie + ';' +  
637 - te_versao_acrobat_reader + ';' +  
638 - te_versao_jre + ';' +  
639 - te_inventario_softwares +  
640 - te_variaveis_ambiente;  
641 -  
642 -  
643 - // Obtenho do registro o valor que foi previamente armazenado  
644 - ValorChaveRegistro := Trim(GetValorDatMemoria('Coletas.Software',v_tstrCipherOpened));  
645 -  
646 - SetValorDatMemoria('Col_Soft.Fim' , FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);  
647 -  
648 - // Se essas informações forem diferentes significa que houve alguma alteração  
649 - // na configuração. Nesse caso, gravo as informações no BD Central  
650 - // e, se não houver problemas durante esse procedimento, atualizo as  
651 - // informações no registro.  
652 - If (GetValorDatMemoria('Configs.IN_COLETA_FORCADA_SOFT',v_tstrCipherOpened)='S') or  
653 - (UVC <> ValorChaveRegistro) Then  
654 - Begin  
655 - //Envio via rede para ao Agente Gerente, para gravação no BD.  
656 - SetValorDatMemoria('Col_Soft.te_versao_bde' , v_ENGINES.BDE , v_tstrCipherOpened1);  
657 - SetValorDatMemoria('Col_Soft.te_versao_dao' , v_ENGINES.DAO , v_tstrCipherOpened1);  
658 - SetValorDatMemoria('Col_Soft.te_versao_ado' , v_ENGINES.ADO , v_tstrCipherOpened1);  
659 - SetValorDatMemoria('Col_Soft.te_versao_odbc' , v_ENGINES.ODBC , v_tstrCipherOpened1);  
660 - SetValorDatMemoria('Col_Soft.te_versao_directx' , v_ENGINES.DirectX.Version, v_tstrCipherOpened1);  
661 - SetValorDatMemoria('Col_Soft.te_versao_acrobat_reader', te_versao_acrobat_reader , v_tstrCipherOpened1);  
662 - SetValorDatMemoria('Col_Soft.te_versao_ie' , te_versao_ie , v_tstrCipherOpened1);  
663 - SetValorDatMemoria('Col_Soft.te_versao_mozilla' , te_versao_mozilla , v_tstrCipherOpened1);  
664 - SetValorDatMemoria('Col_Soft.te_versao_jre' , te_versao_jre , v_tstrCipherOpened1);  
665 - SetValorDatMemoria('Col_Soft.te_inventario_softwares' , te_inventario_softwares , v_tstrCipherOpened1);  
666 - SetValorDatMemoria('Col_Soft.te_variaveis_ambiente' , te_variaveis_ambiente , v_tstrCipherOpened1);  
667 - SetValorDatMemoria('Col_Soft.UVC' , UVC , v_tstrCipherOpened1);  
668 - CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);  
669 - end  
670 - else  
671 - Begin  
672 - SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);  
673 - CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);  
674 - End;  
675 - v_ENGINES.Free;  
676 -  
677 - // Caso exista a pasta ..temp/debugs, será criado o arquivo diário debug_<coletor>.txt  
678 - // Usar esse recurso apenas para debug de coletas mal-sucedidas através do componente MSI-Mitec.  
679 - if v_Debugs then  
680 - Begin  
681 - for i:=0 to v_Report.count-1 do  
682 - Begin  
683 - Grava_Debugs(v_report[i]);  
684 - End;  
685 - v_report.Free;  
686 - End;  
687 - Except  
688 - Begin  
689 - SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);  
690 - SetValorDatMemoria('Col_Soft.Fim' , '99999999', v_tstrCipherOpened1);  
691 - CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);  
692 - End;  
693 - End;  
694 -end;  
695 -  
696 -var strAux : String;  
697 -begin  
698 - g_oCacic := TCACIC.Create();  
699 -  
700 - g_oCacic.setBoolCipher(true);  
701 -  
702 - if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then  
703 - if (ParamCount>0) then  
704 - Begin  
705 - strAux := '';  
706 - For intAux := 1 to ParamCount do  
707 - Begin  
708 - if LowerCase(Copy(ParamStr(intAux),1,11)) = '/cacicpath=' then  
709 - begin  
710 - strAux := Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux)))));  
711 - end;  
712 - end;  
713 -  
714 - if (strAux <> '') then  
715 - Begin  
716 - g_oCacic.setCacicPath(strAux);  
717 -  
718 - v_tstrCipherOpened := TStrings.Create;  
719 - v_tstrCipherOpened := CipherOpen(g_oCacic.getCacicPath + g_oCacic.getDatFileName);  
720 -  
721 - v_tstrCipherOpened1 := TStrings.Create;  
722 - v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_soft.dat');  
723 -  
724 - Try  
725 - v_Debugs := false;  
726 -  
727 - if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then  
728 - Begin  
729 - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
730 - Begin  
731 - v_Debugs := true;  
732 - log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
733 - End;  
734 - End;  
735 -  
736 - Executa_Col_Soft;  
737 - Except  
738 - SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);  
739 - CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);  
740 - End;  
741 - End;  
742 - End;  
743 -  
744 - g_oCacic.Free();  
745 -  
746 -end.  
col_soft/col_soft.res
View file @2b432a4
No preview for this file type
col_soft/col_soft_icon.ico
View file @2b432a4
No preview for this file type
col_soft/coleta_software.pas
View file @2b432a4
@@ -1,258 +0,0 @@ @@ -1,258 +0,0 @@
1 -unit coleta_software;  
2 -  
3 -interface  
4 -  
5 -uses Windows, SysUtils, Classes, registry;  
6 -  
7 -function GetWinVer: Integer;  
8 -function GetVersaoIE: string;  
9 -function GetVersaoJRE: String;  
10 -function GetVersaoAcrobatReader: String;  
11 -function GetVersaoMozilla: String;  
12 -procedure RealizarColetaSoftware;  
13 -procedure RealizarColetaSoftwareNaoOpcional;  
14 -  
15 -implementation  
16 -  
17 -Uses registro, main, comunicacao, utils;  
18 -  
19 -  
20 -function GetWinVer: Integer;  
21 -const  
22 - { operating system (OS)constants }  
23 - cOsUnknown = 0;  
24 - cOsWin95 = 1;  
25 - cOsWin95OSR2 = 2; // Não implementado.  
26 - cOsWin98 = 3;  
27 - cOsWin98SE = 4;  
28 - cOsWinME = 5;  
29 - cOsWinNT = 6;  
30 - cOsWin2000 = 7;  
31 - cOsXP = 8;  
32 -var  
33 - osVerInfo: TOSVersionInfo;  
34 - majorVer, minorVer: Integer;  
35 -begin  
36 -  
37 -  
38 -  
39 -{ Memo1.Lines.Add(OSVersion);  
40 - Memo1.Lines.Add(CSD);  
41 - Memo1.Lines.Add(Format('%d.%d.%d',[MSystemInfo.OS.MajorVersion,MSystemInfo.OS.MinorVersion,MSystemInfo.OS.BuildNumber]));  
42 - Memo1.Lines.Add(MSystemInfo.OS.NTSpecific.HotFixes);  
43 - Memo1.Lines.Add(MSystemInfo.OS.Version);  
44 - Memo1.Lines.Add(MSystemInfo.OS.CSDEx);  
45 - Memo1.Lines.Add(MSystemInfo.OS.ProductID);  
46 - Memo1.Lines.Add(MSystemInfo.os.LanguageID);  
47 -  
48 -}  
49 - Result := cOsUnknown;  
50 - { set operating system type flag }  
51 - osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  
52 - if GetVersionEx(osVerInfo) then  
53 - begin  
54 - majorVer := osVerInfo.dwMajorVersion;  
55 - minorVer := osVerInfo.dwMinorVersion;  
56 - case osVerInfo.dwPlatformId of  
57 - VER_PLATFORM_WIN32_NT: { Windows NT/2000 }  
58 - begin  
59 - if majorVer <= 4 then  
60 - Result := cOsWinNT  
61 - else if (majorVer = 5) and (minorVer = 0) then  
62 - Result := cOsWin2000  
63 - else if (majorVer = 5) and (minorVer = 1) then  
64 - Result := cOsXP  
65 - else  
66 - Result := cOsUnknown;  
67 - end;  
68 - VER_PLATFORM_WIN32_WINDOWS: { Windows 9x/ME }  
69 - begin  
70 - if (majorVer = 4) and (minorVer = 0) then  
71 - Result := cOsWin95  
72 - else if (majorVer = 4) and (minorVer = 10) then  
73 - begin  
74 - if osVerInfo.szCSDVersion[1] = 'A' then  
75 - Result := cOsWin98SE  
76 - else  
77 - Result := cOsWin98;  
78 - end  
79 - else if (majorVer = 4) and (minorVer = 90) then  
80 - Result := cOsWinME  
81 - else  
82 - Result := cOsUnknown;  
83 - end;  
84 - else  
85 - Result := cOsUnknown;  
86 - end;  
87 - end  
88 - else  
89 - Result := cOsUnknown;  
90 -end;  
91 -  
92 -  
93 -function GetVersaoIE: string;  
94 -var strVersao: string;  
95 -begin  
96 - // Detalhes das versões em http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q164539&  
97 - strVersao := '';  
98 - strVersao := Trim(Registro.GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Version'));  
99 - Result := strVersao;  
100 -end;  
101 -  
102 -  
103 -  
104 -function GetVersaoAcrobatReader: String;  
105 -var Reg_GVAR : TRegistry;  
106 - Lista_GVAR: TStringList;  
107 - strChave : String;  
108 -Begin  
109 - Reg_GVAR := TRegistry.Create;  
110 - Reg_GVAR.LazyWrite := False;  
111 - Lista_GVAR := TStringList.Create;  
112 - Reg_GVAR.Rootkey := HKEY_LOCAL_MACHINE;  
113 - strChave := '\Software\Adobe\Acrobat Reader';  
114 - Reg_GVAR.OpenKeyReadOnly(strChave);  
115 - Reg_GVAR.GetKeyNames(Lista_GVAR);  
116 - Reg_GVAR.CloseKey;  
117 - If Lista_GVAR.Count > 0 Then  
118 - Begin  
119 - Lista_GVAR.Sort;  
120 - Result := Lista_GVAR.Strings[Lista_GVAR.Count - 1];  
121 - end;  
122 - Lista_GVAR.Free;  
123 - Reg_GVAR.Free;  
124 -end;  
125 -  
126 -  
127 -  
128 -  
129 -function GetVersaoJRE: String;  
130 -var strVersao: string;  
131 -begin  
132 - strVersao := '';  
133 - strVersao := Trim(Registro.GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\JavaSoft\Java Runtime Environment\CurrentVersion'));  
134 - Result := strVersao;  
135 -end;  
136 -  
137 -  
138 -function GetVersaoMozilla: String;  
139 -var strVersao: string;  
140 -begin  
141 - strVersao := '';  
142 - strVersao := Trim(Registro.GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\mozilla.org\Mozilla\CurrentVersion'));  
143 - Result := strVersao;  
144 -end;  
145 -  
146 -  
147 -  
148 -procedure RealizarColetaSoftware;  
149 -var Request_RCS: TStringList;  
150 - te_versao_mozilla, te_versao_ie, te_versao_jre, te_versao_acrobat_reader,  
151 - ValorChaveColetado, ValorChaveRegistro : String;  
152 -begin  
153 - if (CS_COLETA_SOFTWARE) Then  
154 - Begin  
155 - main.frmMain.Log_Historico('* Coletando informações de software.');  
156 - Try main.frmMain.MSystemInfo.Engines.GetInfo; except end;  
157 -  
158 - te_versao_mozilla := GetVersaoMozilla;  
159 - te_versao_ie := GetVersaoIE;  
160 - te_versao_jre := GetVersaoJRE;  
161 - te_versao_acrobat_reader := GetVersaoAcrobatReader;  
162 -  
163 -  
164 - // Monto a string que será comparada com o valor armazenado no registro.  
165 - ValorChaveColetado := main.frmMain.MSystemInfo.Engines.ODBC + ';' +  
166 - main.frmMain.MSystemInfo.Engines.BDE + ';' +  
167 - main.frmMain.MSystemInfo.Engines.DAO + ';' +  
168 - main.frmMain.MSystemInfo.Engines.ADO + ';' +  
169 - main.frmMain.MSystemInfo.Engines.DirectX.Version + ';' +  
170 - te_versao_mozilla + ';' +  
171 - te_versao_ie + ';' +  
172 - te_versao_acrobat_reader + ';' +  
173 - te_versao_jre;  
174 -  
175 - // Obtenho do registro o valor que foi previamente armazenado  
176 - ValorChaveRegistro := Trim(Registro.GetValorChaveRegIni('Coleta','Software',p_path_cacic_ini));  
177 -  
178 - // Se essas informações forem diferentes significa que houve alguma alteração  
179 - // na configuração. Nesse caso, gravo as informações no BD Central  
180 - // e, se não houver problemas durante esse procedimento, atualizo as  
181 - // informações no registro.  
182 - If (IN_COLETA_FORCADA or (ValorChaveColetado <> ValorChaveRegistro)) Then  
183 - Begin  
184 - //Envio via rede para ao Agente Gerente, para gravação no BD.  
185 - Request_RCS:=TStringList.Create;  
186 - Request_RCS.Values['te_node_address'] := TE_NODE_ADDRESS;  
187 - Request_RCS.Values['id_so'] := ID_SO;  
188 - Request_RCS.Values['te_nome_computador'] := TE_NOME_COMPUTADOR;  
189 - Request_RCS.Values['te_versao_bde'] := main.frmMain.MSystemInfo.Engines.BDE;  
190 - Request_RCS.Values['te_versao_dao'] := main.frmMain.MSystemInfo.Engines.DAO ;  
191 - Request_RCS.Values['te_versao_ado'] := main.frmMain.MSystemInfo.Engines.ADO;  
192 - Request_RCS.Values['te_versao_odbc'] := main.frmMain.MSystemInfo.Engines.ODBC;  
193 - Request_RCS.Values['te_versao_directx'] := main.frmMain.MSystemInfo.Engines.DirectX.Version;  
194 - Request_RCS.Values['te_versao_acrobat_reader'] := te_versao_acrobat_reader;  
195 - Request_RCS.Values['te_versao_ie'] := te_versao_ie;  
196 - Request_RCS.Values['te_versao_mozilla'] := te_versao_mozilla;  
197 - Request_RCS.Values['te_versao_jre'] := te_versao_jre;  
198 -  
199 - // Somente atualizo o registro caso não tenha havido nenhum erro durante o envio das informações para o BD  
200 - //Sobreponho a informação no registro para posterior comparação, na próxima execução.  
201 - if (comunicacao.ComunicaServidor('set_software.php', Request_RCS, '>> Enviando informações de software para o servidor.') <> '0') Then  
202 - Begin  
203 - Registro.SetValorChaveRegIni('Coleta','Software', ValorChaveColetado,p_path_cacic_ini);  
204 - end;  
205 - Request_RCS.Free;  
206 - end;  
207 - end  
208 - else main.frmMain.Log_Historico('Coleta de informações de software não configurada.');  
209 -end;  
210 -  
211 -  
212 -  
213 -  
214 -  
215 -  
216 -// Essa coleta não é opcional, ou seja, o administrador não tem como desabilitá-la.  
217 -// Por isso foi necessário criá-la de forma independente da procedure RealizarColetaSoftware.  
218 -procedure RealizarColetaSoftwareNaoOpcional;  
219 -var Request_RCSN: TStringList;  
220 - te_versao_cacic, ValorChaveColetado, ValorChaveRegistro : String;  
221 -begin  
222 -  
223 - main.frmMain.Log_Historico('* Coletando informações básicas de software.');  
224 - te_versao_cacic := utils.getVersionInfo(ParamStr(0));  
225 -  
226 - // Monto a string que será comparada com o valor armazenado no registro.  
227 - ValorChaveColetado := te_versao_cacic;  
228 -  
229 - // Obtenho do registro o valor que foi previamente armazenado  
230 - ValorChaveRegistro := Trim(Registro.GetValorChaveRegIni('Coleta','SoftwareNaoOpcional',p_path_cacic_ini));  
231 -  
232 - // Se essas informações forem diferentes significa que houve alguma alteração  
233 - // na configuração. Nesse caso, gravo as informações no BD Central  
234 - // e, se não houver problemas durante esse procedimento, atualizo as  
235 - // informações no registro.  
236 -  
237 - If (IN_COLETA_FORCADA or (ValorChaveColetado <> ValorChaveRegistro)) Then  
238 - Begin  
239 - //Envio via rede para ao Agente Gerente, para gravação no BD.  
240 - Request_RCSN:=TStringList.Create;  
241 - Request_RCSN.Values['te_node_address'] := TE_NODE_ADDRESS;  
242 - Request_RCSN.Values['id_so'] := ID_SO;  
243 - Request_RCSN.Values['te_nome_computador'] := TE_NOME_COMPUTADOR;  
244 - Request_RCSN.Values['te_versao_cacic'] := te_versao_cacic;  
245 -  
246 - // Somente atualizo o registro caso não tenha havido nenhum erro durante o envio das informações para o BD  
247 - //Sobreponho a informação no registro para posterior comparação, na próxima execução.  
248 - if (comunicacao.ComunicaServidor('set_software_nao_opcional.php', Request_RCSN, '>> Enviando informações básicas de software para o servidor.') <> '0') Then  
249 - Begin  
250 - Registro.SetValorChaveRegIni('Coleta','SoftwareNaoOpcional', ValorChaveColetado,p_path_cacic_ini);  
251 - end;  
252 - Request_RCSN.Free;  
253 - end;  
254 -end;  
255 -  
256 -  
257 -  
258 -end.  
col_soft/main_soft.ddp
View file @2b432a4
No preview for this file type
col_soft/main_soft.dfm
View file @2b432a4
@@ -1,22 +0,0 @@ @@ -1,22 +0,0 @@
1 -object frm_col_soft: Tfrm_col_soft  
2 - Left = 910  
3 - Top = 714  
4 - Width = 112  
5 - Height = 27  
6 - Caption = 'CACIC - Coletor Software'  
7 - Color = clBtnFace  
8 - Font.Charset = DEFAULT_CHARSET  
9 - Font.Color = clWindowText  
10 - Font.Height = -11  
11 - Font.Name = 'MS Sans Serif'  
12 - Font.Style = []  
13 - OldCreateOrder = False  
14 - OnCreate = FormCreate  
15 - PixelsPerInch = 96  
16 - TextHeight = 13  
17 - object MSystemInfo1: TMSystemInfo  
18 - ExceptionModes = [emDefault]  
19 - Left = 120  
20 - Top = 96  
21 - end  
22 -end  
col_soft/main_soft.pas
View file @2b432a4
@@ -1,458 +0,0 @@ @@ -1,458 +0,0 @@
1 -(**  
2 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
3 -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil  
4 -  
5 -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais  
6 -  
7 -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como  
8 -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.  
9 -  
10 -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer  
11 -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.  
12 -  
13 -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software  
14 -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA  
15 -  
16 -NOTA: O componente MiTeC System Information Component (MSIC) é baseado na classe TComponent e contém alguns subcomponentes baseados na classe TPersistent  
17 - Este componente é apenas freeware e não open-source, e foi baixado de http://www.mitec.cz/Downloads/MSIC.zip  
18 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
19 -*)  
20 -  
21 -unit main_soft;  
22 -  
23 -interface  
24 -  
25 -uses Windows, IniFiles, Forms, Classes, SysUtils, Registry, MSI_GUI;  
26 -var p_path_cacic, p_path_cacic_ini : string;  
27 -  
28 -type  
29 - Tfrm_col_soft = class(TForm)  
30 - MSystemInfo1: TMSystemInfo;  
31 - procedure FormCreate(Sender: TObject);  
32 - private  
33 - procedure Executa_Col_Soft;  
34 - procedure Log_Historico(strMsg : String);  
35 - function GetAllEnvVars():String;  
36 - function SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;  
37 - Function Crip(PNome: String): String;  
38 - Function DesCrip(PNome: String): String;  
39 - function GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
40 - function GetValorChaveRegEdit(Chave: String): Variant;  
41 - Function Explode(Texto, Separador : String) : TStrings;  
42 - Function GetRootKey(strRootKey: String): HKEY;  
43 - Function RemoveCaracteresEspeciais(Texto : String) : String;  
44 - function GetVersaoIE: string;  
45 - function GetVersaoAcrobatReader: String;  
46 - function GetVersaoJRE: String;  
47 - function GetVersaoMozilla: String;  
48 - public  
49 - { Public declarations }  
50 - end;  
51 -  
52 -var  
53 - frm_col_soft: Tfrm_col_soft;  
54 -  
55 -implementation  
56 -  
57 -uses StrUtils;  
58 -  
59 -{$R *.dfm}  
60 -  
61 -function Tfrm_col_soft.GetAllEnvVars():String;  
62 -var  
63 - Variable: Boolean;  
64 - Str: PChar;  
65 - Res, Retorno: string;  
66 -begin  
67 - Str :=GetEnvironmentStrings;  
68 - Res :='';  
69 - Retorno := '';  
70 - Variable:=False;  
71 - while True do begin  
72 - if Str^=#0 then  
73 - begin  
74 - if Variable then Retorno := Retorno + Res + '#';  
75 - Variable:=True;  
76 - Inc(Str);  
77 - Res:='';  
78 - if Str^=#0 then  
79 - Break  
80 - else  
81 - Res:=Res+str^;  
82 - end  
83 - else  
84 - if Variable then Res:=Res+Str^;  
85 - Inc(str);  
86 - end;  
87 - Result := Retorno;  
88 -end;  
89 -  
90 -  
91 -//Para gravar no Arquivo INI...  
92 -function Tfrm_col_soft.SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;  
93 -var Reg_Ini : TIniFile;  
94 -begin  
95 - FileSetAttr (p_Path,0);  
96 - Reg_Ini := TIniFile.Create(p_Path);  
97 -// Reg_Ini.WriteString(frm_col_soft.Crip(p_Secao), frm_col_soft.Crip(p_Chave), frm_col_soft.Crip(p_Valor));  
98 - Reg_Ini.WriteString(p_Secao, p_Chave, p_Valor);  
99 - Reg_Ini.Free;  
100 -end;  
101 -  
102 -//Para buscar do Arquivo INI...  
103 -// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções  
104 -function Tfrm_col_soft.GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
105 -var  
106 - FileText : TStringList;  
107 - i, j, v_Size_Section, v_Size_Key : integer;  
108 - v_SectionName, v_KeyName : string;  
109 - begin  
110 - Result := '';  
111 - v_SectionName := '[' + p_SectionName + ']';  
112 - v_Size_Section := strLen(PChar(v_SectionName));  
113 - v_KeyName := p_KeyName + '=';  
114 - v_Size_Key := strLen(PChar(v_KeyName));  
115 - FileText := TStringList.Create;  
116 - try  
117 - FileText.LoadFromFile(p_IniFileName);  
118 - For i := 0 To FileText.Count - 1 Do  
119 - Begin  
120 - if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then  
121 - Begin  
122 - For j := i to FileText.Count - 1 Do  
123 - Begin  
124 - if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then  
125 - Begin  
126 - Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key));  
127 - Break;  
128 - End;  
129 - End;  
130 - End;  
131 - if (Result <> '') then break;  
132 - End;  
133 - finally  
134 - FileText.Free;  
135 - end;  
136 - end;  
137 -  
138 -  
139 -Function Tfrm_col_soft.Explode(Texto, Separador : String) : TStrings;  
140 -var  
141 - strItem : String;  
142 - ListaAuxUTILS : TStrings;  
143 - NumCaracteres, I : Integer;  
144 -Begin  
145 - ListaAuxUTILS := TStringList.Create;  
146 - strItem := '';  
147 - NumCaracteres := Length(Texto);  
148 - For I := 0 To NumCaracteres Do  
149 - If (Texto[I] = Separador) or (I = NumCaracteres) Then  
150 - Begin  
151 - If (I = NumCaracteres) then strItem := strItem + Texto[I];  
152 - ListaAuxUTILS.Add(Trim(strItem));  
153 - strItem := '';  
154 - end  
155 - Else strItem := strItem + Texto[I];  
156 - Explode := ListaAuxUTILS;  
157 -end;  
158 -  
159 -function Tfrm_col_soft.GetRootKey(strRootKey: String): HKEY;  
160 -begin  
161 - if Trim(strRootKey) = 'HKEY_LOCAL_MACHINE' Then Result := HKEY_LOCAL_MACHINE  
162 - else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT' Then Result := HKEY_CLASSES_ROOT  
163 - else if Trim(strRootKey) = 'HKEY_CURRENT_USER' Then Result := HKEY_CURRENT_USER  
164 - else if Trim(strRootKey) = 'HKEY_USERS' Then Result := HKEY_USERS  
165 - else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG' Then Result := HKEY_CURRENT_CONFIG  
166 - else if Trim(strRootKey) = 'HKEY_DYN_DATA' Then Result := HKEY_DYN_DATA;  
167 -end;  
168 -  
169 -Function Tfrm_col_soft.RemoveCaracteresEspeciais(Texto : String) : String;  
170 -var I : Integer;  
171 - strAux : String;  
172 -Begin  
173 - For I := 0 To Length(Texto) Do  
174 - if ord(Texto[I]) in [32..126] Then  
175 - strAux := strAux + Texto[I]  
176 - else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais  
177 - Result := strAux;  
178 -end;  
179 -  
180 -  
181 -  
182 -function Tfrm_col_soft.GetVersaoIE: string;  
183 -var strVersao: string;  
184 -begin  
185 - // Detalhes das versões em http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q164539&  
186 - strVersao := '';  
187 - strVersao := Trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Version'));  
188 - Result := strVersao;  
189 -end;  
190 -  
191 -// Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php  
192 -//Para buscar do RegEdit...  
193 -function Tfrm_col_soft.GetValorChaveRegEdit(Chave: String): Variant;  
194 -var RegEditGet: TRegistry;  
195 - RegDataType: TRegDataType;  
196 - strRootKey, strKey, strValue, s: String;  
197 - ListaAuxGet : TStrings;  
198 - DataSize, Len, I : Integer;  
199 -begin  
200 - try  
201 - Result := '';  
202 - ListaAuxGet := Explode(Chave, '\');  
203 -  
204 - strRootKey := ListaAuxGet[0];  
205 - For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';  
206 - strValue := ListaAuxGet[ListaAuxGet.Count - 1];  
207 - if (strValue = '(Padrão)') then strValue := ''; //Para os casos de se querer buscar o valor default (Padrão)  
208 - RegEditGet := TRegistry.Create;  
209 -  
210 - RegEditGet.Access := KEY_READ;  
211 - RegEditGet.Rootkey := GetRootKey(strRootKey);  
212 - if RegEditGet.OpenKeyReadOnly(strKey) then //teste  
213 - Begin  
214 - RegDataType := RegEditGet.GetDataType(strValue);  
215 - if (RegDataType = rdString) or (RegDataType = rdExpandString) then Result := RegEditGet.ReadString(strValue)  
216 - else if RegDataType = rdInteger then Result := RegEditGet.ReadInteger(strValue)  
217 - else if (RegDataType = rdBinary) or (RegDataType = rdUnknown)  
218 - then  
219 - begin  
220 - DataSize := RegEditGet.GetDataSize(strValue);  
221 - if DataSize = -1 then exit;  
222 - SetLength(s, DataSize);  
223 - Len := RegEditGet.ReadBinaryData(strValue, PChar(s)^, DataSize);  
224 - if Len <> DataSize then exit;  
225 - Result := RemoveCaracteresEspeciais(s);  
226 - end  
227 - end;  
228 - finally  
229 - RegEditGet.CloseKey;  
230 - RegEditGet.Free;  
231 - ListaAuxGet.Free;  
232 -  
233 - end;  
234 -end;  
235 -  
236 -  
237 -function Tfrm_col_soft.GetVersaoAcrobatReader: String;  
238 -var Reg_GVAR : TRegistry;  
239 - Lista_GVAR: TStringList;  
240 - strChave : String;  
241 -Begin  
242 - Reg_GVAR := TRegistry.Create;  
243 - Reg_GVAR.LazyWrite := False;  
244 - Lista_GVAR := TStringList.Create;  
245 - Reg_GVAR.Rootkey := HKEY_LOCAL_MACHINE;  
246 - strChave := '\Software\Adobe\Acrobat Reader';  
247 - Reg_GVAR.OpenKeyReadOnly(strChave);  
248 - Reg_GVAR.GetKeyNames(Lista_GVAR);  
249 - Reg_GVAR.CloseKey;  
250 - If Lista_GVAR.Count > 0 Then  
251 - Begin  
252 - Lista_GVAR.Sort;  
253 - Result := Lista_GVAR.Strings[Lista_GVAR.Count - 1];  
254 - end;  
255 - Lista_GVAR.Free;  
256 - Reg_GVAR.Free;  
257 -end;  
258 -  
259 -function Tfrm_col_soft.GetVersaoJRE: String;  
260 -var strVersao: string;  
261 -begin  
262 - strVersao := '';  
263 - strVersao := Trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\JavaSoft\Java Runtime Environment\CurrentVersion'));  
264 - Result := strVersao;  
265 -end;  
266 -  
267 -function Tfrm_col_soft.GetVersaoMozilla: String;  
268 -var strVersao: string;  
269 -begin  
270 - strVersao := '';  
271 - strVersao := Trim(GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\Software\mozilla.org\Mozilla\CurrentVersion'));  
272 - Result := strVersao;  
273 -end;  
274 -  
275 -procedure Tfrm_col_soft.Executa_Col_Soft;  
276 -var te_versao_mozilla, te_versao_ie, te_versao_jre, te_versao_acrobat_reader,  
277 - ValorChaveColetado,ValorChaveRegistro, te_inventario_softwares, te_variaveis_ambiente : String;  
278 - InfoSoft : TStringList;  
279 - i : integer;  
280 -begin  
281 - Try  
282 - Log_Historico('* Coletando informações de Softwares Básicos.');  
283 -  
284 - Try MSystemInfo1.Engines.GetInfo; except end;  
285 - te_versao_mozilla := GetVersaoMozilla;  
286 - te_versao_ie := GetVersaoIE;  
287 - te_versao_jre := GetVersaoJRE;  
288 - te_versao_acrobat_reader := GetVersaoAcrobatReader;  
289 -  
290 - Try MSystemInfo1.Software.GetInfo; except end;  
291 - InfoSoft := TStringList.Create;  
292 - Try MSystemInfo1.Software.Report(InfoSoft,false); except end;  
293 -  
294 - for i := 0 to InfoSoft.Count - 1 do  
295 - begin  
296 - if (trim(MidStr(InfoSoft[i],13,Pos('type=',InfoSoft[i])-15))<>'') then  
297 - Begin  
298 - if (te_inventario_softwares <> '') then te_inventario_softwares := te_inventario_softwares + '#';  
299 - te_inventario_softwares := te_inventario_softwares + MidStr(InfoSoft[i],13,Pos('type=',InfoSoft[i])-15);  
300 - End;  
301 - end;  
302 - InfoSoft.Free;  
303 -  
304 - // Pego todas as variáveis de ambiente.  
305 - te_variaveis_ambiente := GetAllEnvVars();  
306 -  
307 - // Monto a string que será comparada com o valor armazenado no registro.  
308 - ValorChaveColetado := MSystemInfo1.Engines.ODBC + ';' +  
309 - MSystemInfo1.Engines.BDE + ';' +  
310 - MSystemInfo1.Engines.DAO + ';' +  
311 - MSystemInfo1.Engines.ADO + ';' +  
312 - MSystemInfo1.Engines.DirectX.Version + ';' +  
313 - te_versao_mozilla + ';' +  
314 - te_versao_ie + ';' +  
315 - te_versao_acrobat_reader + ';' +  
316 - te_versao_jre + ';' +  
317 - te_inventario_softwares +  
318 - te_variaveis_ambiente;  
319 -  
320 - // Obtenho do registro o valor que foi previamente armazenado  
321 - ValorChaveRegistro := Trim(GetValorChaveRegIni('Coleta','Software',p_path_cacic_ini));  
322 -  
323 -  
324 - // Se essas informações forem diferentes significa que houve alguma alteração  
325 - // na configuração. Nesse caso, gravo as informações no BD Central  
326 - // e, se não houver problemas durante esse procedimento, atualizo as  
327 - // informações no registro.  
328 - If (GetValorChaveRegIni('Configs','IN_COLETA_FORCADA_SOFT',p_path_cacic_ini)='S') or  
329 - (ValorChaveColetado <> ValorChaveRegistro) Then  
330 - Begin  
331 - //Envio via rede para ao Agente Gerente, para gravação no BD.  
332 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_bde' , frm_col_soft.MSystemInfo1.Engines.BDE , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
333 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_dao' , frm_col_soft.MSystemInfo1.Engines.DAO , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
334 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_ado' , frm_col_soft.MSystemInfo1.Engines.ADO , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
335 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_odbc' , frm_col_soft.MSystemInfo1.Engines.ODBC , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
336 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_directx' , frm_col_soft.MSystemInfo1.Engines.DirectX.Version, frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
337 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_acrobat_reader', te_versao_acrobat_reader , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
338 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_ie' , te_versao_ie , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
339 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_mozilla' , te_versao_mozilla , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
340 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_versao_jre' , te_versao_jre , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
341 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_inventario_softwares' , te_inventario_softwares , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
342 - frm_col_soft.SetValorChaveRegIni('Col_Soft','te_variaveis_ambiente' , te_variaveis_ambiente , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
343 - frm_col_soft.SetValorChaveRegIni('Col_Soft','ValorChaveColetado' , ValorChaveColetado , frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
344 - end  
345 - else  
346 - frm_col_soft.SetValorChaveRegIni('Col_Soft','nada', 'nada', frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
347 - Application.Terminate;  
348 - Except  
349 - frm_col_soft.SetValorChaveRegIni('Col_Soft','nada', 'nada', frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
350 - Application.Terminate;  
351 - End;  
352 -end;  
353 -  
354 -  
355 -procedure Tfrm_col_soft.Log_Historico(strMsg : String);  
356 -var  
357 - HistoricoLog : TextFile;  
358 - strDataArqLocal, strDataAtual : string;  
359 -begin  
360 - try  
361 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
362 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}  
363 - {$IOChecks off}  
364 - Reset(HistoricoLog); {Abre o arquivo texto}  
365 - {$IOChecks on}  
366 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
367 - begin  
368 - Rewrite (HistoricoLog);  
369 - Append(HistoricoLog);  
370 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
371 - end;  
372 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log')));  
373 - DateTimeToString(strDataAtual , 'yyyymmdd', Date);  
374 - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...  
375 - begin  
376 - Rewrite (HistoricoLog); //Cria/Recria o arquivo  
377 - Append(HistoricoLog);  
378 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
379 - end;  
380 - Append(HistoricoLog);  
381 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + strMsg); {Grava a string Texto no arquivo texto}  
382 - CloseFile(HistoricoLog); {Fecha o arquivo texto}  
383 -// FileSetAttr (ExtractFilePath(Application.Exename) + '\cacic2.log',6); // Muda o atributo para arquivo de SISTEMA e OCULTO  
384 -  
385 - except  
386 - Log_Historico('Erro na gravação do log!');  
387 - end;  
388 -end;  
389 -// Simples rotinas de Criptografação e Descriptografação  
390 -// Baixadas de http://www.costaweb.com.br/forum/delphi/474.shtml  
391 -Function Tfrm_col_soft.Crip(PNome: String): String;  
392 -Var  
393 - TamI, TamF: Integer;  
394 - SenA, SenM, SenD: String;  
395 -Begin  
396 - SenA := Trim(PNome);  
397 - TamF := Length(SenA);  
398 - if (TamF > 1) then  
399 - begin  
400 - SenM := '';  
401 - SenD := '';  
402 - For TamI := TamF Downto 1 do  
403 - Begin  
404 - SenM := SenM + Copy(SenA,TamI,1);  
405 - End;  
406 - SenD := Chr(TamF+95)+Copy(SenM,1,1)+Copy(SenA,1,1)+Copy(SenM,2,TamF-2)+Chr(75+TamF);  
407 - end  
408 - else SenD := SenA;  
409 - Result := SenD;  
410 -End;  
411 -  
412 -Function Tfrm_col_soft.DesCrip(PNome: String): String;  
413 -Var  
414 - TamI, TamF: Integer;  
415 - SenA, SenM, SenD: String;  
416 -Begin  
417 - SenA := Trim(PNome);  
418 - TamF := Length(SenA) - 2;  
419 - if (TamF > 1) then  
420 - begin  
421 - SenM := '';  
422 - SenD := '';  
423 - SenA := Copy(SenA,2,TamF);  
424 - SenM := Copy(SenA,1,1)+Copy(SenA,3,TamF)+Copy(SenA,2,1);  
425 - For TamI := TamF Downto 1 do  
426 - Begin  
427 - SenD := SenD + Copy(SenM,TamI,1);  
428 - End;  
429 - end  
430 - else SenD := SenA;  
431 - Result := SenD;  
432 -End;  
433 -  
434 -  
435 -procedure Tfrm_col_soft.FormCreate(Sender: TObject);  
436 -var tstrTripa1 : TStrings;  
437 - intAux : integer;  
438 -begin  
439 -  
440 - //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini  
441 - tstrTripa1 := explode(ExtractFilePath(Application.Exename),'\');  
442 - p_path_cacic := '';  
443 - For intAux := 0 to tstrTripa1.Count -2 do  
444 - begin  
445 - p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';  
446 - end;  
447 - p_path_cacic_ini := p_path_cacic + 'cacic2.ini';  
448 - Application.ShowMainForm := false;  
449 -  
450 - Try  
451 - Executa_Col_Soft;  
452 - Except  
453 - frm_col_soft.SetValorChaveRegIni('Col_Soft','nada', 'nada', frm_col_soft.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_soft.ini');  
454 - Application.Terminate;  
455 - End;  
456 -end;  
457 -end.  
458 -