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   -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   -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   -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   --$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   -[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   -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