From df93fc570160304653952b5781d9fbba58b967ce Mon Sep 17 00:00:00 2001 From: anderson.peterle@previdencia.gov.br Date: Thu, 10 Mar 2011 19:29:47 +0000 Subject: [PATCH] Exclusão para posterior reposição com versão 2.6-Beta-2 --- vaca/LEIAME | 2 -- vaca/cacic_search.ico | Bin 4086 -> 0 bytes vaca/main_vaca.ddp | Bin 51 -> 0 bytes vaca/main_vaca.dfm | 480 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ vaca/main_vaca.pas | 443 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- vaca/vaca.cfg | 35 ----------------------------------- vaca/vaca.dof | 135 --------------------------------------------------------------------------------------------------------------------------------------- vaca/vaca.dpr | 14 -------------- vaca/vaca.res | Bin 1860 -> 0 bytes 9 files changed, 0 insertions(+), 1109 deletions(-) delete mode 100644 vaca/LEIAME delete mode 100644 vaca/cacic_search.ico delete mode 100755 vaca/main_vaca.ddp delete mode 100755 vaca/main_vaca.dfm delete mode 100755 vaca/main_vaca.pas delete mode 100755 vaca/vaca.cfg delete mode 100755 vaca/vaca.dof delete mode 100755 vaca/vaca.dpr delete mode 100755 vaca/vaca.res diff --git a/vaca/LEIAME b/vaca/LEIAME deleted file mode 100644 index b13c597..0000000 --- a/vaca/LEIAME +++ /dev/null @@ -1,2 +0,0 @@ - -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. diff --git a/vaca/cacic_search.ico b/vaca/cacic_search.ico deleted file mode 100644 index 9421fff..0000000 Binary files a/vaca/cacic_search.ico and /dev/null differ diff --git a/vaca/main_vaca.ddp b/vaca/main_vaca.ddp deleted file mode 100755 index 4370276..0000000 Binary files a/vaca/main_vaca.ddp and /dev/null differ diff --git a/vaca/main_vaca.dfm b/vaca/main_vaca.dfm deleted file mode 100755 index 59d9cf2..0000000 --- a/vaca/main_vaca.dfm +++ /dev/null @@ -1,480 +0,0 @@ -object frmVACA: TfrmVACA - Left = 15 - Top = 135 - AutoScroll = False - Caption = 'VACA - Vers'#245'es Agentes Creator/Atualizator' - ClientHeight = 538 - ClientWidth = 975 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - FormStyle = fsStayOnTop - Icon.Data = { - 0000010001002020000000000000A80800001600000028000000200000004000 - 0000010008000000000080040000000000000000000000010000000100000000 - 0000800080008000000080800000008000000080800000008000C0C0C000C0DC - C000F0CAA60080808000FF00FF00FF000000FFFF000000FF000000FFFF000000 - FF00FFFFFF00F0FBFF00A4A0A00000003E0000005D0000007C0000009B000000 - BA000000D9000000F0002424FF004848FF006C6CFF009090FF00B4B4FF000014 - 3E00001E5D0000287C0000329B00003CBA000046D9000055F000246DFF004885 - FF006C9DFF0090B5FF00B4CDFF00002A3E00003F5D0000547C0000699B00007E - BA000093D90000AAF00024B6FF0048C2FF006CCEFF0090DAFF00B4E6FF00003E - 3E00005D5D00007C7C00009B9B0000BABA0000D9D90000F0F00024FFFF0048FF - FF006CFFFF0090FFFF00B4FFFF00003E2A00005D3F00007C5400009B690000BA - 7E0000D9930000F0AA0024FFB60048FFC2006CFFCE0090FFDA00B4FFE600003E - 1400005D1E00007C2800009B320000BA3C0000D9460000F0550024FF6D0048FF - 85006CFF9D0090FFB500B4FFCD00003E0000005D0000007C0000009B000000BA - 000000D9000000F0000024FF240048FF48006CFF6C0090FF9000B4FFB400143E - 00001E5D0000287C0000329B00003CBA000046D9000055F000006DFF240085FF - 48009DFF6C00B5FF9000CDFFB4002A3E00003F5D0000547C0000699B00007EBA - 000093D90000AAF00000B6FF2400C2FF4800CEFF6C00DAFF9000E6FFB4003E3E - 00005D5D00007C7C00009B9B0000BABA0000D9D90000F0F00000FFFF2400FFFF - 4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F00007C5400009B690000BA7E - 0000D9930000F0AA0000FFB62400FFC24800FFCE6C00FFDA9000FFE6B4003E14 - 00005D1E00007C2800009B320000BA3C0000D9460000F0550000FF6D2400FF85 - 4800FF9D6C00FFB59000FFCDB4003E0000005D0000007C0000009B000000BA00 - 0000D9000000F0000000FF242400FF484800FF6C6C00FF909000FFB4B4003E00 - 14005D001E007C0028009B003200BA003C00D9004600F0005500FF246D00FF48 - 8500FF6C9D00FF90B500FFB4CD003E002A005D003F007C0054009B006900BA00 - 7E00D9009300F000AA00FF24B600FF48C200FF6CCE00FF90DA00FFB4E6003E00 - 3E005D005D007C007C009B009B00BA00BA00D900D900F000F000FF24FF00FF48 - FF00FF6CFF00FF90FF00FFB4FF002A003E003F005D0054007C0069009B007E00 - BA009300D900AA00F000B624FF00C248FF00CE6CFF00DA90FF00E6B4FF001400 - 3E001E005D0028007C0032009B003C00BA004600D9005500F0006D24FF008548 - FF009D6CFF00B590FF00CDB4FF0006060600121212001F1F1F002C2C2C003939 - 390045454500525252005F5F5F006C6C6C007878780085858500929292009F9F - 9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDEDE00EBEBEB00F8F8F8000000 - 0AF4F7F7F42929000029292929292929290000292929292929290000000000F6 - F4F4F613F7F400000000292929292929000000000029292929290000000000F5 - 2828F4F613F7F429292929292929292929292929292900292929000000000035 - 342828F4F613F7F4000029292929292900000000000029292900000000000029 - 35342828F4F613F7F42929292929292929292929292929290000000000000000 - 2935342828F4F613F7F400292929290000000000000000000000000000000000 - 002935342828F4F613F7F4000029000000000000000000000000000000000000 - 00002935343328F4F613F7F40029000000000000000000000000000000000000 - 0000002935343328F4F613F70000000000000000000000000000000000000000 - 000000002935343328F4F6F70000F6F7F6F6F4F4F4F4F6000000000000000000 - 000F0F0F0F2935343328F4F7F4F6F7F6F6F6F5F713F7F4F4F600000000000000 - 001A1A1A1A1A2935342A0AF8F9F6F6E8E8E8E8E8E8E8E8F6F4F4000000000000 - 00000F0F0F0F0F29EBFCF9F5F6A241414141414141414141130AF40000000000 - 0000CBD100003D000000FAF6A2F4F4F4F4F4F4F4F4F46E6EFF130AF400000000 - 00CBCED1003D3C000000F7A297F4F4F4F4F4F4F4EBEB6E6E6EFFF7F4F6000000 - D1D1CED13D3C3A3D000013968B979797418B8B8BEBEBEB6E6E6E97F4F4000000 - D1CECBD13D3A3C3D00BA099797979772418B8B9F9FEBEB6E6E8B8BF7F4F60000 - D1D1CED13D3D3C3D0013978B97727272418B8B9F9FEBEBEB6E7B8B09F4F60000 - D1CECBD13D3C3A3DF9F9978B72729797418B8B8B9FEBEBEB7B7B8B97F4F40000 - D1CECBD13D3D3C3DF909978B72727241418B8B8B8BEBEB8B7B7B8B8BF4F40000 - D1CBCED13C3C3A3DF909978B72727241418B8B8B8BEBEB8B7B7B8B97F4F600CE - D0D13D3C3A3D1A18F9F9978B72724141418B8B8B8BEBEBEB7B7B8B09F4F600D1 - D0D13D3A3C3E1A171B13978B727241414197978B8B8BEBEB7B7B97A2F40000D1 - D0D1003C3D3E00181BF9099772724141979797979797EBEB7B7B97F6F40000D1 - D100003D3D3E001A1B1B1397727241419797979797EBEB977B7B09F4000000D1 - D100003E3D3E001B1B1B1309727241419797979797EBEB8B7B09F6F40000D1D1 - D100000F3E00001B1B1B1B13FC724141978B979797EB8B9709F7F6282800D1D1 - 0000000F0F0000101B1B1B6EF70997978B8B8B8B8BEB9709F7F66E282800D1D1 - 0000000F3E0000101B1B006E6E13F6090997979797EBF5F76E6E00002828D1D1 - 0000003E0F00001B1B006E6E6E3E3E13F5F4F5F7F5F500006E6E00002828D1D1 - 00003E0F00001B101B006E6E6E3E3E3E00009F9F00C5C500006E6E000028D100 - 000F0F00001B1000006E6E6E6E003E3E0000009F9F00C5C500006E6E00000000 - 00030000000300000003000000030000000380000007800000078000000FC000 - 000FC000001FE000001FE000000FF0000007F0300003E0300001C0300001C020 - 0000C0200000C0000000C0000000C00000008000000080000001888000019880 - 00039880000319800001398000013988000C399000CC3310326666613933} - OldCreateOrder = False - Position = poScreenCenter - Visible = True - OnCreate = FormCreate - DesignSize = ( - 975 - 538) - PixelsPerInch = 96 - TextHeight = 13 - object Label1: TLabel - Left = 2 - Top = 0 - Width = 970 - Height = 27 - Alignment = taCenter - AutoSize = False - Caption = 'VACA - Vers'#245'es_Agentes Creator/Atualizator' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -21 - Font.Name = 'Bitstream Vera Sans' - Font.Style = [fsBold, fsUnderline] - ParentFont = False - Transparent = False - WordWrap = True - end - object Label2: TLabel - Left = 2 - Top = 27 - Width = 970 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = - 'Utilit'#225'rio para Cria'#231#227'o/Atualiza'#231#227'o do Arquivo "versoes_agentes.' + - 'ini" do Sistema CACIC' - Font.Charset = DEFAULT_CHARSET - Font.Color = clDefault - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Transparent = False - end - object Label3: TLabel - Left = 2 - Top = 41 - Width = 970 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = - 'Aten'#231#227'o: Dever'#225' ser executado no mesmo local dos arquivos execut' + - #225'veis' - Font.Charset = DEFAULT_CHARSET - Font.Color = clNavy - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Transparent = False - end - object Panel1: TPanel - Left = 890 - Top = 517 - Width = 83 - Height = 20 - BevelInner = bvRaised - BevelOuter = bvLowered - Caption = 'Panel1' - TabOrder = 1 - object Label4: TLabel - Left = 2 - Top = 2 - Width = 79 - Height = 16 - Align = alClient - Alignment = taCenter - Caption = 'Label4' - end - end - object List: TListView - Left = 1 - Top = 72 - Width = 885 - Height = 465 - Anchors = [akLeft, akTop, akRight, akBottom] - BiDiMode = bdLeftToRight - Color = clWhite - Columns = < - item - Caption = 'Status' - Width = 42 - end - item - Caption = 'Agente' - Width = 130 - end - item - Alignment = taCenter - Caption = 'Vers'#227'o INI' - Width = 70 - end - item - Alignment = taCenter - Caption = 'Vers'#227'o EXE' - Width = 70 - end - item - Alignment = taRightJustify - Caption = 'Tam. (KB)' - Width = 59 - end - item - Alignment = taCenter - Caption = 'Data' - Width = 70 - end - item - Caption = 'Hash Code INI' - Width = 220 - end - item - Caption = 'Hash Code EXE' - Width = 220 - end> - DragMode = dmAutomatic - GridLines = True - HotTrackStyles = [htUnderlineHot] - ReadOnly = True - ParentBiDiMode = False - SmallImages = ImageList1 - TabOrder = 0 - TabStop = False - ViewStyle = vsReport - OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem - end - object pnComandos: TPanel - Left = 889 - Top = 72 - Width = 84 - Height = 444 - BevelInner = bvLowered - BevelOuter = bvSpace - Color = clSilver - TabOrder = 2 - DesignSize = ( - 84 - 444) - object Image1: TImage - Left = 34 - Top = 86 - Width = 17 - Height = 21 - Hint = 'Atualizar Lista...' - ParentShowHint = False - Picture.Data = { - 055449636F6E0000010001000F12000000000000900500001600000028000000 - 0F00000024000000010008000000000068010000000000000000000000010000 - 00000000FFFFFF00CCFFFF0099FFFF0066FFFF0033FFFF0000FFFF00FFCCFF00 - CCCCFF0099CCFF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF00 - 6699FF003399FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF00 - 0066FF00FF33FF00CC33FF009933FF006633FF003333FF000033FF00FF00FF00 - CC00FF009900FF006600FF003300FF000000FF00FFFFCC00CCFFCC0099FFCC00 - 66FFCC0033FFCC0000FFCC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC00 - 00CCCC00FF99CC00CC99CC009999CC006699CC003399CC000099CC00FF66CC00 - CC66CC009966CC006666CC003366CC000066CC00FF33CC00CC33CC009933CC00 - 6633CC003333CC000033CC00FF00CC00CC00CC009900CC006600CC003300CC00 - 0000CC00FFFF9900CCFF990099FF990066FF990033FF990000FF9900FFCC9900 - CCCC990099CC990066CC990033CC990000CC9900FF999900CC99990099999900 - 669999003399990000999900FF669900CC669900996699006666990033669900 - 00669900FF339900CC33990099339900663399003333990000339900FF009900 - CC00990099009900660099003300990000009900FFFF6600CCFF660099FF6600 - 66FF660033FF660000FF6600FFCC6600CCCC660099CC660066CC660033CC6600 - 00CC6600FF996600CC99660099996600669966003399660000996600FF666600 - CC66660099666600666666003366660000666600FF336600CC33660099336600 - 663366003333660000336600FF006600CC006600990066006600660033006600 - 00006600FFFF3300CCFF330099FF330066FF330033FF330000FF3300FFCC3300 - CCCC330099CC330066CC330033CC330000CC3300FF993300CC99330099993300 - 669933003399330000993300FF663300CC663300996633006666330033663300 - 00663300FF333300CC33330099333300663333003333330000333300FF003300 - CC00330099003300660033003300330000003300FFFF0000CCFF000099FF0000 - 66FF000033FF000000FF0000FFCC0000CCCC000099CC000066CC000033CC0000 - 00CC0000FF990000CC99000099990000669900003399000000990000FF660000 - CC66000099660000666600003366000000660000FF330000CC33000099330000 - 663300003333000000330000FF000000CC000000990000006600000033000000 - 0000000063650000639A00000004000084868400CECFCE00009A31009CFFFF00 - CED3D600FFFFFF00000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000DFDFDFDFDFDFDFDFDFDFDFDFDFDFDF00DFDADADADADADADADADADADA - DADADF00DFDBDCDCDCDCDCDCDCDCDCDCDCDADF00DFDB0000DE00DEDDDE00DE00 - DCDADF00DFDB00DE00DEDDDD00DE00DEDCDADF00DFDB0000DEDDDDDDDDDDDE00 - DCDADF00DFDB00DE00DEDDDD00D9D8DEDCDADF00DFDB0000DE00DEDDDE00D800 - DCDADF00DFDB00DED8DE00DE00DED8DEDCDADF00DFDB0000D800DEDDDE00DE00 - DCDADF00DFDB00DED8D900DDDDDE00DEDCDADF00DFDB0000DEDDDDDDDDDDDE00 - DCDADF00DFDB0000000000DDDDDE00DCDCDADF00DFDB0000000000DDDE00DADA - DADADF00DFDB0000000000DE00DEDB00DADFDF00DFDB0000000000000000DBDA - DFDFDF00DFDBDBDBDBDBDBDBDBDBDBDFDFDFDF00DFDFDFDFDFDFDFDFDFDFDFDF - DFDFDF0000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000} - ShowHint = True - OnClick = Image1Click - end - object Bt_VAI: TButton - Left = 5 - Top = 5 - Width = 74 - Height = 30 - Cursor = crHandPoint - Hint = 'Cria/Atualiza Arquivo "versoes_agentes.ini"' - Anchors = [akRight, akBottom] - Cancel = True - Caption = 'Cria/Atualiza' - Default = True - ParentShowHint = False - ShowHint = True - TabOrder = 0 - OnClick = Bt_VAIClick - end - object Bt_Fechar: TButton - Left = 5 - Top = 40 - Width = 74 - Height = 30 - Cursor = crHandPoint - Anchors = [akRight, akBottom] - Cancel = True - Caption = 'Fecha' - Default = True - TabOrder = 1 - OnClick = Bt_FecharClick - end - object Panel2: TPanel - Left = 6 - Top = 35 - Width = 72 - Height = 4 - BevelInner = bvSpace - BevelOuter = bvSpace - TabOrder = 2 - end - end - object PJVersionInfo1: TPJVersionInfo - Left = 548 - Top = 244 - end - object ImageList1: TImageList - BlendColor = clScrollBar - DrawingStyle = dsTransparent - Left = 580 - Top = 243 - Bitmap = { - 494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000001000000001002000000000000010 - 00000000000000000000000000000000000000000000BDBDBD007B7B7B007B7B - 7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B - 7B007B7B7B007B7B7B007B7B7B00000000000000000000000000000000000000 - 00007B7B7B008484840000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000393900007B7B00007B7B00007B - 7B00007B7B00007B7B00007B7B00007B7B00007B7B00007B7B00007B7B00007B - 7B00007B7B00007B7B00000000007B7B7B000000000000000000000000000000 - 0000319C0000319C00007B7B7B00000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000007B7B0000FFFF0000FFFF0000FF - FF0000FFFF0000FFFF0000BDBD00007B7B0000FFFF0000FFFF0000FFFF0000FF - FF0000FFFF0000BDBD0000000000BDBDBD000000000000000000000000008484 - 8400319C0000319C0000319C0000848484000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000007B7B7B0000FFFF0000FFFF0000FF - FF0000FFFF0000FFFF000000000000000000007B7B0000FFFF0000FFFF0000FF - FF0000FFFF0000393900393939000000000000000000000000007B7B7B00319C - 0000319C0000319C0000319C0000319C00007B7B7B0000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000007B7B0000FFFF0000FF - FF0000FFFF0000FFFF0000BDBD00007B7B0000FFFF0000FFFF0000FFFF0000FF - FF0000BDBD0000000000BDBDBD00000000000000000084848400319C0000319C - 0000CEFF9C00319C0000319C0000319C0000319C000084848400000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000007B7B7B0000FFFF0000FF - FF0000FFFF0000FFFF00007B7B000000000000FFFF0000FFFF0000FFFF0000FF - FF000039390039393900000000000000000000000000319C0000319C0000319C - 000000000000CEFF9C00319C0000319C0000319C000084848400000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000007B7B0000FF - FF0000FFFF0000FFFF00007B7B000000000000FFFF0000FFFF0000FFFF0000BD - BD0000000000BDBDBD00000000000000000000000000CEFF9C00319C0000CEFF - 9C000000000000000000CEFF9C00319C0000319C0000319C0000848484000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000007B7B7B0000FF - FF0000FFFF0000FFFF000000000000000000007B7B0000FFFF0000FFFF000039 - 3900393939000000000000000000000000000000000000000000CEFF9C000000 - 0000000000000000000000000000CEFF9C00319C0000319C0000319C00008484 - 8400000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000007B - 7B0000FFFF0000FFFF000000000000000000007B7B0000FFFF0000BDBD000000 - 0000BDBDBD000000000000000000000000000000000000000000CEFF9C000000 - 0000000000000000000000000000CEFF9C00319C0000319C0000319C00008484 - 8400000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000007B7B - 7B0000FFFF0000FFFF000000000000000000007B7B0000FFFF00003939003939 - 3900000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000CEFF9C00319C0000319C0000319C - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000007B7B0000FFFF000000000000000000007B7B0000BDBD0000000000BDBD - BD00000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000CEFF9C00319C0000319C - 0000848484000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00007B7B7B0000FFFF0000BDBD00007B7B0000FFFF0000393900393939000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000CEFF9C00319C - 0000319C00008484840000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000007B7B0000FFFF0000FFFF0000BDBD0000000000BDBDBD000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000CEFF - 9C00319C0000319C00007B7B7B00000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000007B7B7B0000FFFF0000FFFF000039390039393900000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000319C0000319C00007B7B7B00000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000397B7B00007B7B00BDBDBD0000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000CEFF9C00319C0000319C0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000CEFF9C0000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000424D3E000000000000003E000000 - 2800000040000000100000000100010000000000800000000000000000000000 - 000000000000000000000000FFFFFF008001F3FF000000000000F1FF00000000 - 0000E0FF000000000001C07F000000008001803F000000008003883F00000000 - C0038C1F00000000C007DE0F00000000E007DE0F00000000E00FFF0F00000000 - F00FFF8700000000F01FFFC300000000F81FFFE100000000F83FFFF100000000 - FC7FFFF100000000FFFFFFFB0000000000000000000000000000000000000000 - 000000000000} - end -end diff --git a/vaca/main_vaca.pas b/vaca/main_vaca.pas deleted file mode 100755 index a787663..0000000 --- a/vaca/main_vaca.pas +++ /dev/null @@ -1,443 +0,0 @@ -unit main_vaca; - -interface - -uses - Windows, - SysUtils, - Classes, - Graphics, - Controls, - Forms, - StdCtrls, - ExtCtrls, - ImgList, - ComCtrls, - PJVersionInfo, - inifiles, - md5; - -type - TfrmVACA = class(TForm) - List: TListView; - PJVersionInfo1: TPJVersionInfo; - Label1: TLabel; - Label2: TLabel; - Label3: TLabel; - ImageList1: TImageList; - Panel1: TPanel; - Label4: TLabel; - pnComandos: TPanel; - Bt_VAI: TButton; - Bt_Fechar: TButton; - Image1: TImage; - Panel2: TPanel; - procedure FormCreate(Sender: TObject); - procedure Bt_FecharClick(Sender: TObject); - function GetVersionInfo(p_File: string):string; - function VerFmt(const MS, LS: DWORD): string; - Function ListFileDir(Path,p_exception : string):string; - Function Explode(Texto, Separador : String) : TStrings; - function SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String; - function GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String; - function Get_File_Size(sFileToExamine: string; bInKBytes: Boolean): string; - procedure Refresh; - procedure Bt_VAIClick(Sender: TObject); - procedure Image1Click(Sender: TObject); - procedure ListAdvancedCustomDrawSubItem(Sender: TCustomListView; - Item: TListItem; SubItem: Integer; State: TCustomDrawState; - Stage: TCustomDrawStage; var DefaultDraw: Boolean); - function InsertItemLISTA(strName,strVerINI,strVerEXE,strSize,strDate,strHashINI,strHashEXE : string; boolOK : boolean) : boolean; - function getDadosAgenteLinux(strNomeAgenteLinux:String) : TStrings; - procedure RemontaINI(strTripaChavesValores,p_Path : String); - function GetFileHash(strFileName : String) : String; - private - { Private declarations } - public - end; - -var - frmVACA: TfrmVACA; - -implementation - -{$R *.DFM} -//Para gravar no Arquivo INI... -function TfrmVACA.SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String; -var Reg_Ini : TIniFile; -begin -// FileSetAttr (p_Path,0); - { - To remove write protection on a file: - Den Schreibschutz einer Datei aufheben: - } - - if (FileGetAttr(p_Path) and faReadOnly) > 0 then - FileSetAttr(p_Path, FileGetAttr(p_Path) xor faReadOnly); - - Reg_Ini := TIniFile.Create(p_Path); - Reg_Ini.WriteString(p_Secao, p_Chave, p_Valor); - Reg_Ini.Free; -end; - -//Para buscar do Arquivo INI... -// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções -function TfrmVACA.GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String; -var - FileText : TStringList; - i, j, v_Size_Section, v_Size_Key : integer; - v_SectionName, v_KeyName : string; - begin - Result := ''; - Try - v_SectionName := '[' + p_SectionName + ']'; - v_Size_Section := strLen(PChar(v_SectionName)); - v_KeyName := p_KeyName + '='; - v_Size_Key := strLen(PChar(v_KeyName)); - FileText := TStringList.Create; - try - FileText.LoadFromFile(p_IniFileName); - For i := 0 To FileText.Count - 1 Do - Begin - if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then - Begin - For j := i to FileText.Count - 1 Do - Begin - if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then - Begin - Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key)); - Break; - End; - End; - End; - if (Result <> '') then break; - End; - finally - FileText.Free; - end; - Except - End; - end; -function TfrmVACA.Get_File_Size(sFileToExamine: string; bInKBytes: Boolean): string; -var - SearchRec: TSearchRec; - sgPath: string; - inRetval, I1: Integer; -begin - sgPath := ExpandFileName(sFileToExamine); - try - inRetval := FindFirst(ExpandFileName(sFileToExamine), faAnyFile, SearchRec); - if inRetval = 0 then - if bInKBytes then I1 := SearchRec.Size DIV 1024 else I1 := SearchRec.Size - else - I1 := -1; - finally - SysUtils.FindClose(SearchRec); - end; - Result := IntToStr(I1); -end; - -procedure TfrmVACA.FormCreate(Sender: TObject); -begin - Label4.Caption := 'v: '+GetVersionInfo(ExtractFilePath(Application.Exename)+'vaca.exe'); - SetValorChaveRegIni('Informação','Nota','Versoes dos Agentes do Sistema CACIC',ExtractFilePath(Application.Exename)+'versoes_agentes.ini'); - Refresh; -end; -// Para cálculo de HASH de determinado arquivo. -// Objetivo principal: Verificar autenticidade de agentes para trabalho cooperativo -// Anderson Peterle - Dataprev/ES - 08/Maio/2008 -function TfrmVACA.GetFileHash(strFileName : String) : String; -Begin - Result := '0'; - if (FileExists(strFileName)) then - Result := MD5Print(MD5File(strFileName)); -End; - -procedure TfrmVACA.RemontaINI(strTripaChavesValores,p_Path : String); -var Reg_Ini : TIniFile; - intAux : integer; - tstrAux1, - tstrAux2 : TStrings; -begin - tstrAux1 := TStrings.Create; - tstrAux1 := explode(strTripaChavesValores,'#'); - tstrAux2 := TStrings.Create; - - Reg_Ini := TIniFile.Create(p_Path); - if (FileGetAttr(p_Path) and faReadOnly) > 0 then - FileSetAttr(p_Path, FileGetAttr(p_Path) xor faReadOnly); - - Reg_Ini.EraseSection('versoes_agentes'); - - for intAux := 0 to (tstrAux1.Count -1) do - Begin - tstrAux2 := explode(tstrAux1[intAux],'='); - Reg_Ini.WriteString('versoes_agentes', tstrAux2[0], tstrAux2[1]); - End; - - tstrAux1.Free; - tstrAux2.Free; - Reg_Ini.Free; -End; - -function TfrmVACA.InsertItemLISTA(strName,strVerINI,strVerEXE,strSize,strDate,strHashINI,strHashEXE : string; boolOK : boolean) : boolean; -var intAux : integer; -Begin - if (strHashEXE <> '0') then - Begin - intAux := frmVACA.List.Items.Count; - - frmVACA.List.Items.Add; - frmVACA.List.Items[intAux].Caption := ''; - frmVACA.List.Items[intAux].SubItems.Add(strName); - frmVACA.List.Items[intAux].SubItems.Add(strVerINI); - frmVACA.List.Items[intAux].SubItems.Add(strVerEXE); - frmVACA.List.Items[intAux].SubItems.Add(strSize); - frmVACA.List.Items[intAux].SubItems.Add(strDate); - frmVACA.List.Items[intAux].SubItems.Add(strHashINI); - frmVACA.List.Items[intAux].SubItems.Add(strHashEXE); - - if boolOK then - frmVACA.List.Items[intAux].ImageIndex := 1 - else - frmVACA.List.Items[intAux].ImageIndex := 0; - End; -End; - -procedure TfrmVACA.Refresh; -var v_modulos, - strNomePacoteLinux, - strVersaoPacoteLinux, - strAux, - strTripaVersoesValidas : string; - v_array_modulos, - tstrAux, - tstrDadosAgenteLinux : TStrings; - intAux : integer; - boolAtivarAtualizaVersoes, - boolVersoesIguais : boolean; -begin - Caption:='VACA - Versões de Agentes do CACIC'; - Screen.Cursor:=crHourglass; - List.Clear; - - boolAtivarAtualizaVersoes := false; - - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'*.exe',ExtractFileName(Application.Exename)); - - Try - if (v_modulos <> '') then - Begin - v_array_modulos := explode(v_modulos,'#'); - For intAux := 0 To v_array_modulos.count -1 Do - Begin - boolVersoesIguais := true; - if (GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')='') then - SetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],GetVersionInfo(v_array_modulos[intAux]),ExtractFilePath(Application.Exename)+'versoes_agentes.ini') - else if (GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')<>GetVersionInfo(v_array_modulos[intAux])) then - Begin - boolVersoesIguais := false; - boolAtivarAtualizaVersoes := true; - End; - - InsertItemLISTA(v_array_modulos[intAux], - GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini'), - GetVersionInfo(v_array_modulos[intAux]), - Get_File_Size(v_array_modulos[intAux],true), - DateToStr(FileDateToDateTime(FileAge(v_array_modulos[intAux]))), - GetFileHash(v_array_modulos[intAux]), - GetFileHash(v_array_modulos[intAux]), - boolVersoesIguais); - - if (strTripaVersoesValidas <> '') then - strTripaVersoesValidas := strTripaVersoesValidas + '#'; - strTripaVersoesValidas := strTripaVersoesValidas + v_array_modulos[intAux] + '=' + GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini'); - strTripaVersoesValidas := strTripaVersoesValidas + '#'; - strTripaVersoesValidas := strTripaVersoesValidas + v_array_modulos[intAux] + '_HASH=' + GetFileHash(v_array_modulos[intAux]); - End; - End; - Except - End; - - Try - tstrAux := TStrings.Create; - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'agentes_linux\*.tgz',ExtractFileName(Application.Exename)); - Try - if (v_modulos <> '') then - Begin - v_array_modulos := explode(v_modulos,'#'); - tstrDadosAgenteLinux := TStrings.Create; - For intAux := 0 To v_array_modulos.count -1 Do - Begin - boolVersoesIguais := true; - tstrDadosAgenteLinux := getDadosAgenteLinux(v_array_modulos[intAux]); - - if (GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')='') then - SetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],tstrDadosAgenteLinux[1],ExtractFilePath(Application.Exename)+'versoes_agentes.ini') - else if (GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini') <> tstrDadosAgenteLinux[1]) then - Begin - boolVersoesIguais := false; - boolAtivarAtualizaVersoes := true; - End; - - InsertItemLISTA(tstrDadosAgenteLinux[0], - GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini'), - tstrDadosAgenteLinux[1], - Get_File_Size(ExtractFilePath(Application.Exename)+'agentes_linux\'+v_array_modulos[intAux],true), - DateToStr(FileDateToDateTime(FileAge(ExtractFilePath(Application.Exename)+'agentes_linux\'+v_array_modulos[intAux]))), - GetFileHash(v_array_modulos[intAux]), - GetFileHash(v_array_modulos[intAux]), - boolVersoesIguais); - - if (strTripaVersoesValidas <> '') then - strTripaVersoesValidas := strTripaVersoesValidas + '#'; - strTripaVersoesValidas := strTripaVersoesValidas + tstrDadosAgenteLinux[0] + '=' + GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini'); - - strTripaVersoesValidas := strTripaVersoesValidas + '#'; - - strTripaVersoesValidas := strTripaVersoesValidas + 'te_pacote_PyCACIC=' + v_array_modulos[intAux]; - strTripaVersoesValidas := strTripaVersoesValidas + '#'; - strTripaVersoesValidas := strTripaVersoesValidas + 'te_pacote_PyCACIC_HASH= ' + GetFileHash(ExtractFilePath(Application.Exename)+'agentes_linux\'+v_array_modulos[intAux]); - End; - End; - Except - End; - finally - RemontaINI(strTripaVersoesValidas,ExtractFilePath(Application.Exename)+'versoes_agentes.ini'); - List.Show; - Screen.Cursor:=crdefault; - Bt_VAI.Enabled := boolAtivarAtualizaVersoes; - end; -end; - -function TfrmVACA.getDadosAgenteLinux(strNomeAgenteLinux:String) : TStrings; -var tstrAux : TStrings; - strAux : String; -Begin - strAux := StringReplace(strNomeAgenteLinux,'.tgz','',[rfReplaceAll]); - tstrAux := TStrings.Create; - tstrAux := Explode(strAux,'_'); - Result := tstrAux; -End; - -Function TfrmVACA.ListFileDir(Path,p_exception : string):string; -var - SR: TSearchRec; - FileList : string; -begin - if FindFirst(Path, faAnyFile, SR) = 0 then - begin - repeat - if (SR.Attr <> faDirectory) and (SR.Name <> p_exception) then - Begin - if (FileList <> '') then FileList := FileList + '#'; - FileList := FileList + SR.Name; - End - until FindNext(SR) <> 0; - FindClose(SR); - Result := FileList; - end; -end; - -procedure TfrmVACA.Bt_FecharClick(Sender: TObject); -begin - Close; -end; -function TfrmVACA.GetVersionInfo(p_File: string):string; -begin - PJVersionInfo1.FileName := PChar(p_File); - Result := frmVACA.VerFmt(frmVACA.PJVersionInfo1.FixedFileInfo.dwFileVersionMS, frmVACA.PJVersionInfo1.FixedFileInfo.dwFileVersionLS); -end; - -function TfrmVACA.VerFmt(const MS, LS: DWORD): string; - // Format the version number from the given DWORDs containing the info -begin - Result := Format('%d.%d.%d.%d', - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)]) -end; - -Function TfrmVACA.Explode(Texto, Separador : String) : TStrings; -var - strItem : String; - ListaAuxUTILS : TStrings; - NumCaracteres, I : Integer; -Begin - ListaAuxUTILS := TStringList.Create; - NumCaracteres := Length(Texto); - if (NumCaracteres > 0) then - Begin - strItem := ''; - - For I := 0 To NumCaracteres Do - If (Texto[I] = Separador) or (I = NumCaracteres) Then - Begin - If (I = NumCaracteres) then strItem := strItem + Texto[I]; - ListaAuxUTILS.Add(Trim(strItem)); - strItem := ''; - end - Else strItem := strItem + Texto[I]; - End; - - Explode := ListaAuxUTILS; -end; - -procedure TfrmVACA.Bt_VAIClick(Sender: TObject); -var v_modulos : string; - v_array_modulos, - tstrDadosAgenteLinux : TStrings; - intAux : integer; -begin - Screen.Cursor:=crHourglass; - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'*.exe',ExtractFileName(Application.Exename)); - - Try - if (v_modulos <> '') then - Begin - v_array_modulos := explode(v_modulos,'#'); - For intAux := 0 To v_array_modulos.count -1 Do - if (GetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')<>'') then - SetValorChaveRegIni('versoes_agentes',v_array_modulos[intAux],GetVersionInfo(v_array_modulos[intAux]),ExtractFilePath(Application.Exename)+'versoes_agentes.ini'); - End; - finally - Refresh; - end; - - - tstrDadosAgenteLinux := TStrings.Create; - v_modulos := ListFileDir(ExtractFilePath(Application.Exename)+'agentes_linux/*.tgz',ExtractFileName(Application.Exename)); - - Try - if (v_modulos <> '') then - Begin - v_array_modulos := explode(v_modulos,'#'); - For intAux := 0 To v_array_modulos.count -1 Do - tstrDadosAgenteLinux := getDadosAgenteLinux(v_array_modulos[intAux]); - if (GetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],ExtractFilePath(Application.Exename)+'versoes_agentes.ini')<>'') then - SetValorChaveRegIni('versoes_agentes',tstrDadosAgenteLinux[0],tstrDadosAgenteLinux[1],ExtractFilePath(Application.Exename)+'versoes_agentes.ini') - End; - finally - Refresh; - end; - - Screen.Cursor:=crdefault; -end; - -procedure TfrmVACA.Image1Click(Sender: TObject); -begin - Refresh; -end; - -procedure TfrmVACA.ListAdvancedCustomDrawSubItem(Sender: TCustomListView; - Item: TListItem; SubItem: Integer; State: TCustomDrawState; - Stage: TCustomDrawStage; var DefaultDraw: Boolean); -begin - // Verifico se a imagem para o ítem é 0(zero) => DIFERENTE ou 1(um) IGUAL - // Coloco em vermelho quando for DIFERENTE... - if (item.ImageIndex = 0) then - bEGIN - Sender.Canvas.Font.Color := clRed; - if (SubItem = 2) or (SubItem = 3) then Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold]; - eND; - -end; -end. diff --git a/vaca/vaca.cfg b/vaca/vaca.cfg deleted file mode 100755 index 9590be7..0000000 --- a/vaca/vaca.cfg +++ /dev/null @@ -1,35 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl" --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl" diff --git a/vaca/vaca.dof b/vaca/vaca.dof deleted file mode 100755 index c8874fb..0000000 --- a/vaca/vaca.dof +++ /dev/null @@ -1,135 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=1 -UnsafeCode=1 -UnsafeCast=1 -[Linker] -MapFile=0 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir= -PackageDLLOutputDir= -PackageDCPOutputDir= -SearchPath= -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Documents and Settings\d306851\Desktop\MiTeC\Demos\1\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=2 -MinorVer=5 -Release=0 -Build=654 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=1033 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=2.5.0.654 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=2.6 diff --git a/vaca/vaca.dpr b/vaca/vaca.dpr deleted file mode 100755 index 990893e..0000000 --- a/vaca/vaca.dpr +++ /dev/null @@ -1,14 +0,0 @@ -program vaca; - -uses - Forms, - main_vaca in 'main_vaca.pas' {frmVACA}; - -{$R *.RES} - -begin - Application.Initialize; - Application.Title := 'V.A.C.A.'; - Application.CreateForm(TfrmVACA, frmVACA); - Application.Run; -end. diff --git a/vaca/vaca.res b/vaca/vaca.res deleted file mode 100755 index 796021a..0000000 Binary files a/vaca/vaca.res and /dev/null differ -- libgit2 0.21.2