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,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,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,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,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,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.