Download as
Browse Code »

Commit 33a1a634fbb241fe84639b061749e18b2cc152a1

Authored by anderson.peterle@previdencia.gov.br
1 parent f441f40f
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@973 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 7 changed files with 0 additions and 563 deletions   Show diff stats
WinVNC.pas
View file @f441f40
... ... @@ -1,61 +0,0 @@
1   -unit WinVNC;
2   -
3   -interface
4   -
5   -uses
6   - Windows, Classes;
7   -
8   -type
9   - WinVNCThread = class(TThread)
10   - private
11   - HND : THandle;
12   - StartTID : THandle;
13   - StartID : DWORD;
14   - StartServer : procedure;
15   - StopServer : procedure;
16   - protected
17   - procedure Execute; override;
18   - public
19   - procedure Finish;
20   - procedure Start;
21   - end;
22   -
23   -implementation
24   -
25   -uses SysUtils;
26   -
27   -procedure WinVNCThread.Execute;
28   -begin
29   - Synchronize(Start);
30   -end;
31   -
32   -procedure WinVNCThread.Finish;
33   -begin
34   - HND := LoadLibrary('modulos\cacicrc.dll');
35   - if (HND <> 0) then
36   - begin
37   - StopServer := GetProcAddress(HND,'StopServer');
38   - if Assigned(StopServer) then
39   - begin
40   - StopServer;
41   - end;
42   - FreeLibrary(HND);
43   - end;
44   -end;
45   -
46   -procedure WinVNCThread.Start;
47   -begin
48   - HND := LoadLibrary('modulos\cacicrc.dll');
49   - if (HND <> 0) then
50   - begin
51   - StartServer := GetProcAddress(HND,'StartServer');
52   - if Assigned(StartServer) then
53   - begin
54   - StartTID := CreateThread(nil, 0, @StartServer, nil, 0, StartID);
55   - if StartTID = 0 then
56   - { O servidor não pôde ser inicializado. }
57   - end;
58   - end;
59   -end;
60   -
61   -end.
cacic2.cfg
View file @f441f40
... ... @@ -1,38 +0,0 @@
1   --$A8
2   --$B-
3   --$C+
4   --$D+
5   --$E-
6   --$F-
7   --$G+
8   --$H+
9   --$I+
10   --$J-
11   --$K-
12   --$L+
13   --$M-
14   --$N+
15   --$O+
16   --$P+
17   --$Q-
18   --$R-
19   --$S-
20   --$T-
21   --$U-
22   --$V+
23   --$W-
24   --$X+
25   --$YD
26   --$Z1
27   --cg
28   --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29   --H+
30   --W+
31   --M
32   --$M16384,1048576
33   --K$00400000
34   --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
35   --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
36   --w-UNSAFE_TYPE
37   --w-UNSAFE_CODE
38   --w-UNSAFE_CAST
cacic_icon.ico
View file @f441f40
No preview for this file type
cacic_logo.png
View file @f441f40

