Download as
Browse Code »

Commit df93fc570160304653952b5781d9fbba58b967ce

Authored by anderson.peterle@previdencia.gov.br
1 parent b7e26a8d
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@969 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 9 changed files with 0 additions and 1109 deletions   Show diff stats
vaca/LEIAME
View file @b7e26a8
@@ -1,2 +0,0 @@ @@ -1,2 +0,0 @@
1 -  
2 -Esse utilitário deve ser usado para a atualização do arquivo versoes_agentes.ini, de onde o módulo gerente WEB extrai as informações de versões dos agentes para envio aos Servidores de Updates.  
vaca/cacic_search.ico
View file @b7e26a8
No preview for this file type
vaca/main_vaca.ddp
View file @b7e26a8
No preview for this file type
vaca/main_vaca.dfm
View file @b7e26a8
@@ -1,480 +0,0 @@ @@ -1,480 +0,0 @@
1 -object frmVACA: TfrmVACA  
2 - Left = 15  
3 - Top = 135  
4 - AutoScroll = False  
5 - Caption = 'VACA - Vers'#245'es Agentes Creator/Atualizator'  
6 - ClientHeight = 538  
7 - ClientWidth = 975  
8 - Color = clBtnFace  
9 - Font.Charset = DEFAULT_CHARSET  
10 - Font.Color = clWindowText  
11 - Font.Height = -11  
12 - Font.Name = 'MS Sans Serif'  
13 - Font.Style = []  
14 - FormStyle = fsStayOnTop  
15 - Icon.Data = {  
16 - 0000010001002020000000000000A80800001600000028000000200000004000  
17 - 0000010008000000000080040000000000000000000000010000000100000000  
18 - 0000800080008000000080800000008000000080800000008000C0C0C000C0DC  
19 - C000F0CAA60080808000FF00FF00FF000000FFFF000000FF000000FFFF000000  
20 - FF00FFFFFF00F0FBFF00A4A0A00000003E0000005D0000007C0000009B000000  
21 - BA000000D9000000F0002424FF004848FF006C6CFF009090FF00B4B4FF000014  
22 - 3E00001E5D0000287C0000329B00003CBA000046D9000055F000246DFF004885  
23 - FF006C9DFF0090B5FF00B4CDFF00002A3E00003F5D0000547C0000699B00007E  
24 - BA000093D90000AAF00024B6FF0048C2FF006CCEFF0090DAFF00B4E6FF00003E  
25 - 3E00005D5D00007C7C00009B9B0000BABA0000D9D90000F0F00024FFFF0048FF  
26 - FF006CFFFF0090FFFF00B4FFFF00003E2A00005D3F00007C5400009B690000BA  
27 - 7E0000D9930000F0AA0024FFB60048FFC2006CFFCE0090FFDA00B4FFE600003E  
28 - 1400005D1E00007C2800009B320000BA3C0000D9460000F0550024FF6D0048FF  
29 - 85006CFF9D0090FFB500B4FFCD00003E0000005D0000007C0000009B000000BA  
30 - 000000D9000000F0000024FF240048FF48006CFF6C0090FF9000B4FFB400143E  
31 - 00001E5D0000287C0000329B00003CBA000046D9000055F000006DFF240085FF  
32 - 48009DFF6C00B5FF9000CDFFB4002A3E00003F5D0000547C0000699B00007EBA  
33 - 000093D90000AAF00000B6FF2400C2FF4800CEFF6C00DAFF9000E6FFB4003E3E  
34 - 00005D5D00007C7C00009B9B0000BABA0000D9D90000F0F00000FFFF2400FFFF  
35 - 4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F00007C5400009B690000BA7E  
36 - 0000D9930000F0AA0000FFB62400FFC24800FFCE6C00FFDA9000FFE6B4003E14  
37 - 00005D1E00007C2800009B320000BA3C0000D9460000F0550000FF6D2400FF85  
38 - 4800FF9D6C00FFB59000FFCDB4003E0000005D0000007C0000009B000000BA00  
39 - 0000D9000000F0000000FF242400FF484800FF6C6C00FF909000FFB4B4003E00  
40 - 14005D001E007C0028009B003200BA003C00D9004600F0005500FF246D00FF48  
41 - 8500FF6C9D00FF90B500FFB4CD003E002A005D003F007C0054009B006900BA00  
42 - 7E00D9009300F000AA00FF24B600FF48C200FF6CCE00FF90DA00FFB4E6003E00  
43 - 3E005D005D007C007C009B009B00BA00BA00D900D900F000F000FF24FF00FF48  
44 - FF00FF6CFF00FF90FF00FFB4FF002A003E003F005D0054007C0069009B007E00  
45 - BA009300D900AA00F000B624FF00C248FF00CE6CFF00DA90FF00E6B4FF001400  
46 - 3E001E005D0028007C0032009B003C00BA004600D9005500F0006D24FF008548  
47 - FF009D6CFF00B590FF00CDB4FF0006060600121212001F1F1F002C2C2C003939  
48 - 390045454500525252005F5F5F006C6C6C007878780085858500929292009F9F  
49 - 9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDEDE00EBEBEB00F8F8F8000000  
50 - 0AF4F7F7F42929000029292929292929290000292929292929290000000000F6  
51 - F4F4F613F7F400000000292929292929000000000029292929290000000000F5  
52 - 2828F4F613F7F429292929292929292929292929292900292929000000000035  
53 - 342828F4F613F7F4000029292929292900000000000029292900000000000029  
54 - 35342828F4F613F7F42929292929292929292929292929290000000000000000  
55 - 2935342828F4F613F7F400292929290000000000000000000000000000000000  
56 - 002935342828F4F613F7F4000029000000000000000000000000000000000000  
57 - 00002935343328F4F613F7F40029000000000000000000000000000000000000  
58 - 0000002935343328F4F613F70000000000000000000000000000000000000000  
59 - 000000002935343328F4F6F70000F6F7F6F6F4F4F4F4F6000000000000000000  
60 - 000F0F0F0F2935343328F4F7F4F6F7F6F6F6F5F713F7F4F4F600000000000000  
61 - 001A1A1A1A1A2935342A0AF8F9F6F6E8E8E8E8E8E8E8E8F6F4F4000000000000  
62 - 00000F0F0F0F0F29EBFCF9F5F6A241414141414141414141130AF40000000000  
63 - 0000CBD100003D000000FAF6A2F4F4F4F4F4F4F4F4F46E6EFF130AF400000000  
64 - 00CBCED1003D3C000000F7A297F4F4F4F4F4F4F4EBEB6E6E6EFFF7F4F6000000  
65 - D1D1CED13D3C3A3D000013968B979797418B8B8BEBEBEB6E6E6E97F4F4000000  
66 - D1CECBD13D3A3C3D00BA099797979772418B8B9F9FEBEB6E6E8B8BF7F4F60000  
67 - D1D1CED13D3D3C3D0013978B97727272418B8B9F9FEBEBEB6E7B8B09F4F60000  
68 - D1CECBD13D3C3A3DF9F9978B72729797418B8B8B9FEBEBEB7B7B8B97F4F40000  
69 - D1CECBD13D3D3C3DF909978B72727241418B8B8B8BEBEB8B7B7B8B8BF4F40000  
70 - D1CBCED13C3C3A3DF909978B72727241418B8B8B8BEBEB8B7B7B8B97F4F600CE  
71 - D0D13D3C3A3D1A18F9F9978B72724141418B8B8B8BEBEBEB7B7B8B09F4F600D1  
72 - D0D13D3A3C3E1A171B13978B727241414197978B8B8BEBEB7B7B97A2F40000D1  
73 - D0D1003C3D3E00181BF9099772724141979797979797EBEB7B7B97F6F40000D1  
74 - D100003D3D3E001A1B1B1397727241419797979797EBEB977B7B09F4000000D1  
75 - D100003E3D3E001B1B1B1309727241419797979797EBEB8B7B09F6F40000D1D1  
76 - D100000F3E00001B1B1B1B13FC724141978B979797EB8B9709F7F6282800D1D1  
77 - 0000000F0F0000101B1B1B6EF70997978B8B8B8B8BEB9709F7F66E282800D1D1  
78 - 0000000F3E0000101B1B006E6E13F6090997979797EBF5F76E6E00002828D1D1  
79 - 0000003E0F00001B1B006E6E6E3E3E13F5F4F5F7F5F500006E6E00002828D1D1  
80 - 00003E0F00001B101B006E6E6E3E3E3E00009F9F00C5C500006E6E000028D100  
81 - 000F0F00001B1000006E6E6E6E003E3E0000009F9F00C5C500006E6E00000000  
82 - 00030000000300000003000000030000000380000007800000078000000FC000  
83 - 000FC000001FE000001FE000000FF0000007F0300003E0300001C0300001C020  
84 - 0000C0200000C0000000C0000000C00000008000000080000001888000019880  
85 - 00039880000319800001398000013988000C399000CC3310326666613933}  
86 - OldCreateOrder = False  
87 - Position = poScreenCenter  
88 - Visible = True  
89 - OnCreate = FormCreate  
90 - DesignSize = (  
91 - 975  
92 - 538)  
93 - PixelsPerInch = 96  
94 - TextHeight = 13  
95 - object Label1: TLabel  
96 - Left = 2  
97 - Top = 0  
98 - Width = 970  
99 - Height = 27  
100 - Alignment = taCenter  
101 - AutoSize = False  
102 - Caption = 'VACA - Vers'#245'es_Agentes Creator/Atualizator'  
103 - Font.Charset = DEFAULT_CHARSET  
104 - Font.Color = clWindowText  
105 - Font.Height = -21  
106 - Font.Name = 'Bitstream Vera Sans'  
107 - Font.Style = [fsBold, fsUnderline]  
108 - ParentFont = False  
109 - Transparent = False  
110 - WordWrap = True  
111 - end  
112 - object Label2: TLabel  
113 - Left = 2  
114 - Top = 27  
115 - Width = 970  
116 - Height = 13  
117 - Alignment = taCenter  
118 - AutoSize = False  
119 - Caption =  
120 - 'Utilit'#225'rio para Cria'#231#227'o/Atualiza'#231#227'o do Arquivo "versoes_agentes.' +  
121 - 'ini" do Sistema CACIC'  
122 - Font.Charset = DEFAULT_CHARSET  
123 - Font.Color = clDefault  
124 - Font.Height = -11  
125 - Font.Name = 'MS Sans Serif'  
126 - Font.Style = []  
127 - ParentFont = False  
128 - Transparent = False  
129 - end  
130 - object Label3: TLabel  
131 - Left = 2  
132 - Top = 41  
133 - Width = 970  
134 - Height = 13  
135 - Alignment = taCenter  
136 - AutoSize = False  
137 - Caption =  
138 - 'Aten'#231#227'o: Dever'#225' ser executado no mesmo local dos arquivos execut' +  
139 - #225'veis'  
140 - Font.Charset = DEFAULT_CHARSET  
141 - Font.Color = clNavy  
142 - Font.Height = -11  
143 - Font.Name = 'MS Sans Serif'  
144 - Font.Style = []  
145 - ParentFont = False  
146 - Transparent = False  
147 - end  
148 - object Panel1: TPanel  
149 - Left = 890  
150 - Top = 517  
151 - Width = 83  
152 - Height = 20  
153 - BevelInner = bvRaised  
154 - BevelOuter = bvLowered  
155 - Caption = 'Panel1'  
156 - TabOrder = 1  
157 - object Label4: TLabel  
158 - Left = 2  
159 - Top = 2  
160 - Width = 79  
161 - Height = 16  
162 - Align = alClient  
163 - Alignment = taCenter  
164 - Caption = 'Label4'  
165 - end  
166 - end  
167 - object List: TListView  
168 - Left = 1  
169 - Top = 72  
170 - Width = 885  
171 - Height = 465  
172 - Anchors = [akLeft, akTop, akRight, akBottom]  
173 - BiDiMode = bdLeftToRight  
174 - Color = clWhite  
175 - Columns = <  
176 - item  
177 - Caption = 'Status'  
178 - Width = 42  
179 - end  
180 - item  
181 - Caption = 'Agente'  
182 - Width = 130  
183 - end  
184 - item  
185 - Alignment = taCenter  
186 - Caption = 'Vers'#227'o INI'  
187 - Width = 70  
188 - end  
189 - item  
190 - Alignment = taCenter  
191 - Caption = 'Vers'#227'o EXE'  
192 - Width = 70  
193 - end  
194 - item  
195 - Alignment = taRightJustify  
196 - Caption = 'Tam. (KB)'  
197 - Width = 59  
198 - end  
199 - item  
200 - Alignment = taCenter  
201 - Caption = 'Data'  
202 - Width = 70  
203 - end  
204 - item  
205 - Caption = 'Hash Code INI'  
206 - Width = 220  
207 - end  
208 - item  
209 - Caption = 'Hash Code EXE'  
210 - Width = 220  
211 - end>  
212 - DragMode = dmAutomatic  
213 - GridLines = True  
214 - HotTrackStyles = [htUnderlineHot]  
215 - ReadOnly = True  
216 - ParentBiDiMode = False  
217 - SmallImages = ImageList1  
218 - TabOrder = 0  
219 - TabStop = False  
220 - ViewStyle = vsReport  
221 - OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem  
222 - end  
223 - object pnComandos: TPanel  
224 - Left = 889  
225 - Top = 72  
226 - Width = 84  
227 - Height = 444  
228 - BevelInner = bvLowered  
229 - BevelOuter = bvSpace  
230 - Color = clSilver  
231 - TabOrder = 2  
232 - DesignSize = (  
233 - 84  
234 - 444)  
235 - object Image1: TImage  
236 - Left = 34  
237 - Top = 86  
238 - Width = 17  
239 - Height = 21  
240 - Hint = 'Atualizar Lista...'  
241 - ParentShowHint = False  
242 - Picture.Data = {  
243 - 055449636F6E0000010001000F12000000000000900500001600000028000000  
244 - 0F00000024000000010008000000000068010000000000000000000000010000  
245 - 00000000FFFFFF00CCFFFF0099FFFF0066FFFF0033FFFF0000FFFF00FFCCFF00  
246 - CCCCFF0099CCFF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF00  
247 - 6699FF003399FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF00  
248 - 0066FF00FF33FF00CC33FF009933FF006633FF003333FF000033FF00FF00FF00  
249 - CC00FF009900FF006600FF003300FF000000FF00FFFFCC00CCFFCC0099FFCC00  
250 - 66FFCC0033FFCC0000FFCC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC00  
251 - 00CCCC00FF99CC00CC99CC009999CC006699CC003399CC000099CC00FF66CC00  
252 - CC66CC009966CC006666CC003366CC000066CC00FF33CC00CC33CC009933CC00  
253 - 6633CC003333CC000033CC00FF00CC00CC00CC009900CC006600CC003300CC00  
254 - 0000CC00FFFF9900CCFF990099FF990066FF990033FF990000FF9900FFCC9900  
255 - CCCC990099CC990066CC990033CC990000CC9900FF999900CC99990099999900  
256 - 669999003399990000999900FF669900CC669900996699006666990033669900  
257 - 00669900FF339900CC33990099339900663399003333990000339900FF009900  
258 - CC00990099009900660099003300990000009900FFFF6600CCFF660099FF6600  
259 - 66FF660033FF660000FF6600FFCC6600CCCC660099CC660066CC660033CC6600  
260 - 00CC6600FF996600CC99660099996600669966003399660000996600FF666600  
261 - CC66660099666600666666003366660000666600FF336600CC33660099336600  
262 - 663366003333660000336600FF006600CC006600990066006600660033006600  
263 - 00006600FFFF3300CCFF330099FF330066FF330033FF330000FF3300FFCC3300  
264 - CCCC330099CC330066CC330033CC330000CC3300FF993300CC99330099993300  
265 - 669933003399330000993300FF663300CC663300996633006666330033663300  
266 - 00663300FF333300CC33330099333300663333003333330000333300FF003300  
267 - CC00330099003300660033003300330000003300FFFF0000CCFF000099FF0000  
268 - 66FF000033FF000000FF0000FFCC0000CCCC000099CC000066CC000033CC0000  
269 - 00CC0000FF990000CC99000099990000669900003399000000990000FF660000  
270 - CC66000099660000666600003366000000660000FF330000CC33000099330000  
271 - 663300003333000000330000FF000000CC000000990000006600000033000000  
272 - 0000000063650000639A00000004000084868400CECFCE00009A31009CFFFF00  
273 - CED3D600FFFFFF00000000000000000000000000000000000000000000000000  
274 - 0000000000000000000000000000000000000000000000000000000000000000  
275 - 0000000000000000000000000000000000000000000000000000000000000000  
276 - 0000000000000000000000000000000000000000000000000000000000000000  
277 - 00000000DFDFDFDFDFDFDFDFDFDFDFDFDFDFDF00DFDADADADADADADADADADADA  
278 - DADADF00DFDBDCDCDCDCDCDCDCDCDCDCDCDADF00DFDB0000DE00DEDDDE00DE00  
279 - DCDADF00DFDB00DE00DEDDDD00DE00DEDCDADF00DFDB0000DEDDDDDDDDDDDE00  
280 - DCDADF00DFDB00DE00DEDDDD00D9D8DEDCDADF00DFDB0000DE00DEDDDE00D800  
281 - DCDADF00DFDB00DED8DE00DE00DED8DEDCDADF00DFDB0000D800DEDDDE00DE00  
282 - DCDADF00DFDB00DED8D900DDDDDE00DEDCDADF00DFDB0000DEDDDDDDDDDDDE00  
283 - DCDADF00DFDB0000000000DDDDDE00DCDCDADF00DFDB0000000000DDDE00DADA  
284 - DADADF00DFDB0000000000DE00DEDB00DADFDF00DFDB0000000000000000DBDA  
285 - DFDFDF00DFDBDBDBDBDBDBDBDBDBDBDFDFDFDF00DFDFDFDFDFDFDFDFDFDFDFDF  
286 - DFDFDF0000000000000000000000000000000000000000000000000000000000  
287 - 0000000000000000000000000000000000000000000000000000000000000000  
288 - 000000000000000000000000}  
289 - ShowHint = True  
290 - OnClick = Image1Click  
291 - end  
292 - object Bt_VAI: TButton  
293 - Left = 5  
294 - Top = 5  
295 - Width = 74  
296 - Height = 30  
297 - Cursor = crHandPoint  
298 - Hint = 'Cria/Atualiza Arquivo "versoes_agentes.ini"'  
299 - Anchors = [akRight, akBottom]  
300 - Cancel = True  
301 - Caption = 'Cria/Atualiza'  
302 - Default = True  
303 - ParentShowHint = False  
304 - ShowHint = True  
305 - TabOrder = 0  
306 - OnClick = Bt_VAIClick  
307 - end  
308 - object Bt_Fechar: TButton  
309 - Left = 5  
310 - Top = 40  
311 - Width = 74  
312 - Height = 30  
313 - Cursor = crHandPoint  
314 - Anchors = [akRight, akBottom]  
315 - Cancel = True  
316 - Caption = 'Fecha'  
317 - Default = True  
318 - TabOrder = 1  
319 - OnClick = Bt_FecharClick  
320 - end  
321 - object Panel2: TPanel  
322 - Left = 6  
323 - Top = 35  
324 - Width = 72  
325 - Height = 4  
326 - BevelInner = bvSpace  
327 - BevelOuter = bvSpace  
328 - TabOrder = 2  
329 - end  
330 - end  
331 - object PJVersionInfo1: TPJVersionInfo  
332 - Left = 548  
333 - Top = 244  
334 - end  
335 - object ImageList1: TImageList  
336 - BlendColor = clScrollBar  
337 - DrawingStyle = dsTransparent  
338 - Left = 580  
339 - Top = 243  
340 - Bitmap = {  
341 - 494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600  
342 - 0000000000003600000028000000400000001000000001002000000000000010  
343 - 00000000000000000000000000000000000000000000BDBDBD007B7B7B007B7B  
344 - 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B  
345 - 7B007B7B7B007B7B7B007B7B7B00000000000000000000000000000000000000  
346 - 00007B7B7B008484840000000000000000000000000000000000000000000000  
347 - 0000000000000000000000000000000000000000000000000000000000000000  
348 - 0000000000000000000000000000000000000000000000000000000000000000  
349 - 0000000000000000000000000000000000000000000000000000000000000000  
350 - 0000000000000000000000000000000000000000000000000000000000000000  
351 - 00000000000000000000000000000000000000393900007B7B00007B7B00007B  
352 - 7B00007B7B00007B7B00007B7B00007B7B00007B7B00007B7B00007B7B00007B  
353 - 7B00007B7B00007B7B00000000007B7B7B000000000000000000000000000000  
354 - 0000319C0000319C00007B7B7B00000000000000000000000000000000000000  
355 - 0000000000000000000000000000000000000000000000000000000000000000  
356 - 0000000000000000000000000000000000000000000000000000000000000000  
357 - 0000000000000000000000000000000000000000000000000000000000000000  
358 - 0000000000000000000000000000000000000000000000000000000000000000  
359 - 000000000000000000000000000000000000007B7B0000FFFF0000FFFF0000FF  
360 - FF0000FFFF0000FFFF0000BDBD00007B7B0000FFFF0000FFFF0000FFFF0000FF  
361 - FF0000FFFF0000BDBD0000000000BDBDBD000000000000000000000000008484  
362 - 8400319C0000319C0000319C0000848484000000000000000000000000000000  
363 - 0000000000000000000000000000000000000000000000000000000000000000  
364 - 0000000000000000000000000000000000000000000000000000000000000000  
365 - 0000000000000000000000000000000000000000000000000000000000000000  
366 - 0000000000000000000000000000000000000000000000000000000000000000  
367 - 0000000000000000000000000000000000007B7B7B0000FFFF0000FFFF0000FF  
368 - FF0000FFFF0000FFFF000000000000000000007B7B0000FFFF0000FFFF0000FF  
369 - FF0000FFFF0000393900393939000000000000000000000000007B7B7B00319C  
370 - 0000319C0000319C0000319C0000319C00007B7B7B0000000000000000000000  
371 - 0000000000000000000000000000000000000000000000000000000000000000  
372 - 0000000000000000000000000000000000000000000000000000000000000000  
373 - 0000000000000000000000000000000000000000000000000000000000000000  
374 - 0000000000000000000000000000000000000000000000000000000000000000  
375 - 00000000000000000000000000000000000000000000007B7B0000FFFF0000FF  
376 - FF0000FFFF0000FFFF0000BDBD00007B7B0000FFFF0000FFFF0000FFFF0000FF  
377 - FF0000BDBD0000000000BDBDBD00000000000000000084848400319C0000319C  
378 - 0000CEFF9C00319C0000319C0000319C0000319C000084848400000000000000  
379 - 0000000000000000000000000000000000000000000000000000000000000000  
380 - 0000000000000000000000000000000000000000000000000000000000000000  
381 - 0000000000000000000000000000000000000000000000000000000000000000  
382 - 0000000000000000000000000000000000000000000000000000000000000000  
383 - 000000000000000000000000000000000000000000007B7B7B0000FFFF0000FF  
384 - FF0000FFFF0000FFFF00007B7B000000000000FFFF0000FFFF0000FFFF0000FF  
385 - FF000039390039393900000000000000000000000000319C0000319C0000319C  
386 - 000000000000CEFF9C00319C0000319C0000319C000084848400000000000000  
387 - 0000000000000000000000000000000000000000000000000000000000000000  
388 - 0000000000000000000000000000000000000000000000000000000000000000  
389 - 0000000000000000000000000000000000000000000000000000000000000000  
390 - 0000000000000000000000000000000000000000000000000000000000000000  
391 - 0000000000000000000000000000000000000000000000000000007B7B0000FF  
392 - FF0000FFFF0000FFFF00007B7B000000000000FFFF0000FFFF0000FFFF0000BD  
393 - BD0000000000BDBDBD00000000000000000000000000CEFF9C00319C0000CEFF  
394 - 9C000000000000000000CEFF9C00319C0000319C0000319C0000848484000000  
395 - 0000000000000000000000000000000000000000000000000000000000000000  
396 - 0000000000000000000000000000000000000000000000000000000000000000  
397 - 0000000000000000000000000000000000000000000000000000000000000000  
398 - 0000000000000000000000000000000000000000000000000000000000000000  
399 - 00000000000000000000000000000000000000000000000000007B7B7B0000FF  
400 - FF0000FFFF0000FFFF000000000000000000007B7B0000FFFF0000FFFF000039  
401 - 3900393939000000000000000000000000000000000000000000CEFF9C000000  
402 - 0000000000000000000000000000CEFF9C00319C0000319C0000319C00008484  
403 - 8400000000000000000000000000000000000000000000000000000000000000  
404 - 0000000000000000000000000000000000000000000000000000000000000000  
405 - 0000000000000000000000000000000000000000000000000000000000000000  
406 - 0000000000000000000000000000000000000000000000000000000000000000  
407 - 000000000000000000000000000000000000000000000000000000000000007B  
408 - 7B0000FFFF0000FFFF000000000000000000007B7B0000FFFF0000BDBD000000  
409 - 0000BDBDBD000000000000000000000000000000000000000000CEFF9C000000  
410 - 0000000000000000000000000000CEFF9C00319C0000319C0000319C00008484  
411 - 8400000000000000000000000000000000000000000000000000000000000000  
412 - 0000000000000000000000000000000000000000000000000000000000000000  
413 - 0000000000000000000000000000000000000000000000000000000000000000  
414 - 0000000000000000000000000000000000000000000000000000000000000000  
415 - 0000000000000000000000000000000000000000000000000000000000007B7B  
416 - 7B0000FFFF0000FFFF000000000000000000007B7B0000FFFF00003939003939  
417 - 3900000000000000000000000000000000000000000000000000000000000000  
418 - 000000000000000000000000000000000000CEFF9C00319C0000319C0000319C  
419 - 0000000000000000000000000000000000000000000000000000000000000000  
420 - 0000000000000000000000000000000000000000000000000000000000000000  
421 - 0000000000000000000000000000000000000000000000000000000000000000  
422 - 0000000000000000000000000000000000000000000000000000000000000000  
423 - 0000000000000000000000000000000000000000000000000000000000000000  
424 - 0000007B7B0000FFFF000000000000000000007B7B0000BDBD0000000000BDBD  
425 - BD00000000000000000000000000000000000000000000000000000000000000  
426 - 00000000000000000000000000000000000000000000CEFF9C00319C0000319C  
427 - 0000848484000000000000000000000000000000000000000000000000000000  
428 - 0000000000000000000000000000000000000000000000000000000000000000  
429 - 0000000000000000000000000000000000000000000000000000000000000000  
430 - 0000000000000000000000000000000000000000000000000000000000000000  
431 - 0000000000000000000000000000000000000000000000000000000000000000  
432 - 00007B7B7B0000FFFF0000BDBD00007B7B0000FFFF0000393900393939000000  
433 - 0000000000000000000000000000000000000000000000000000000000000000  
434 - 0000000000000000000000000000000000000000000000000000CEFF9C00319C  
435 - 0000319C00008484840000000000000000000000000000000000000000000000  
436 - 0000000000000000000000000000000000000000000000000000000000000000  
437 - 0000000000000000000000000000000000000000000000000000000000000000  
438 - 0000000000000000000000000000000000000000000000000000000000000000  
439 - 0000000000000000000000000000000000000000000000000000000000000000  
440 - 000000000000007B7B0000FFFF0000FFFF0000BDBD0000000000BDBDBD000000  
441 - 0000000000000000000000000000000000000000000000000000000000000000  
442 - 000000000000000000000000000000000000000000000000000000000000CEFF  
443 - 9C00319C0000319C00007B7B7B00000000000000000000000000000000000000  
444 - 0000000000000000000000000000000000000000000000000000000000000000  
445 - 0000000000000000000000000000000000000000000000000000000000000000  
446 - 0000000000000000000000000000000000000000000000000000000000000000  
447 - 0000000000000000000000000000000000000000000000000000000000000000  
448 - 0000000000007B7B7B0000FFFF0000FFFF000039390039393900000000000000  
449 - 0000000000000000000000000000000000000000000000000000000000000000  
450 - 0000000000000000000000000000000000000000000000000000000000000000  
451 - 0000319C0000319C00007B7B7B00000000000000000000000000000000000000  
452 - 0000000000000000000000000000000000000000000000000000000000000000  
453 - 0000000000000000000000000000000000000000000000000000000000000000  
454 - 0000000000000000000000000000000000000000000000000000000000000000  
455 - 0000000000000000000000000000000000000000000000000000000000000000  
456 - 00000000000000000000397B7B00007B7B00BDBDBD0000000000000000000000  
457 - 0000000000000000000000000000000000000000000000000000000000000000  
458 - 0000000000000000000000000000000000000000000000000000000000000000  
459 - 0000CEFF9C00319C0000319C0000000000000000000000000000000000000000  
460 - 0000000000000000000000000000000000000000000000000000000000000000  
461 - 0000000000000000000000000000000000000000000000000000000000000000  
462 - 0000000000000000000000000000000000000000000000000000000000000000  
463 - 0000000000000000000000000000000000000000000000000000000000000000  
464 - 0000000000000000000000000000000000000000000000000000000000000000  
465 - 0000000000000000000000000000000000000000000000000000000000000000  
466 - 0000000000000000000000000000000000000000000000000000000000000000  
467 - 000000000000CEFF9C0000000000000000000000000000000000000000000000  
468 - 0000000000000000000000000000000000000000000000000000000000000000  
469 - 0000000000000000000000000000000000000000000000000000000000000000  
470 - 0000000000000000000000000000000000000000000000000000000000000000  
471 - 000000000000000000000000000000000000424D3E000000000000003E000000  
472 - 2800000040000000100000000100010000000000800000000000000000000000  
473 - 000000000000000000000000FFFFFF008001F3FF000000000000F1FF00000000  
474 - 0000E0FF000000000001C07F000000008001803F000000008003883F00000000  
475 - C0038C1F00000000C007DE0F00000000E007DE0F00000000E00FFF0F00000000  
476 - F00FFF8700000000F01FFFC300000000F81FFFE100000000F83FFFF100000000  
477 - FC7FFFF100000000FFFFFFFB0000000000000000000000000000000000000000  
478 - 000000000000}  
479 - end  
480 -end  
vaca/main_vaca.pas
View file @b7e26a8
@@ -1,443 +0,0 @@ @@ -1,443 +0,0 @@
1 -unit main_vaca;  
2 -  
3 -interface  
4 -  
5 -uses  
6 - Windows,  
7 - SysUtils,  
8 - Classes,  
9 - Graphics,  
10 - Controls,  
11 - Forms,  
12 - StdCtrls,  
13 - ExtCtrls,  
14 - ImgList,  
15 - ComCtrls,  
16 - PJVersionInfo,  
17 - inifiles,  
18 - md5;  
19 -  
20 -type  
21 - TfrmVACA = class(TForm)  
22 - List: TListView;  
23 - PJVersionInfo1: TPJVersionInfo;  
24 - Label1: TLabel;  
25 - Label2: TLabel;  
26 - Label3: TLabel;  
27 - ImageList1: TImageList;  
28 - Panel1: TPanel;  
29 - Label4: TLabel;  
30 - pnComandos: TPanel;  
31 - Bt_VAI: TButton;  
32 - Bt_Fechar: TButton;  
33 - Image1: TImage;  
34 - Panel2: TPanel;  
35 - procedure FormCreate(Sender: TObject);  
36 - procedure Bt_FecharClick(Sender: TObject);  
37 - function GetVersionInfo(p_File: string):string;  
38 - function VerFmt(const MS, LS: DWORD): string;  
39 - Function ListFileDir(Path,p_exception : string):string;  
40 - Function Explode(Texto, Separador : String) : TStrings;  
41 - function SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;  
42 - function GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
43 - function Get_File_Size(sFileToExamine: string; bInKBytes: Boolean): string;  
44 - procedure Refresh;  
45 - procedure Bt_VAIClick(Sender: TObject);  
46 - procedure Image1Click(Sender: TObject);  
47 - procedure ListAdvancedCustomDrawSubItem(Sender: TCustomListView;  
48 - Item: TListItem; SubItem: Integer; State: TCustomDrawState;  
49 - Stage: TCustomDrawStage; var DefaultDraw: Boolean);  
50 - function InsertItemLISTA(strName,strVerINI,strVerEXE,strSize,strDate,strHashINI,strHashEXE : string; boolOK : boolean) : boolean;  
51 - function getDadosAgenteLinux(strNomeAgenteLinux:String) : TStrings;  
52 - procedure RemontaINI(strTripaChavesValores,p_Path : String);  
53 - function GetFileHash(strFileName : String) : String;  
54 - private  
55 - { Private declarations }  
56 - public  
57 - end;  
58 -  
59 -var  
60 - frmVACA: TfrmVACA;  
61 -  
62 -implementation  
63 -  
64 -{$R *.DFM}  
65 -//Para gravar no Arquivo INI...  
66 -function TfrmVACA.SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;  
67 -var Reg_Ini : TIniFile;  
68 -begin  
69 -// FileSetAttr (p_Path,0);  
70 - {  
71 - To remove write protection on a file:  
72 - Den Schreibschutz einer Datei aufheben:  
73 - }  
74 -  
75 - if (FileGetAttr(p_Path) and faReadOnly) > 0 then  
76 - FileSetAttr(p_Path, FileGetAttr(p_Path) xor faReadOnly);  
77 -  
78 - Reg_Ini := TIniFile.Create(p_Path);  
79 - Reg_Ini.WriteString(p_Secao, p_Chave, p_Valor);  
80 - Reg_Ini.Free;  
81 -end;  
82 -  
83 -//Para buscar do Arquivo INI...  
84 -// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções  
85 -function TfrmVACA.GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
86 -var  
87 - FileText : TStringList;  
88 - i, j, v_Size_Section, v_Size_Key : integer;  
89 - v_SectionName, v_KeyName : string;  
90 - begin  
91 - Result := '';  
92 - Try  
93 - v_SectionName := '[' + p_SectionName + ']';  
94 - v_Size_Section := strLen(PChar(v_SectionName));  
95 - v_KeyName := p_KeyName + '=';  
96 - v_Size_Key := strLen(PChar(v_KeyName));  
97 - FileText := TStringList.Create;  
98 - try  
99 - FileText.LoadFromFile(p_IniFileName);  
100 - For i := 0 To FileText.Count - 1 Do  
101 - Begin  
102 - if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then  
103 - Begin  
104 - For j := i to FileText.Count - 1 Do  
105 - Begin  
106 - if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then  
107 - Begin  
108 - Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key));  
109 - Break;  
110 - End;  
111 - End;  
112 - End;  
113 - if (Result <> '') then break;  
114 - End;  
115 - finally  
116 - FileText.Free;  
117 - end;  
118 - Except  
119 - End;  
120 - end;  
121 -function TfrmVACA.Get_File_Size(sFileToExamine: string; bInKBytes: Boolean): string;  
122 -var  
123 - SearchRec: TSearchRec;  
124 - sgPath: string;  
125 - inRetval, I1: Integer;  
126 -begin  
127 - sgPath := ExpandFileName(sFileToExamine);  
128 - try  
129 - inRetval := FindFirst(ExpandFileName(sFileToExamine), faAnyFile, SearchRec);  
130 - if inRetval = 0 then  
131 - if bInKBytes then I1 := SearchRec.Size DIV 1024 else I1 := SearchRec.Size  
132 - else  
133 - I1 := -1;  
134 - finally  
135 - SysUtils.FindClose(SearchRec);  
136 - end;  
137 - Result := IntToStr(I1);  
138 -end;  
139 -  
140 -procedure TfrmVACA.FormCreate(Sender: TObject);  
141 -begin  
142 - Label4.Caption := 'v: '+GetVersionInfo(ExtractFilePath(Application.Exename)+'vaca.exe');  
143 - SetValorChaveRegIni('Informação','Nota','Versoes dos Agentes do Sistema CACIC',ExtractFilePath(Application.Exename)+'versoes_agentes.ini');  
144 - Refresh;  
145 -end;  
146 -// Para cálculo de HASH de determinado arquivo.  
147 -// Objetivo principal: Verificar autenticidade de agentes para trabalho cooperativo  
148 -// Anderson Peterle - Dataprev/ES - 08/Maio/2008  
149 -function TfrmVACA.GetFileHash(strFileName : String) : String;  
150 -Begin  
151 - Result := '0';  
152 - if (FileExists(strFileName)) then  
153 - Result := MD5Print(MD5File(strFileName));  
154 -End;  
155 -  
156 -procedure TfrmVACA.RemontaINI(strTripaChavesValores,p_Path : String);  
157 -var Reg_Ini : TIniFile;  
158 - intAux : integer;  
159 - tstrAux1,  
160 - tstrAux2 : TStrings;  
161 -begin  
162 - tstrAux1 := TStrings.Create;  
163 - tstrAux1 := explode(strTripaChavesValores,'#');  
164 - tstrAux2 := TStrings.Create;  
165 -  
166 - Reg_Ini := TIniFile.Create(p_Path);  
167 - if (FileGetAttr(p_Path) and faReadOnly) > 0 then  
168 - FileSetAttr(p_Path, FileGetAttr(p_Path) xor faReadOnly);  
169 -  
170 - Reg_Ini.EraseSection('versoes_agentes');  
171 -  
172 - for intAux := 0 to (tstrAux1.Count -1) do  
173 - Begin  
174 - tstrAux2 := explode(tstrAux1[intAux],'=');  
175 - Reg_Ini.WriteString('versoes_agentes', tstrAux2[0], tstrAux2[1]);  
176 - End;  
177 -  
178 - tstrAux1.Free;  
179 - tstrAux2.Free;  
180 - Reg_Ini.Free;  
181 -End;  
182 -  
183 -function TfrmVACA.InsertItemLISTA(strName,strVerINI,strVerEXE,strSize,strDate,strHashINI,strHashEXE : string; boolOK : boolean) : boolean;  
184 -var intAux : integer;  
185 -Begin  
186 - if (strHashEXE <> '0') then  
187 - Begin  
188 - intAux := frmVACA.List.Items.Count;  
189 -  
190 - frmVACA.List.Items.Add;  
191 - frmVACA.List.Items[intAux].Caption := '';  
192 - frmVACA.List.Items[intAux].SubItems.Add(strName);  
193 - frmVACA.List.Items[intAux].SubItems.Add(strVerINI);  
194 - frmVACA.List.Items[intAux].SubItems.Add(strVerEXE);  
195 - frmVACA.List.Items[intAux].SubItems.Add(strSize);  
196 - frmVACA.List.Items[intAux].SubItems.Add(strDate);  
197 - frmVACA.List.Items[intAux].SubItems.Add(strHashINI);  
198 - frmVACA.List.Items[intAux].SubItems.Add(strHashEXE);  
199 -  
200 - if boolOK then  
201 - frmVACA.List.Items[intAux].ImageIndex := 1  
202 - else  
203 - frmVACA.List.Items[intAux].ImageIndex := 0;  
204 - End;  
205 -End;  
206 -  
207 -procedure TfrmVACA.Refresh;  
208 -var v_modulos,  
209 - strNomePacoteLinux,  
210 - strVersaoPacoteLinux,  
211 - strAux,  
212 - strTripaVersoesValidas : string;  
213 - v_array_modulos,  
214 - tstrAux,  
215 - tstrDadosAgenteLinux : TStrings;  
216 - intAux : integer;  
217 - boolAtivarAtualizaVersoes,  
218 - boolVersoesIguais : boolean;  
219 -begin  
220 - Caption:='VACA - Versões de Agentes do CACIC';  
221 - Screen.Cursor:=crHourglass;  
222 - List.Clear;  
223 -  
224 - boolAtivarAtualizaVersoes := false;  
225 -  
226 - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'*.exe',ExtractFileName(Application.Exename));  
227 -  
228 - Try  
229 - if (v_modulos <> '') then  
230 - Begin  
231 - v_array_modulos := explode(v_modulos,'#');  
232 - For intAux := 0 To v_array_modulos.count -1 Do  
233 - Begin  
234 - boolVersoesIguais := true;  
235 - if (GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')='') then  
236 - SetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],GetVersionInfo(v_array_modulos[intAux]),ExtractFilePath(Application.Exename)+'versoes_agentes.ini')  
237 - else if (GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')<>GetVersionInfo(v_array_modulos[intAux])) then  
238 - Begin  
239 - boolVersoesIguais := false;  
240 - boolAtivarAtualizaVersoes := true;  
241 - End;  
242 -  
243 - InsertItemLISTA(v_array_modulos[intAux],  
244 - GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini'),  
245 - GetVersionInfo(v_array_modulos[intAux]),  
246 - Get_File_Size(v_array_modulos[intAux],true),  
247 - DateToStr(FileDateToDateTime(FileAge(v_array_modulos[intAux]))),  
248 - GetFileHash(v_array_modulos[intAux]),  
249 - GetFileHash(v_array_modulos[intAux]),  
250 - boolVersoesIguais);  
251 -  
252 - if (strTripaVersoesValidas <> '') then  
253 - strTripaVersoesValidas := strTripaVersoesValidas + '#';  
254 - strTripaVersoesValidas := strTripaVersoesValidas + v_array_modulos[intAux] + '=' + GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini');  
255 - strTripaVersoesValidas := strTripaVersoesValidas + '#';  
256 - strTripaVersoesValidas := strTripaVersoesValidas + v_array_modulos[intAux] + '_HASH=' + GetFileHash(v_array_modulos[intAux]);  
257 - End;  
258 - End;  
259 - Except  
260 - End;  
261 -  
262 - Try  
263 - tstrAux := TStrings.Create;  
264 - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'agentes_linux\*.tgz',ExtractFileName(Application.Exename));  
265 - Try  
266 - if (v_modulos <> '') then  
267 - Begin  
268 - v_array_modulos := explode(v_modulos,'#');  
269 - tstrDadosAgenteLinux := TStrings.Create;  
270 - For intAux := 0 To v_array_modulos.count -1 Do  
271 - Begin  
272 - boolVersoesIguais := true;  
273 - tstrDadosAgenteLinux := getDadosAgenteLinux(v_array_modulos[intAux]);  
274 -  
275 - if (GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')='') then  
276 - SetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],tstrDadosAgenteLinux[1],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')  
277 - else if (GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini') <> tstrDadosAgenteLinux[1]) then  
278 - Begin  
279 - boolVersoesIguais := false;  
280 - boolAtivarAtualizaVersoes := true;  
281 - End;  
282 -  
283 - InsertItemLISTA(tstrDadosAgenteLinux[0],  
284 - GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini'),  
285 - tstrDadosAgenteLinux[1],  
286 - Get_File_Size(ExtractFilePath(Application.Exename)+'agentes_linux\'+v_array_modulos[intAux],true),  
287 - DateToStr(FileDateToDateTime(FileAge(ExtractFilePath(Application.Exename)+'agentes_linux\'+v_array_modulos[intAux]))),  
288 - GetFileHash(v_array_modulos[intAux]),  
289 - GetFileHash(v_array_modulos[intAux]),  
290 - boolVersoesIguais);  
291 -  
292 - if (strTripaVersoesValidas <> '') then  
293 - strTripaVersoesValidas := strTripaVersoesValidas + '#';  
294 - strTripaVersoesValidas := strTripaVersoesValidas + tstrDadosAgenteLinux[0] + '=' + GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini');  
295 -  
296 - strTripaVersoesValidas := strTripaVersoesValidas + '#';  
297 -  
298 - strTripaVersoesValidas := strTripaVersoesValidas + 'te_pacote_PyCACIC=' + v_array_modulos[intAux];  
299 - strTripaVersoesValidas := strTripaVersoesValidas + '#';  
300 - strTripaVersoesValidas := strTripaVersoesValidas + 'te_pacote_PyCACIC_HASH= ' + GetFileHash(ExtractFilePath(Application.Exename)+'agentes_linux\'+v_array_modulos[intAux]);  
301 - End;  
302 - End;  
303 - Except  
304 - End;  
305 - finally  
306 - RemontaINI(strTripaVersoesValidas,ExtractFilePath(Application.Exename)+'versoes_agentes.ini');  
307 - List.Show;  
308 - Screen.Cursor:=crdefault;  
309 - Bt_VAI.Enabled := boolAtivarAtualizaVersoes;  
310 - end;  
311 -end;  
312 -  
313 -function TfrmVACA.getDadosAgenteLinux(strNomeAgenteLinux:String) : TStrings;  
314 -var tstrAux : TStrings;  
315 - strAux : String;  
316 -Begin  
317 - strAux := StringReplace(strNomeAgenteLinux,'.tgz','',[rfReplaceAll]);  
318 - tstrAux := TStrings.Create;  
319 - tstrAux := Explode(strAux,'_');  
320 - Result := tstrAux;  
321 -End;  
322 -  
323 -Function TfrmVACA.ListFileDir(Path,p_exception : string):string;  
324 -var  
325 - SR: TSearchRec;  
326 - FileList : string;  
327 -begin  
328 - if FindFirst(Path, faAnyFile, SR) = 0 then  
329 - begin  
330 - repeat  
331 - if (SR.Attr <> faDirectory) and (SR.Name <> p_exception) then  
332 - Begin  
333 - if (FileList <> '') then FileList := FileList + '#';  
334 - FileList := FileList + SR.Name;  
335 - End  
336 - until FindNext(SR) <> 0;  
337 - FindClose(SR);  
338 - Result := FileList;  
339 - end;  
340 -end;  
341 -  
342 -procedure TfrmVACA.Bt_FecharClick(Sender: TObject);  
343 -begin  
344 - Close;  
345 -end;  
346 -function TfrmVACA.GetVersionInfo(p_File: string):string;  
347 -begin  
348 - PJVersionInfo1.FileName := PChar(p_File);  
349 - Result := frmVACA.VerFmt(frmVACA.PJVersionInfo1.FixedFileInfo.dwFileVersionMS, frmVACA.PJVersionInfo1.FixedFileInfo.dwFileVersionLS);  
350 -end;  
351 -  
352 -function TfrmVACA.VerFmt(const MS, LS: DWORD): string;  
353 - // Format the version number from the given DWORDs containing the info  
354 -begin  
355 - Result := Format('%d.%d.%d.%d',  
356 - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)])  
357 -end;  
358 -  
359 -Function TfrmVACA.Explode(Texto, Separador : String) : TStrings;  
360 -var  
361 - strItem : String;  
362 - ListaAuxUTILS : TStrings;  
363 - NumCaracteres, I : Integer;  
364 -Begin  
365 - ListaAuxUTILS := TStringList.Create;  
366 - NumCaracteres := Length(Texto);  
367 - if (NumCaracteres > 0) then  
368 - Begin  
369 - strItem := '';  
370 -  
371 - For I := 0 To NumCaracteres Do  
372 - If (Texto[I] = Separador) or (I = NumCaracteres) Then  
373 - Begin  
374 - If (I = NumCaracteres) then strItem := strItem + Texto[I];  
375 - ListaAuxUTILS.Add(Trim(strItem));  
376 - strItem := '';  
377 - end  
378 - Else strItem := strItem + Texto[I];  
379 - End;  
380 -  
381 - Explode := ListaAuxUTILS;  
382 -end;  
383 -  
384 -procedure TfrmVACA.Bt_VAIClick(Sender: TObject);  
385 -var v_modulos : string;  
386 - v_array_modulos,  
387 - tstrDadosAgenteLinux : TStrings;  
388 - intAux : integer;  
389 -begin  
390 - Screen.Cursor:=crHourglass;  
391 - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'*.exe',ExtractFileName(Application.Exename));  
392 -  
393 - Try  
394 - if (v_modulos <> '') then  
395 - Begin  
396 - v_array_modulos := explode(v_modulos,'#');  
397 - For intAux := 0 To v_array_modulos.count -1 Do  
398 - if (GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')<>'') then  
399 - SetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],GetVersionInfo(v_array_modulos[intAux]),ExtractFilePath(Application.Exename)+'versoes_agentes.ini');  
400 - End;  
401 - finally  
402 - Refresh;  
403 - end;  
404 -  
405 -  
406 - tstrDadosAgenteLinux := TStrings.Create;  
407 - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'agentes_linux/*.tgz',ExtractFileName(Application.Exename));  
408 -  
409 - Try  
410 - if (v_modulos <> '') then  
411 - Begin  
412 - v_array_modulos := explode(v_modulos,'#');  
413 - For intAux := 0 To v_array_modulos.count -1 Do  
414 - tstrDadosAgenteLinux := getDadosAgenteLinux(v_array_modulos[intAux]);  
415 - if (GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')<>'') then  
416 - SetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],tstrDadosAgenteLinux[1],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')  
417 - End;  
418 - finally  
419 - Refresh;  
420 - end;  
421 -  
422 - Screen.Cursor:=crdefault;  
423 -end;  
424 -  
425 -procedure TfrmVACA.Image1Click(Sender: TObject);  
426 -begin  
427 - Refresh;  
428 -end;  
429 -  
430 -procedure TfrmVACA.ListAdvancedCustomDrawSubItem(Sender: TCustomListView;  
431 - Item: TListItem; SubItem: Integer; State: TCustomDrawState;  
432 - Stage: TCustomDrawStage; var DefaultDraw: Boolean);  
433 -begin  
434 - // Verifico se a imagem para o ítem é 0(zero) => DIFERENTE ou 1(um) IGUAL  
435 - // Coloco em vermelho quando for DIFERENTE...  
436 - if (item.ImageIndex = 0) then  
437 - bEGIN  
438 - Sender.Canvas.Font.Color := clRed;  
439 - if (SubItem = 2) or (SubItem = 3) then Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold];  
440 - eND;  
441 -  
442 -end;  
443 -end.  
vaca/vaca.cfg
View file @b7e26a8
@@ -1,35 +0,0 @@ @@ -1,35 +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"  
vaca/vaca.dof
View file @b7e26a8
@@ -1,135 +0,0 @@ @@ -1,135 +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=1  
80 -UnsafeCode=1  
81 -UnsafeCast=1  
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  
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:\Documents and Settings\d306851\Desktop\MiTeC\Demos\1\  
112 -[Version Info]  
113 -IncludeVerInfo=1  
114 -AutoIncBuild=0  
115 -MajorVer=2  
116 -MinorVer=5  
117 -Release=0  
118 -Build=654  
119 -Debug=0  
120 -PreRelease=0  
121 -Special=0  
122 -Private=0  
123 -DLL=0  
124 -Locale=1033  
125 -CodePage=1252  
126 -[Version Info Keys]  
127 -CompanyName=  
128 -FileDescription=  
129 -FileVersion=2.5.0.654  
130 -InternalName=  
131 -LegalCopyright=  
132 -LegalTrademarks=  
133 -OriginalFilename=  
134 -ProductName=  
135 -ProductVersion=2.6  
vaca/vaca.dpr
View file @b7e26a8
@@ -1,14 +0,0 @@ @@ -1,14 +0,0 @@
1 -program vaca;  
2 -  
3 -uses  
4 - Forms,  
5 - main_vaca in 'main_vaca.pas' {frmVACA};  
6 -  
7 -{$R *.RES}  
8 -  
9 -begin  
10 - Application.Initialize;  
11 - Application.Title := 'V.A.C.A.';  
12 - Application.CreateForm(TfrmVACA, frmVACA);  
13 - Application.Run;  
14 -end.  
vaca/vaca.res
View file @b7e26a8
No preview for this file type