4.14 KB
frmConfiguracoes.dfm
View file @f441f40
... ... @@ -1,212 +0,0 @@
1   -object FormConfiguracoes: TFormConfiguracoes
2   - Left = 147
3   - Top = 108
4   - BorderIcons = []
5   - BorderStyle = bsSingle
6   - Caption = 'CACIC - Configura'#231#245'es'
7   - ClientHeight = 137
8   - ClientWidth = 299
9   - Color = clBtnFace
10   - Font.Charset = DEFAULT_CHARSET
11   - Font.Color = clWindowText
12   - Font.Height = -11
13   - Font.Name = 'MS Sans Serif'
14   - Font.Style = []
15   - FormStyle = fsStayOnTop
16   - Icon.Data = {
17   - 0000010001003030000000000000A80E00001600000028000000300000006000
18   - 00000100080000000000800A0000000000000000000000000000000000000000
19   - 0000FFFFFF001F59FD0070E1360077C7CB0027636C000017B900376F0B000012
20   - 5B00A3FFFF0030C8F9004B71BB006494F800499C4A006DC183001B382D001954
21   - A6003B938700002BF30036A2D9004DBCB100092D87008EF2D20025375E007ED7
22   - F70000092E001C50D3004E9E1F0080E4910063B55900112608005F9DA0003955
23   - 8E003055450061ABD000244D04003778F4005781D90063B5FE005FBC32003B85
24   - 5B000534CA0074C7A9005D8F7E004282260017223B0073D463002D58260045B3
25   - F9003875D50081DFB500416F73002F477700083CFF00338FC3002667870092F3
26   - F3002EB8E7000021D500001DA000132127002757BC00021C780083DADC00447E
27   - 45004262A400080E15005899B5003D9B9A00020245006EBEE00069ACB7005398
28   - ED000C3CA2002E6C57007ADA79002842470053A830001F3D15004F8486000F48
29   - BC001D2C49004C8BC10047AEA0006DA2FF006ECE4F00226197004390D400012E
30   - DD0016388600264C320075CD910030515900113562000B31B60058A5F900549C
31   - D80069CD300030797F0002114500325B7F0094FADE00274F190056AE24005078
32   - C9006DA99C005E8DE900326B1C0047963900559095007ACDE1007BD6A2003F8E
33   - 5700357D6C003C6C96002D6BFB0089E9C3004082ED0071BDC0003B66660089E9
34   - FF007FD4BD000032FD0087E0EA00326EE7000024B00010244C001E333A002E5C
35   - 14000026C10065BD490072C29A001941AD0016499800001B8E0084DCCB004893
36   - 27003C8539002A3F6900205C8E0076CBF1000C1B0B00172E16004F8FDF0098FD
37   - FC00478054001854B8003D791D0032596F00164DFD002C6E6E0064A7AB004181
38   - D6000C151F000333EE004188CA0042746500294D28002FADDC001C3B05003466
39   - 2900354F85003EAEEE006699F40035878500365C630030C0F00072D741008FEE
40   - EB0053B13B004669B00034628A00519C3F003C96960002061000131D3000000B
41   - 3A0060B150000129CE0087E3CF0073C1D4004D94F80063C32C004E9F2A003D5C
42   - 99002C6D7B0085E6AA0076D86F001E4B3E005693AB002C64990074D850001D3D
43   - 6300408E3F00679AFE00345951003A8964000B3AB700172B21005EA7D8000407
44   - 0600316310005AB32B005A88E200B1FFFF00539DF700233C3A0005237D00144C
45   - AF00537ED00053898D0018320600002FE7007ED2D80071D45A00296355001C59
46   - A4000007240088E3E100102F810068ACA60042934B005F91F000265630004B7F
47   - 7E000E2A4400418D35000E1724006BD335001246F6002662FE0076C4C1006FC6
48   - 8D001247A1002C57860032611C006CBAD50036B1E700050F33005690E6004894
49   - DA0075C5DF0073C89F0087E9B8000021B5002B494C003F9ADA009DFFFE005A97
50   - 9800112111007DCFC6006ABDFE000630D5004260AD004F9D34003AA5E0000000
51   - 0000000000000000000000000000000000000000000000000000000000000000
52   - 0000000000000000000000000000000000003E08000000000000000000000000
53   - 0000000000000000000000000000000000000000000000008608000000000000
54   - 00087A5800000000000000000000000000000000000000000000000000000000
55   - 0000000000000000D47A630000000000B0D47A7A7D0000000000000000000000
56   - 0000000000000000000000000000000000000000000000B27A7A810000000000
57   - 867A7A7AB2000000000000000000000000000000000000000000000000000000
58   - 00000000000000587A7A7A08000000B07A7A7A7AD40000000000000000000000
59   - 00000000000000000000000000000000000000000000867A7A7A7AD400000063
60   - 587A7A7A12860000000000000000000000000000000000000000000000000000
61   - 000000000000F47A7A7A7A581900005CEA817AFCC55900000000000000000000
62   - 00000000000000000000000000000000000000000000595ED47AF4AB7F00003F
63   - A8943BC069DC0000000000000000000000000000000000000000000000000000
64   - 000000000000DC2BDB8633F76D003CDAF7387797CC3F00000000000000000000
65   - 000000173434348A00000000000000000000000000A538CC4F3390F79700003F
66   - F790F790F73F4C0000000000000017A1AA68CBDEC25454C26A250BB834000000
67   - 0000000000E038F7A8F790F71F0000F80990F790F73F000000000000200B0C54
68   - 5454C2C2C2C2C2C2C2545454C2D1B83400000000003338F7F790F709A500000F
69   - 1FF7F790097600000000B8CB5454C2C2C2C2C25454C25454C2C2C2C2C25454C2
70   - 0B170000003CD50990F790F8C600001E2CD29009E721C800A1D15454C2C2C2C2
71   - C2C2546820202041CB54C2C2C2C2C2C254DEAA000000C33F09A8E093F900008D
72   - B72C334F402399AAC254C2C2C2C2C2C2C2C220B8AA0BAAAA204154C2C2C2C2C2
73   - C2C2542500C8C991D29C882C00000000660388881B5AFD4857DEC2C2C2C2C2C2
74   - 54A141CBC2C254C22520B854C2C2C2C2C2C2EFF08F2D80B788B7034E00000000
75   - F94D03E41B510CF639FF6AC2C2C2C2C2CB8A6AC2C2C2C2C2C2CB3468C2C2C2C2
76   - C2EFED398F257F67E4032C0000000000004E27B69DBEA29BF6A6FFEFC2C2C2C2
77   - DECBC2C2C2C2C2C2C2C2CBCBC2C2C20C8FEDA6575730C0EBE4B78E0000000000
78   - 00429F9351489EA657F6A6ED8FC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C8F
79   - A6A69B570A9EEF7F93D3000000000000992541F96AC28F9EA65757A6398F0CC2
80   - C2C2C2C2C2C2C2C2C2C2C2C2C2DEF00A399BF60A9E8F540B8D0BA10000000000
81   - 68C20CCBC2C2C28F9E0AF69B36EFC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2EF36
82   - 9BF60A138FC2C2C2CBC2A38A00000041C2C2C2C2C2C2C2C28F9EA6F0DEC2C2C2
83   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CBF60A13EFC2C2C2C2C2C2C2A35100AFC2
84   - C2C2C2C2C2C2C2C2C2EF9BDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
85   - EF9BDEC2C2C2C2C2C2C2C2C2CB002DC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
86   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C22DAFC2
87   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
88   - C2C2C2C2C2C2C2C2C2C2C2C2C2AF0041C2C2C2C2C2C2C2C2C2C20CCB25D1680B
89   - AA4125C2C2C2C2C2C2C22541AA0B68D125CB0CC2C2C2C2C2C2C2C2C2AA000000
90   - 4154C2C2C2C2C2C2C2C2682020B841AA0B0B0CC2C2C2C2C2C2C20C0B0BAA41B8
91   - 2020D1C2C2C2C2C2C2C2DE1700000000426A0CC2C2C2C2C2C2C2C25454C2C2C2
92   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C25454C2C2C2C2C2C2C2A3510000000000
93   - 00AFB825CB6A0CC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
94   - C2C2C2C20CDECBCBAA17C80000000000000000009951A1AA682525CBCBCB6A6A
95   - DEDE0C0CC2C2C2C20C0CDE6A6ACBCBCB2525D1AA2017AFAE0000000000000000
96   - 000000000000000000C842E3AF2D51178A34A120B8CBCBB820348A17512DAFE3
97   - 42AE000000000000000000000000000000000000000000000000000000000000
98   - 0000000000343400000000000000000000000000000000000000000000000000
99   - 0000000000000000000000000000000000000000002D17000000000000000000
100   - 0000000000000000000000000000000000000000000000000000000000000000
101   - 0000000000C8AF00000000000000000000000000000000000000000000000000
102   - 00AE19D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9EED9D9D9D9D9D9D9D9D9
103   - D9D9D9D9D9D9D9D9D919AE00000000000063F4F4F4F4F4F4F4F4F4F4F4F4F4F4
104   - F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F43BB00000000000
105   - 00003E15CF3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E
106   - 3E3E3E3E3E3E3ECF1508000000000000000000BC531414141414141414141414
107   - 1414141414141414141414141414141414141414141414110F00000000000000
108   - 00000000A444AD44ADAD44ADADADAD44AD44ADAD44ADAD44AD44ADAD44AD44AD
109   - AD44AD4444AD449600000000000000000000000000002F4C7E63D321CE080F1E
110   - 77E308668D770899664C7F081E9DF563E1D3217F455A00000000000000000000
111   - 00000000D4D7821F3D7D6B0E1FFC05C9B3643A6CA0DA5E5DCA1F723ADFB14784
112   - E90783BD067100B30000000000000000000000007A37A787CD3A70BB870210B7
113   - 16227A71FEF731C5612A8C3AB9A7FA7529E21CF1E55688160000000000000000
114   - 000000007AD86174263AC4D61673C54D32EC35374D90F058B68378B256A7795F
115   - 81DD4BB402D088740400000000000000000000B27A92B6F3FB3A71556524C5A9
116   - 6FB4358BCAA8609ACAE87829D8E432268170BB040250B7320400000000000000
117   - 000000007A56E4745F3A702E87E6D0B7742235B94D90982961F2183A37A779B5
118   - 29C11C6E951088160000000000000000000000007A96BFFA75B2891CD5953788
119   - 65527A0DACF71A85E4E7C7124AD67B7C5088BA469A62B7650000000000000000
120   - 0000000029001D000049005B43B22800B300004D0087B2004DD500B2001DB400
121   - 8B008300002800FA000000000000000000000000000000000000000000000000
122   - 000000000000000000000000000000000000000000000000000000000000FFFF
123   - FFFFFFFF0000F3FFFFFFFFCF0000E3FFFFFFFFC70000C1FFFFFFFF870000C1FF
124   - FFFFFF83000081FFFFFFFF03000080FFFFFFFF01000080FFFFFFFF01000080FF
125   - FFFFFF01000000FFF83FFE010000807F0001FE01000080FC00003E01000080F0
126   - 00000E01000080400000070100008000000002030000C000000000030000C000
127   - 000000070000E000000000070000E0000000000F0000C000000000070000C000
128   - 0000000300008000000000010000000000000001000000000000000000000000
129   - 0000000000008000000000010000C00000000003000080000000000500008000
130   - 0000000300008000000000030000C000000000030000C000000000030000C000
131   - 000000070000E000000000070000E000000000070000E000000000070000F000
132   - 0000000F0000F8000000001F0000FC000000003F0000FF00000000FF0000FC00
133   - 000000BF0000FC000000003F0000FC000000001F0000F8000000001F0000FC00
134   - 0000003F0000FC000000003F0000FD685A4A56BF0000FFFFFFFFFFFF0000}
135   - OldCreateOrder = False
136   - Position = poScreenCenter
137   - OnClose = FormClose
138   - OnCreate = FormCreate
139   - PixelsPerInch = 96
140   - TextHeight = 13
141   - object Lb_End_Serv_Aplicacao: TLabel
142   - Left = 7
143   - Top = 7
144   - Width = 171
145   - Height = 13
146   - Caption = 'Endere'#231'o do Servidor da Aplica'#231#227'o:'
147   - end
148   - object Bv1_Configuracoes: TBevel
149   - Left = 8
150   - Top = 84
151   - Width = 283
152   - Height = 18
153   - Shape = bsBottomLine
154   - end
155   - object Lb_End_Serv_Updates: TLabel
156   - Left = 6
157   - Top = 49
158   - Width = 149
159   - Height = 13
160   - Caption = 'Endere'#231'o Servidor de Updates:'
161   - end
162   - object EditEnderecoServidorAplicacao: TEdit
163   - Left = 7
164   - Top = 22
165   - Width = 170
166   - Height = 21
167   - TabOrder = 0
168   - end
169   - object BtN_Confirmar: TButton
170   - Left = 200
171   - Top = 21
172   - Width = 75
173   - Height = 25
174   - Caption = 'Confirmar'
175   - TabOrder = 2
176   - OnClick = pro_Btn_Confirmar
177   - end
178   - object Btn_Desinstalar: TButton
179   - Left = 200
180   - Top = 56
181   - Width = 75
182   - Height = 25
183   - Caption = 'Desinstalar'
184   - TabOrder = 3
185   - OnClick = pro_Btn_Desinstalar
186   - end
187   - object Btn_Cancelar: TButton
188   - Left = 133
189   - Top = 107
190   - Width = 75
191   - Height = 25
192   - Caption = 'Cancelar'
193   - TabOrder = 4
194   - OnClick = pro_Btn_Cancelar
195   - end
196   - object Btn_OK: TButton
197   - Left = 216
198   - Top = 107
199   - Width = 75
200   - Height = 25
201   - Caption = 'OK'
202   - TabOrder = 5
203   - OnClick = pro_Btn_OK
204   - end
205   - object EditEnderecoServidorUpdates: TEdit
206   - Left = 6
207   - Top = 64
208   - Width = 170
209   - Height = 21
210   - TabOrder = 1
211   - end
212   -end
frmLog.dfm
View file @f441f40
... ... @@ -1,163 +0,0 @@
1   -object FormLog: TFormLog
2   - Left = 44
3   - Top = 17
4   - BorderIcons = []
5   - BorderStyle = bsSingle
6   - Caption = 'CACIC - Log de Atividades'
7   - ClientHeight = 355
8   - ClientWidth = 675
9   - Color = clBtnFace
10   - Font.Charset = DEFAULT_CHARSET
11   - Font.Color = clWindowText
12   - Font.Height = -11
13   - Font.Name = 'MS Sans Serif'
14   - Font.Style = []
15   - FormStyle = fsStayOnTop
16   - Icon.Data = {
17   - 0000010001003030000000000000A80E00001600000028000000300000006000
18   - 00000100080000000000800A0000000000000000000000000000000000000000
19   - 0000FFFFFF001F59FD0070E1360077C7CB0027636C000017B900376F0B000012
20   - 5B00A3FFFF0030C8F9004B71BB006494F800499C4A006DC183001B382D001954
21   - A6003B938700002BF30036A2D9004DBCB100092D87008EF2D20025375E007ED7
22   - F70000092E001C50D3004E9E1F0080E4910063B55900112608005F9DA0003955
23   - 8E003055450061ABD000244D04003778F4005781D90063B5FE005FBC32003B85
24   - 5B000534CA0074C7A9005D8F7E004282260017223B0073D463002D58260045B3
25   - F9003875D50081DFB500416F73002F477700083CFF00338FC3002667870092F3
26   - F3002EB8E7000021D500001DA000132127002757BC00021C780083DADC00447E
27   - 45004262A400080E15005899B5003D9B9A00020245006EBEE00069ACB7005398
28   - ED000C3CA2002E6C57007ADA79002842470053A830001F3D15004F8486000F48
29   - BC001D2C49004C8BC10047AEA0006DA2FF006ECE4F00226197004390D400012E
30   - DD0016388600264C320075CD910030515900113562000B31B60058A5F900549C
31   - D80069CD300030797F0002114500325B7F0094FADE00274F190056AE24005078
32   - C9006DA99C005E8DE900326B1C0047963900559095007ACDE1007BD6A2003F8E
33   - 5700357D6C003C6C96002D6BFB0089E9C3004082ED0071BDC0003B66660089E9
34   - FF007FD4BD000032FD0087E0EA00326EE7000024B00010244C001E333A002E5C
35   - 14000026C10065BD490072C29A001941AD0016499800001B8E0084DCCB004893
36   - 27003C8539002A3F6900205C8E0076CBF1000C1B0B00172E16004F8FDF0098FD
37   - FC00478054001854B8003D791D0032596F00164DFD002C6E6E0064A7AB004181
38   - D6000C151F000333EE004188CA0042746500294D28002FADDC001C3B05003466
39   - 2900354F85003EAEEE006699F40035878500365C630030C0F00072D741008FEE
40   - EB0053B13B004669B00034628A00519C3F003C96960002061000131D3000000B
41   - 3A0060B150000129CE0087E3CF0073C1D4004D94F80063C32C004E9F2A003D5C
42   - 99002C6D7B0085E6AA0076D86F001E4B3E005693AB002C64990074D850001D3D
43   - 6300408E3F00679AFE00345951003A8964000B3AB700172B21005EA7D8000407
44   - 0600316310005AB32B005A88E200B1FFFF00539DF700233C3A0005237D00144C
45   - AF00537ED00053898D0018320600002FE7007ED2D80071D45A00296355001C59
46   - A4000007240088E3E100102F810068ACA60042934B005F91F000265630004B7F
47   - 7E000E2A4400418D35000E1724006BD335001246F6002662FE0076C4C1006FC6
48   - 8D001247A1002C57860032611C006CBAD50036B1E700050F33005690E6004894
49   - DA0075C5DF0073C89F0087E9B8000021B5002B494C003F9ADA009DFFFE005A97
50   - 9800112111007DCFC6006ABDFE000630D5004260AD004F9D34003AA5E0000000
51   - 0000000000000000000000000000000000000000000000000000000000000000
52   - 0000000000000000000000000000000000003E08000000000000000000000000
53   - 0000000000000000000000000000000000000000000000008608000000000000
54   - 00087A5800000000000000000000000000000000000000000000000000000000
55   - 0000000000000000D47A630000000000B0D47A7A7D0000000000000000000000
56   - 0000000000000000000000000000000000000000000000B27A7A810000000000
57   - 867A7A7AB2000000000000000000000000000000000000000000000000000000
58   - 00000000000000587A7A7A08000000B07A7A7A7AD40000000000000000000000
59   - 00000000000000000000000000000000000000000000867A7A7A7AD400000063
60   - 587A7A7A12860000000000000000000000000000000000000000000000000000
61   - 000000000000F47A7A7A7A581900005CEA817AFCC55900000000000000000000
62   - 00000000000000000000000000000000000000000000595ED47AF4AB7F00003F
63   - A8943BC069DC0000000000000000000000000000000000000000000000000000
64   - 000000000000DC2BDB8633F76D003CDAF7387797CC3F00000000000000000000
65   - 000000173434348A00000000000000000000000000A538CC4F3390F79700003F
66   - F790F790F73F4C0000000000000017A1AA68CBDEC25454C26A250BB834000000
67   - 0000000000E038F7A8F790F71F0000F80990F790F73F000000000000200B0C54
68   - 5454C2C2C2C2C2C2C2545454C2D1B83400000000003338F7F790F709A500000F
69   - 1FF7F790097600000000B8CB5454C2C2C2C2C25454C25454C2C2C2C2C25454C2
70   - 0B170000003CD50990F790F8C600001E2CD29009E721C800A1D15454C2C2C2C2
71   - C2C2546820202041CB54C2C2C2C2C2C254DEAA000000C33F09A8E093F900008D
72   - B72C334F402399AAC254C2C2C2C2C2C2C2C220B8AA0BAAAA204154C2C2C2C2C2
73   - C2C2542500C8C991D29C882C00000000660388881B5AFD4857DEC2C2C2C2C2C2
74   - 54A141CBC2C254C22520B854C2C2C2C2C2C2EFF08F2D80B788B7034E00000000
75   - F94D03E41B510CF639FF6AC2C2C2C2C2CB8A6AC2C2C2C2C2C2CB3468C2C2C2C2
76   - C2EFED398F257F67E4032C0000000000004E27B69DBEA29BF6A6FFEFC2C2C2C2
77   - DECBC2C2C2C2C2C2C2C2CBCBC2C2C20C8FEDA6575730C0EBE4B78E0000000000
78   - 00429F9351489EA657F6A6ED8FC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C8F
79   - A6A69B570A9EEF7F93D3000000000000992541F96AC28F9EA65757A6398F0CC2
80   - C2C2C2C2C2C2C2C2C2C2C2C2C2DEF00A399BF60A9E8F540B8D0BA10000000000
81   - 68C20CCBC2C2C28F9E0AF69B36EFC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2EF36
82   - 9BF60A138FC2C2C2CBC2A38A00000041C2C2C2C2C2C2C2C28F9EA6F0DEC2C2C2
83   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CBF60A13EFC2C2C2C2C2C2C2A35100AFC2
84   - C2C2C2C2C2C2C2C2C2EF9BDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
85   - EF9BDEC2C2C2C2C2C2C2C2C2CB002DC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
86   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C22DAFC2
87   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
88   - C2C2C2C2C2C2C2C2C2C2C2C2C2AF0041C2C2C2C2C2C2C2C2C2C20CCB25D1680B
89   - AA4125C2C2C2C2C2C2C22541AA0B68D125CB0CC2C2C2C2C2C2C2C2C2AA000000
90   - 4154C2C2C2C2C2C2C2C2682020B841AA0B0B0CC2C2C2C2C2C2C20C0B0BAA41B8
91   - 2020D1C2C2C2C2C2C2C2DE1700000000426A0CC2C2C2C2C2C2C2C25454C2C2C2
92   - C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C25454C2C2C2C2C2C2C2A3510000000000
93   - 00AFB825CB6A0CC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2
94   - C2C2C2C20CDECBCBAA17C80000000000000000009951A1AA682525CBCBCB6A6A
95   - DEDE0C0CC2C2C2C20C0CDE6A6ACBCBCB2525D1AA2017AFAE0000000000000000
96   - 000000000000000000C842E3AF2D51178A34A120B8CBCBB820348A17512DAFE3
97   - 42AE000000000000000000000000000000000000000000000000000000000000
98   - 0000000000343400000000000000000000000000000000000000000000000000
99   - 0000000000000000000000000000000000000000002D17000000000000000000
100   - 0000000000000000000000000000000000000000000000000000000000000000
101   - 0000000000C8AF00000000000000000000000000000000000000000000000000
102   - 00AE19D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9EED9D9D9D9D9D9D9D9D9
103   - D9D9D9D9D9D9D9D9D919AE00000000000063F4F4F4F4F4F4F4F4F4F4F4F4F4F4
104   - F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F43BB00000000000
105   - 00003E15CF3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E
106   - 3E3E3E3E3E3E3ECF1508000000000000000000BC531414141414141414141414
107   - 1414141414141414141414141414141414141414141414110F00000000000000
108   - 00000000A444AD44ADAD44ADADADAD44AD44ADAD44ADAD44AD44ADAD44AD44AD
109   - AD44AD4444AD449600000000000000000000000000002F4C7E63D321CE080F1E
110   - 77E308668D770899664C7F081E9DF563E1D3217F455A00000000000000000000
111   - 00000000D4D7821F3D7D6B0E1FFC05C9B3643A6CA0DA5E5DCA1F723ADFB14784
112   - E90783BD067100B30000000000000000000000007A37A787CD3A70BB870210B7
113   - 16227A71FEF731C5612A8C3AB9A7FA7529E21CF1E55688160000000000000000
114   - 000000007AD86174263AC4D61673C54D32EC35374D90F058B68378B256A7795F
115   - 81DD4BB402D088740400000000000000000000B27A92B6F3FB3A71556524C5A9
116   - 6FB4358BCAA8609ACAE87829D8E432268170BB040250B7320400000000000000
117   - 000000007A56E4745F3A702E87E6D0B7742235B94D90982961F2183A37A779B5
118   - 29C11C6E951088160000000000000000000000007A96BFFA75B2891CD5953788
119   - 65527A0DACF71A85E4E7C7124AD67B7C5088BA469A62B7650000000000000000
120   - 0000000029001D000049005B43B22800B300004D0087B2004DD500B2001DB400
121   - 8B008300002800FA000000000000000000000000000000000000000000000000
122   - 000000000000000000000000000000000000000000000000000000000000FFFF
123   - FFFFFFFF0000F3FFFFFFFFCF0000E3FFFFFFFFC70000C1FFFFFFFF870000C1FF
124   - FFFFFF83000081FFFFFFFF03000080FFFFFFFF01000080FFFFFFFF01000080FF
125   - FFFFFF01000000FFF83FFE010000807F0001FE01000080FC00003E01000080F0
126   - 00000E01000080400000070100008000000002030000C000000000030000C000
127   - 000000070000E000000000070000E0000000000F0000C000000000070000C000
128   - 0000000300008000000000010000000000000001000000000000000000000000
129   - 0000000000008000000000010000C00000000003000080000000000500008000
130   - 0000000300008000000000030000C000000000030000C000000000030000C000
131   - 000000070000E000000000070000E000000000070000E000000000070000F000
132   - 0000000F0000F8000000001F0000FC000000003F0000FF00000000FF0000FC00
133   - 000000BF0000FC000000003F0000FC000000001F0000F8000000001F0000FC00
134   - 0000003F0000FC000000003F0000FD685A4A56BF0000FFFFFFFFFFFF0000}
135   - KeyPreview = True
136   - OldCreateOrder = False
137   - Position = poScreenCenter
138   - OnClose = FormClose
139   - OnCreate = FormCreate
140   - PixelsPerInch = 96
141   - TextHeight = 13
142   - object MemoLog: TMemo
143   - Left = 4
144   - Top = 4
145   - Width = 668
146   - Height = 306
147   - Lines.Strings = (
148   - 'MemoLog')
149   - ScrollBars = ssVertical
150   - TabOrder = 0
151   - end
152   - object Bt_Fechar_Log: TButton
153   - Left = 297
154   - Top = 321
155   - Width = 95
156   - Height = 25
157   - Cancel = True
158   - Caption = 'Fechar'
159   - Default = True
160   - TabOrder = 1
161   - OnClick = Bt_Fechar_LogClick
162   - end
163   -end
frmsenha.pas
View file @f441f40
... ... @@ -1,89 +0,0 @@
1   -(**
2   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
3   -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
4   -
5   -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
6   -
7   -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8   -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
9   -
10   -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11   -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
12   -
13   -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
14   -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
16   -*)
17   -
18   -unit frmSenha;
19   -
20   -interface
21   -
22   -uses
23   - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
24   - StdCtrls, Main, ExtCtrls;
25   -
26   -
27   -type
28   - TformSenha = class(TForm)
29   - Lb_Texto_Senha: TLabel;
30   - Lb_Senha: TLabel;
31   - EditSenha: TEdit;
32   - Bt_OK_Senha: TButton;
33   - Bt_Cancelar_Senha: TButton;
34   - Lb_Msg_Erro_Senha: TLabel;
35   - Tm_Senha: TTimer;
36   - procedure Bt_Cancelar_SenhaClick(Sender: TObject);
37   - procedure Bt_OK_SenhaClick(Sender: TObject);
38   - procedure FormClose(Sender: TObject; var Action: TCloseAction);
39   - procedure Tm_SenhaTimer(Sender: TObject);
40   - private
41   - { Private declarations }
42   - public
43   - { Public declarations }
44   - end;
45   -
46   -var
47   - formSenha: TformSenha;
48   -
49   -implementation
50   -
51   -{$R *.dfm}
52   -
53   -procedure TformSenha.Bt_Cancelar_SenhaClick(Sender: TObject);
54   -begin
55   - formSenha.Close;
56   - formSenha.Release;
57   -end;
58   -
59   -procedure TformSenha.Bt_OK_SenhaClick(Sender: TObject);
60   -begin
61   -if boolDebugs then FormularioGeral.log_DEBUG('Informação de Senha: "'+Trim(editSenha.Text)+'" contra "'+Trim(FormularioGeral.GetValorDatMemoria('Configs.TE_SENHA_ADM_AGENTE',v_tstrCipherOpened))+'"');
62   - if (Trim(editSenha.Text) = Trim(FormularioGeral.GetValorDatMemoria('Configs.TE_SENHA_ADM_AGENTE',v_tstrCipherOpened))) Then
63   - Begin
64   - FormularioGeral.SetValorDatMemoria('Configs.SJI','S',v_tstrCipherOpened);
65   - formSenha.Close;
66   - formSenha.Release;
67   - End
68   - else
69   - Begin
70   - Lb_Msg_Erro_Senha.Caption := 'Senha Inválida!';
71   - Tm_Senha.Enabled := false;
72   - Tm_Senha.Interval := 3000; //3 segundos
73   - Tm_Senha.Enabled := true;
74   - End;
75   -end;
76   -
77   -procedure TformSenha.FormClose(Sender: TObject; var Action: TCloseAction);
78   -begin
79   - formSenha.Close;
80   - formSenha.Release;
81   -end;
82   -
83   -procedure TformSenha.Tm_SenhaTimer(Sender: TObject);
84   -begin
85   - Tm_Senha.Enabled:= false;
86   - Lb_Msg_Erro_Senha.Caption := '';
87   -end;
88   -
89   -end.