Download as
Browse Code »

Commit eb8d42dd711267e6e582e54d3a31c0850758cfe6

Authored by anderson.peterle@previdencia.gov.br
1 parent e663a2b2
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@960 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 8 changed files with 0 additions and 1006 deletions   Show diff stats
col_comp/col_comp.cfg
View file @e663a2b
@@ -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  
col_comp/col_comp.dof
View file @e663a2b
@@ -1,136 +0,0 @@ @@ -1,136 +0,0 @@
1 -[FileVersion]  
2 -Version=7.0  
3 -[Compiler]  
4 -A=8  
5 -B=0  
6 -C=1  
7 -D=1  
8 -E=0  
9 -F=0  
10 -G=1  
11 -H=1  
12 -I=1  
13 -J=0  
14 -K=0  
15 -L=1  
16 -M=0  
17 -N=1  
18 -O=1  
19 -P=1  
20 -Q=0  
21 -R=0  
22 -S=0  
23 -T=0  
24 -U=0  
25 -V=1  
26 -W=0  
27 -X=1  
28 -Y=1  
29 -Z=1  
30 -ShowHints=1  
31 -ShowWarnings=1  
32 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
33 -NamespacePrefix=  
34 -SymbolDeprecated=1  
35 -SymbolLibrary=1  
36 -SymbolPlatform=1  
37 -UnitLibrary=1  
38 -UnitPlatform=1  
39 -UnitDeprecated=1  
40 -HResultCompat=1  
41 -HidingMember=1  
42 -HiddenVirtual=1  
43 -Garbage=1  
44 -BoundsError=1  
45 -ZeroNilCompat=1  
46 -StringConstTruncated=1  
47 -ForLoopVarVarPar=1  
48 -TypedConstVarPar=1  
49 -AsgToTypedConst=1  
50 -CaseLabelRange=1  
51 -ForVariable=1  
52 -ConstructingAbstract=1  
53 -ComparisonFalse=1  
54 -ComparisonTrue=1  
55 -ComparingSignedUnsigned=1  
56 -CombiningSignedUnsigned=1  
57 -UnsupportedConstruct=1  
58 -FileOpen=1  
59 -FileOpenUnitSrc=1  
60 -BadGlobalSymbol=1  
61 -DuplicateConstructorDestructor=1  
62 -InvalidDirective=1  
63 -PackageNoLink=1  
64 -PackageThreadVar=1  
65 -ImplicitImport=1  
66 -HPPEMITIgnored=1  
67 -NoRetVal=1  
68 -UseBeforeDef=1  
69 -ForLoopVarUndef=1  
70 -UnitNameMismatch=1  
71 -NoCFGFileFound=1  
72 -MessageDirective=1  
73 -ImplicitVariants=1  
74 -UnicodeToLocale=1  
75 -LocaleToUnicode=1  
76 -ImagebaseMultiple=1  
77 -SuspiciousTypecast=1  
78 -PrivatePropAccessor=1  
79 -UnsafeType=0  
80 -UnsafeCode=0  
81 -UnsafeCast=0  
82 -[Linker]  
83 -MapFile=0  
84 -OutputObjs=0  
85 -ConsoleApp=1  
86 -DebugInfo=0  
87 -RemoteSymbols=0  
88 -MinStackSize=16384  
89 -MaxStackSize=1048576  
90 -ImageBase=4194304  
91 -ExeDescription=  
92 -[Directories]  
93 -OutputDir=  
94 -UnitOutputDir=  
95 -PackageDLLOutputDir=  
96 -PackageDCPOutputDir=  
97 -SearchPath=  
98 -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl  
99 -Conditionals=  
100 -DebugSourceDirs=  
101 -UsePackages=0  
102 -[Parameters]  
103 -RunParams=  
104 -HostApplication=  
105 -Launcher=  
106 -UseLauncher=0  
107 -DebugCWD=  
108 -[Language]  
109 -ActiveLang=  
110 -ProjectLang=  
111 -RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\  
112 -[Version Info]  
113 -IncludeVerInfo=1  
114 -AutoIncBuild=0  
115 -MajorVer=2  
116 -MinorVer=5  
117 -Release=0  
118 -Build=773  
119 -Debug=0  
120 -PreRelease=0  
121 -Special=0  
122 -Private=0  
123 -DLL=0  
124 -Locale=2070  
125 -CodePage=1252  
126 -[Version Info Keys]  
127 -CompanyName=Dataprev - Emp. de TI da Prev.Social - URES  
128 -FileDescription=Coletor de Informações de Compartilhamento do Sistema CACIC  
129 -FileVersion=2.5.0.773  
130 -InternalName=  
131 -LegalCopyright=  
132 -LegalTrademarks=  
133 -OriginalFilename=  
134 -ProductName=Col_COMP  
135 -ProductVersion=2.6  
136 -Comments=Baseado na licença GPL (General Public License)  
col_comp/col_comp.dpr
View file @e663a2b
@@ -1,390 +0,0 @@ @@ -1,390 +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 -program col_comp;  
19 -{$R *.res}  
20 -  
21 -uses  
22 - Windows,  
23 - SysUtils,  
24 - Classes,  
25 - Registry,  
26 - CACIC_Library in '..\CACIC_Library.pas';  
27 -  
28 -var  
29 - v_strCipherClosed : String;  
30 -  
31 -var  
32 - v_tstrCipherOpened,  
33 - v_tstrCipherOpened1 : TStrings;  
34 -  
35 -var  
36 - g_oCacic : TCACIC;  
37 -  
38 -procedure log_diario(strMsg : String);  
39 -var  
40 - HistoricoLog : TextFile;  
41 - strDataArqLocal, strDataAtual : string;  
42 -begin  
43 - try  
44 - FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
45 - AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}  
46 - {$IOChecks off}  
47 - Reset(HistoricoLog); {Abre o arquivo texto}  
48 - {$IOChecks on}  
49 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
50 - begin  
51 - Rewrite (HistoricoLog);  
52 - Append(HistoricoLog);  
53 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
54 - end;  
55 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));  
56 - DateTimeToString(strDataAtual , 'yyyymmdd', Date);  
57 - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...  
58 - begin  
59 - Rewrite (HistoricoLog); //Cria/Recria o arquivo  
60 - Append(HistoricoLog);  
61 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
62 - end;  
63 - Append(HistoricoLog);  
64 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now)+ '[Coletor COMP] '+strMsg); {Grava a string Texto no arquivo texto}  
65 - CloseFile(HistoricoLog); {Fecha o arquivo texto}  
66 -  
67 - except  
68 - log_diario('Erro na gravação do log!');  
69 - end;  
70 -end;  
71 -  
72 -Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;  
73 -var v_strCipherOpenImploded : string;  
74 - v_DatFile : TextFile;  
75 -begin  
76 - try  
77 - FileSetAttr (p_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
78 - AssignFile(v_DatFile,p_DatFileName); {Associa o arquivo a uma variável do tipo TextFile}  
79 -  
80 - // Criação do arquivo .DAT  
81 - Rewrite (v_DatFile);  
82 - Append(v_DatFile);  
83 -  
84 - v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);  
85 - v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);  
86 - Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}  
87 - CloseFile(v_DatFile);  
88 - except  
89 - end;  
90 -end;  
91 -  
92 -Function CipherOpen(p_DatFileName : string) : TStrings;  
93 -var v_DatFile : TextFile;  
94 - v_strCipherOpened,  
95 - v_strCipherClosed : string;  
96 -begin  
97 - v_strCipherOpened := '';  
98 - if FileExists(p_DatFileName) then  
99 - begin  
100 - AssignFile(v_DatFile,p_DatFileName);  
101 - {$IOChecks off}  
102 - Reset(v_DatFile);  
103 - {$IOChecks on}  
104 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
105 - begin  
106 - Rewrite (v_DatFile);  
107 - Append(v_DatFile);  
108 - end;  
109 -  
110 - Readln(v_DatFile,v_strCipherClosed);  
111 - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);  
112 - CloseFile(v_DatFile);  
113 - v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);  
114 - end;  
115 - if (trim(v_strCipherOpened)<>'') then  
116 - Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)  
117 - else  
118 - Result := g_oCacic.explode('Configs.ID_SO'+g_oCacic.getSeparatorKey+g_oCacic.getWindowsStrId() +g_oCacic.getSeparatorKey+'Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorKey);  
119 -  
120 -  
121 - if Result.Count mod 2 <> 0 then  
122 - Result.Add('');  
123 -end;  
124 -  
125 -Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings);  
126 -begin  
127 - // Exemplo: p_Chave => Configs.nu_ip_servidor : p_Valor => 10.71.0.120  
128 - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then  
129 - p_tstrCipherOpened[v_tstrCipherOpened.IndexOf(p_Chave)+1] := p_Valor  
130 - else  
131 - Begin  
132 - p_tstrCipherOpened.Add(p_Chave);  
133 - p_tstrCipherOpened.Add(p_Valor);  
134 - End;  
135 -  
136 -end;  
137 -  
138 -Function GetValorDatMemoria(p_Chave : String) : String;  
139 -begin  
140 - if (v_tstrCipherOpened.IndexOf(p_Chave)<>-1) then  
141 - Result := v_tstrCipherOpened[v_tstrCipherOpened.IndexOf(p_Chave)+1]  
142 - else  
143 - Result := '';  
144 -end;  
145 -  
146 -function GetRootKey(strRootKey: String): HKEY;  
147 -begin  
148 - /// Encontrar uma maneira mais elegante de fazer esses testes.  
149 - if Trim(strRootKey) = 'HKEY_LOCAL_MACHINE' Then Result := HKEY_LOCAL_MACHINE  
150 - else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT' Then Result := HKEY_CLASSES_ROOT  
151 - else if Trim(strRootKey) = 'HKEY_CURRENT_USER' Then Result := HKEY_CURRENT_USER  
152 - else if Trim(strRootKey) = 'HKEY_USERS' Then Result := HKEY_USERS  
153 - else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG' Then Result := HKEY_CURRENT_CONFIG  
154 - else if Trim(strRootKey) = 'HKEY_DYN_DATA' Then Result := HKEY_DYN_DATA;  
155 -end;  
156 -  
157 -Function RemoveCaracteresEspeciais(Texto : String) : String;  
158 -var I : Integer;  
159 - strAux : String;  
160 -Begin  
161 - For I := 0 To Length(Texto) Do  
162 - if ord(Texto[I]) in [32..126] Then  
163 - strAux := strAux + Texto[I]  
164 - else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais  
165 - Result := strAux;  
166 -end;  
167 -  
168 -function GetValorChaveRegEdit(Chave: String): Variant;  
169 -var RegEditGet: TRegistry;  
170 - RegDataType: TRegDataType;  
171 - strRootKey, strKey, strValue, s: String;  
172 - ListaAuxGet : TStrings;  
173 - DataSize, Len, I : Integer;  
174 -begin  
175 - try  
176 - Result := '';  
177 - ListaAuxGet := g_oCacic.explode(Chave, '\');  
178 -  
179 - strRootKey := ListaAuxGet[0];  
180 - For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';  
181 - strValue := ListaAuxGet[ListaAuxGet.Count - 1];  
182 - if (strValue = '(Padrão)') then strValue := ''; //Para os casos de se querer buscar o valor default (Padrão)  
183 - RegEditGet := TRegistry.Create;  
184 -  
185 - RegEditGet.Access := KEY_READ;  
186 - RegEditGet.Rootkey := GetRootKey(strRootKey);  
187 - if RegEditGet.OpenKeyReadOnly(strKey) then //teste  
188 - Begin  
189 - RegDataType := RegEditGet.GetDataType(strValue);  
190 - if (RegDataType = rdString) or (RegDataType = rdExpandString) then Result := RegEditGet.ReadString(strValue)  
191 - else if RegDataType = rdInteger then Result := RegEditGet.ReadInteger(strValue)  
192 - else if (RegDataType = rdBinary) or (RegDataType = rdUnknown)  
193 - then  
194 - begin  
195 - DataSize := RegEditGet.GetDataSize(strValue);  
196 - if DataSize = -1 then exit;  
197 - SetLength(s, DataSize);  
198 - Len := RegEditGet.ReadBinaryData(strValue, PChar(s)^, DataSize);  
199 - if Len <> DataSize then exit;  
200 - Result := RemoveCaracteresEspeciais(s);  
201 - end  
202 - end;  
203 - finally  
204 - RegEditGet.CloseKey;  
205 - RegEditGet.Free;  
206 - ListaAuxGet.Free;  
207 -  
208 - end;  
209 -end;  
210 -  
211 -procedure Executa_Col_comp;  
212 -  
213 - function RetornaValorShareNT(ValorReg : String; LimiteEsq : String; LimiteDir : String) : String;  
214 - var intAux, intAux2 : Integer;  
215 - Begin  
216 - intAux := Pos(LimiteEsq, ValorReg) + Length(LimiteEsq);  
217 - if (LimiteDir = 'Fim') Then intAux2 := Length(ValorReg) - 1  
218 - Else intAux2 := Pos(LimiteDir, ValorReg) - intAux - 1;  
219 - result := Trim(Copy(ValorReg, intAux, intAux2));  
220 - end;  
221 -  
222 -var Reg_RCC : TRegistry;  
223 - ChaveRegistro, ValorChaveRegistro, nm_compartilhamento, nm_dir_compart,  
224 - in_senha_escrita, in_senha_leitura, te_comentario, strTripaDados, strAux,  
225 - cs_tipo_permissao, cs_tipo_compart : String;  
226 - I, intAux: Integer;  
227 - Lista_RCC : TStringList;  
228 -Begin  
229 - Try  
230 - Begin  
231 - SetValorDatMemoria('Col_Comp.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);  
232 - nm_compartilhamento := '';  
233 - nm_dir_compart := '';  
234 - cs_tipo_compart := ' ';  
235 - cs_tipo_permissao := ' ';  
236 - in_senha_leitura := '';  
237 - in_senha_escrita := '';  
238 - log_diario('Coletando informações de Compartilhamentos.');  
239 - Reg_RCC := TRegistry.Create;  
240 - Reg_RCC.LazyWrite := False;  
241 - Lista_RCC := TStringList.Create;  
242 - Reg_RCC.Rootkey := HKEY_LOCAL_MACHINE;  
243 - strTripaDados := '';  
244 -  
245 - if Win32Platform = VER_PLATFORM_WIN32_NT then  
246 - Begin // 2k, xp, nt.  
247 - ChaveRegistro := '\System\ControlSet001\Services\lanmanserver\Shares\';  
248 - Reg_RCC.OpenKeyReadOnly(ChaveRegistro);  
249 - Reg_RCC.GetValueNames(Lista_RCC);  
250 - Reg_RCC.CloseKey;  
251 - For I := 0 To Lista_RCC.Count - 1 Do  
252 - Begin  
253 - nm_compartilhamento := Lista_RCC.Strings[i];  
254 - strAux := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE' + ChaveRegistro + nm_compartilhamento);  
255 - nm_dir_compart := RetornaValorShareNT(strAux, 'Path=', 'Permissions=');  
256 - te_comentario := RetornaValorShareNT(strAux, 'Remark=', 'Type=');  
257 - cs_tipo_compart := RetornaValorShareNT(strAux, 'Type=', 'Fim');  
258 - if (cs_tipo_compart = '0') Then cs_tipo_compart := 'D' Else cs_tipo_compart := 'I';  
259 - if (strTripaDados <> '') then  
260 - strTripaDados := strTripaDados + '<REG>'; // Delimitador de REGISTRO  
261 -  
262 - strTripaDados := strTripaDados + nm_compartilhamento + '<FIELD>' +  
263 - nm_dir_compart + '<FIELD>' +  
264 - cs_tipo_compart + '<FIELD>' +  
265 - te_comentario;  
266 - end;  
267 - end  
268 - Else  
269 - Begin  
270 - ChaveRegistro := '\Software\Microsoft\Windows\CurrentVersion\Network\LanMan\';  
271 - Reg_RCC.OpenKeyReadOnly(ChaveRegistro);  
272 - Reg_RCC.GetKeyNames(Lista_RCC);  
273 - Reg_RCC.CloseKey;  
274 - For I := 0 To Lista_RCC.Count - 1 Do  
275 - Begin  
276 - nm_compartilhamento := Lista_RCC.Strings[i];  
277 - Reg_RCC.OpenKey(ChaveRegistro + nm_compartilhamento, True);  
278 - nm_dir_compart := Reg_RCC.ReadString('Path');  
279 - te_comentario := Reg_RCC.ReadString('Remark');  
280 - if (Reg_RCC.GetDataSize('Parm1enc') = 0) Then in_senha_escrita := '0' Else in_senha_escrita := '1';  
281 - if (Reg_RCC.GetDataSize('Parm2enc') = 0) Then in_senha_leitura := '0' Else in_senha_leitura := '1';  
282 - if (Reg_RCC.ReadInteger('Type') = 0) Then cs_tipo_compart := 'D' Else cs_tipo_compart := 'I';  
283 - intAux := Reg_RCC.ReadInteger('Flags');  
284 - Case intAux of //http://www.la2600.org/talks/chronology/enigma/19971107.html  
285 - 401 : cs_tipo_permissao := 'S'; // Somente Leitura.  
286 - 258 : cs_tipo_permissao := 'C'; // Completo.  
287 - 259 : cs_tipo_permissao := 'D'; // Depende de senha.  
288 - end;  
289 - Reg_RCC.CloseKey;  
290 - {  
291 - strXML := strXML + '<compart>' +  
292 - '<nm_compartilhamento>' + nm_compartilhamento + '</nm_compartilhamento>' +  
293 - '<nm_dir_compart>' + nm_dir_compart + '</nm_dir_compart>' +  
294 - '<cs_tipo_compart>' + cs_tipo_compart + '</cs_tipo_compart>' +  
295 - '<cs_tipo_permissao>' + cs_tipo_permissao + '</cs_tipo_permissao>' +  
296 - '<in_senha_leitura>' + in_senha_leitura + '</in_senha_leitura>' +  
297 - '<in_senha_escrita>' + in_senha_escrita + '</in_senha_escrita>' +  
298 - '<te_comentario>' + te_comentario + '</te_comentario>' +  
299 - '</compart>';  
300 - }  
301 - if (strTripaDados <> '') then  
302 - strTripaDados := strTripaDados + '<REG>'; // Delimitador de REGISTRO  
303 -  
304 - strTripaDados := strTripaDados + nm_compartilhamento + '<FIELD>' +  
305 - nm_dir_compart + '<FIELD>' +  
306 - cs_tipo_compart + '<FIELD>' +  
307 - te_comentario + '<FIELD>' +  
308 - in_senha_leitura + '<FIELD>' +  
309 - in_senha_escrita + '<FIELD>' +  
310 - cs_tipo_permissao;  
311 - end;  
312 - end;  
313 -  
314 - Reg_RCC.Free;  
315 - Lista_RCC.Free;  
316 -  
317 -  
318 - // Obtenho do registro o valor que foi previamente armazenado  
319 - ValorChaveRegistro := Trim(GetValorDatMemoria('Coletas.Compartilhamentos'));  
320 -  
321 - SetValorDatMemoria('Col_Comp.Fim' , FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);  
322 -  
323 - // Se essas informações forem diferentes significa que houve alguma alteração  
324 - // na configuração. Nesse caso, gravo as informações no BD Central e, se não houver  
325 - // problemas durante esse procedimento, atualizo as informações no registro.  
326 - If ((GetValorDatMemoria('Configs.IN_COLETA_FORCADA_COMP')='S') or (strTripaDados <> ValorChaveRegistro)) and  
327 - (strTripaDados <> '') Then  
328 - Begin  
329 - SetValorDatMemoria('Col_Comp.UVC', strTripaDados, v_tstrCipherOpened1);  
330 - CipherClose(g_oCacic.getCacicPath + 'temp\col_comp.dat', v_tstrCipherOpened1);  
331 - End  
332 - else  
333 - SetValorDatMemoria('Col_Comp.nada', 'nada', v_tstrCipherOpened1);  
334 -  
335 - CipherClose(g_oCacic.getCacicPath + 'temp\col_comp.dat', v_tstrCipherOpened1);  
336 - End;  
337 - Except  
338 - Begin  
339 - SetValorDatMemoria('Col_Comp.nada', 'nada', v_tstrCipherOpened1);  
340 - SetValorDatMemoria('Col_Comp.Fim', '99999999', v_tstrCipherOpened1);  
341 - CipherClose(g_oCacic.getCacicPath + 'temp\col_comp.dat', v_tstrCipherOpened1);  
342 - End;  
343 - End;  
344 -end;  
345 -  
346 -var tstrTripa1 : TStrings;  
347 - intAux : integer;  
348 - strAux : String;  
349 -  
350 -const  
351 - CACIC_APP_NAME = 'col_comp';  
352 -  
353 -begin  
354 - g_oCacic := TCACIC.Create();  
355 -  
356 - g_oCacic.setBoolCipher(true);  
357 -  
358 - if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then  
359 - if (ParamCount>0) then  
360 - Begin  
361 - strAux := '';  
362 - For intAux := 1 to ParamCount do  
363 - Begin  
364 - if LowerCase(Copy(ParamStr(intAux),1,11)) = '/cacicpath=' then  
365 - begin  
366 - strAux := Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux)))));  
367 - end;  
368 - end;  
369 -  
370 - if (strAux <> '') then  
371 - Begin  
372 - g_oCacic.setCacicPath(strAux);  
373 -  
374 - v_tstrCipherOpened := TStrings.Create;  
375 - v_tstrCipherOpened := CipherOpen(g_oCacic.getCacicPath + g_oCacic.getDatFileName);  
376 -  
377 - v_tstrCipherOpened1 := TStrings.Create;  
378 - v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_comp.dat');  
379 -  
380 - Try  
381 - Executa_Col_comp;  
382 - Except  
383 - SetValorDatMemoria('Col_Comp.nada', 'nada', v_tstrCipherOpened1);  
384 - CipherClose(g_oCacic.getCacicPath + 'temp\col_comp.dat', v_tstrCipherOpened1);  
385 - End;  
386 - Halt(0);  
387 - End;  
388 - End;  
389 - g_oCacic.Free();  
390 -end.  
col_comp/col_comp.res
View file @e663a2b
No preview for this file type
col_comp/col_comp_icon.ico
View file @e663a2b
No preview for this file type
col_comp/main_comp.ddp
View file @e663a2b
No preview for this file type
col_comp/main_comp.dfm
View file @e663a2b
@@ -1,18 +0,0 @@ @@ -1,18 +0,0 @@
1 -object frmcol_comp: Tfrmcol_comp  
2 - Left = 912  
3 - Top = 715  
4 - Width = 112  
5 - Height = 27  
6 - Caption = 'CACIC - Coletor Compartilhamentos'  
7 - Color = clBtnFace  
8 - TransparentColor = True  
9 - Font.Charset = DEFAULT_CHARSET  
10 - Font.Color = clWindowText  
11 - Font.Height = -11  
12 - Font.Name = 'MS Sans Serif'  
13 - Font.Style = []  
14 - OldCreateOrder = False  
15 - OnCreate = FormCreate  
16 - PixelsPerInch = 96  
17 - TextHeight = 13  
18 -end  
col_comp/main_comp.pas
View file @e663a2b
@@ -1,424 +0,0 @@ @@ -1,424 +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 main_comp;  
19 -  
20 -interface  
21 -  
22 -uses Windows, Forms, IniFiles, SysUtils, Classes, Registry;  
23 -var p_path_cacic, p_path_cacic_ini : string;  
24 -type  
25 - Tfrmcol_comp = class(TForm)  
26 - procedure Executa_Col_comp;  
27 - procedure Log_Historico(strMsg : String);  
28 - Function Crip(PNome: String): String;  
29 - Function DesCrip(PNome: String): String;  
30 - function SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;  
31 -// function GetValorChaveRegIni(p_Secao: String; p_Chave : String; p_Path : String): String;  
32 - function GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
33 - function GetValorChaveRegEdit(Chave: String): Variant;  
34 - function GetRootKey(strRootKey: String): HKEY;  
35 - Function Explode(Texto, Separador : String) : TStrings;  
36 - Function RemoveCaracteresEspeciais(Texto : String) : String;  
37 - procedure FormCreate(Sender: TObject);  
38 - private  
39 - { Private declarations }  
40 - public  
41 - { Public declarations }  
42 - end;  
43 -  
44 -var  
45 - frmcol_comp: Tfrmcol_comp;  
46 -  
47 -implementation  
48 -  
49 -{$R *.dfm}  
50 -  
51 -//Para gravar no Arquivo INI...  
52 -function Tfrmcol_comp.SetValorChaveRegIni(p_Secao: String; p_Chave: String; p_Valor: String; p_Path : String): String;  
53 -var Reg_Ini : TIniFile;  
54 -begin  
55 - FileSetAttr (p_Path,0);  
56 - Reg_Ini := TIniFile.Create(p_Path);  
57 -// Reg_Ini.WriteString(frmcol_comp.Crip(p_Secao), frmcol_comp.Crip(p_Chave), frmcol_comp.Crip(p_Valor));  
58 - Reg_Ini.WriteString(p_Secao, p_Chave, p_Valor);  
59 - Reg_Ini.Free;  
60 -end;  
61 -  
62 -//Para buscar do Arquivo INI...  
63 -//function Tfrmcol_comp.GetValorChaveRegIni(p_Secao: String; p_Chave : String; p_Path : String): String;  
64 -//var Reg_Ini: TIniFile;  
65 -//begin  
66 -// FileSetAttr (p_Path,0);  
67 -// Reg_Ini := TIniFile.Create(p_Path);  
68 -//// Result := frmcol_comp.DesCrip(Reg_Ini.ReadString(frmcol_comp.Crip(p_Secao), frmcol_comp.Crip(p_Chave), ''));  
69 -// Result := Reg_Ini.ReadString(p_Secao, p_Chave, '');  
70 -// Reg_Ini.Free;  
71 -//end;  
72 -//Para buscar do Arquivo INI...  
73 -// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções  
74 -function Tfrmcol_comp.GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
75 -var  
76 - FileText : TStringList;  
77 - i, j, v_Size_Section, v_Size_Key : integer;  
78 - v_SectionName, v_KeyName : string;  
79 - begin  
80 - Result := '';  
81 - v_SectionName := '[' + p_SectionName + ']';  
82 - v_Size_Section := strLen(PChar(v_SectionName));  
83 - v_KeyName := p_KeyName + '=';  
84 - v_Size_Key := strLen(PChar(v_KeyName));  
85 - FileText := TStringList.Create;  
86 - try  
87 - FileText.LoadFromFile(p_IniFileName);  
88 - For i := 0 To FileText.Count - 1 Do  
89 - Begin  
90 - if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then  
91 - Begin  
92 - For j := i to FileText.Count - 1 Do  
93 - Begin  
94 - if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then  
95 - Begin  
96 - Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key));  
97 - Break;  
98 - End;  
99 - End;  
100 - End;  
101 - if (Result <> '') then break;  
102 - End;  
103 - finally  
104 - FileText.Free;  
105 - end;  
106 - end;  
107 -  
108 -  
109 -Function Tfrmcol_comp.Explode(Texto, Separador : String) : TStrings;  
110 -var  
111 - strItem : String;  
112 - ListaAuxUTILS : TStrings;  
113 - NumCaracteres, I : Integer;  
114 -Begin  
115 - ListaAuxUTILS := TStringList.Create;  
116 - strItem := '';  
117 - NumCaracteres := Length(Texto);  
118 - For I := 0 To NumCaracteres Do  
119 - If (Texto[I] = Separador) or (I = NumCaracteres) Then  
120 - Begin  
121 - If (I = NumCaracteres) then strItem := strItem + Texto[I];  
122 - ListaAuxUTILS.Add(Trim(strItem));  
123 - strItem := '';  
124 - end  
125 - Else strItem := strItem + Texto[I];  
126 - Explode := ListaAuxUTILS;  
127 -//Não estava sendo liberado  
128 -// ListaAuxUTILS.Free;  
129 -//Ao ativar esta liberação tomei uma baita surra!!!! 11/05/2004 - 20:30h - Uma noite muito escura! :) Anderson Peterle  
130 -end;  
131 -  
132 -function Tfrmcol_comp.GetRootKey(strRootKey: String): HKEY;  
133 -begin  
134 - /// Encontrar uma maneira mais elegante de fazer esses testes.  
135 - if Trim(strRootKey) = 'HKEY_LOCAL_MACHINE' Then Result := HKEY_LOCAL_MACHINE  
136 - else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT' Then Result := HKEY_CLASSES_ROOT  
137 - else if Trim(strRootKey) = 'HKEY_CURRENT_USER' Then Result := HKEY_CURRENT_USER  
138 - else if Trim(strRootKey) = 'HKEY_USERS' Then Result := HKEY_USERS  
139 - else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG' Then Result := HKEY_CURRENT_CONFIG  
140 - else if Trim(strRootKey) = 'HKEY_DYN_DATA' Then Result := HKEY_DYN_DATA;  
141 -end;  
142 -  
143 -Function Tfrmcol_comp.RemoveCaracteresEspeciais(Texto : String) : String;  
144 -var I : Integer;  
145 - strAux : String;  
146 -Begin  
147 - For I := 0 To Length(Texto) Do  
148 - if ord(Texto[I]) in [32..126] Then  
149 - strAux := strAux + Texto[I]  
150 - else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais  
151 - Result := strAux;  
152 -end;  
153 -  
154 -function Tfrmcol_comp.GetValorChaveRegEdit(Chave: String): Variant;  
155 -var RegEditGet: TRegistry;  
156 - RegDataType: TRegDataType;  
157 - strRootKey, strKey, strValue, s: String;  
158 - ListaAuxGet : TStrings;  
159 - DataSize, Len, I : Integer;  
160 -begin  
161 - try  
162 - Result := '';  
163 - ListaAuxGet := frmcol_comp.Explode(Chave, '\');  
164 -  
165 - strRootKey := ListaAuxGet[0];  
166 - For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';  
167 - strValue := ListaAuxGet[ListaAuxGet.Count - 1];  
168 - if (strValue = '(Padrão)') then strValue := ''; //Para os casos de se querer buscar o valor default (Padrão)  
169 - RegEditGet := TRegistry.Create;  
170 -  
171 - RegEditGet.Access := KEY_READ;  
172 - RegEditGet.Rootkey := GetRootKey(strRootKey);  
173 - if RegEditGet.OpenKeyReadOnly(strKey) then //teste  
174 - Begin  
175 - RegDataType := RegEditGet.GetDataType(strValue);  
176 - if (RegDataType = rdString) or (RegDataType = rdExpandString) then Result := RegEditGet.ReadString(strValue)  
177 - else if RegDataType = rdInteger then Result := RegEditGet.ReadInteger(strValue)  
178 - else if (RegDataType = rdBinary) or (RegDataType = rdUnknown)  
179 - then  
180 - begin  
181 - DataSize := RegEditGet.GetDataSize(strValue);  
182 - if DataSize = -1 then exit;  
183 - SetLength(s, DataSize);  
184 - Len := RegEditGet.ReadBinaryData(strValue, PChar(s)^, DataSize);  
185 - if Len <> DataSize then exit;  
186 - Result := frmcol_comp.RemoveCaracteresEspeciais(s);  
187 - end  
188 - end;  
189 - finally  
190 - RegEditGet.CloseKey;  
191 - RegEditGet.Free;  
192 - ListaAuxGet.Free;  
193 -  
194 - end;  
195 -end;  
196 -  
197 -  
198 -// Simples rotinas de Criptografação e Descriptografação  
199 -// Baixadas de http://www.costaweb.com.br/forum/delphi/474.shtml  
200 -Function Tfrmcol_comp.Crip(PNome: String): String;  
201 -Var  
202 - TamI, TamF: Integer;  
203 - SenA, SenM, SenD: String;  
204 -Begin  
205 - SenA := Trim(PNome);  
206 - TamF := Length(SenA);  
207 - if (TamF > 1) then  
208 - begin  
209 - SenM := '';  
210 - SenD := '';  
211 - For TamI := TamF Downto 1 do  
212 - Begin  
213 - SenM := SenM + Copy(SenA,TamI,1);  
214 - End;  
215 - SenD := Chr(TamF+95)+Copy(SenM,1,1)+Copy(SenA,1,1)+Copy(SenM,2,TamF-2)+Chr(75+TamF);  
216 - end  
217 - else SenD := SenA;  
218 - Result := SenD;  
219 -End;  
220 -  
221 -Function Tfrmcol_comp.DesCrip(PNome: String): String;  
222 -Var  
223 - TamI, TamF: Integer;  
224 - SenA, SenM, SenD: String;  
225 -Begin  
226 - SenA := Trim(PNome);  
227 - TamF := Length(SenA) - 2;  
228 - if (TamF > 1) then  
229 - begin  
230 - SenM := '';  
231 - SenD := '';  
232 - SenA := Copy(SenA,2,TamF);  
233 - SenM := Copy(SenA,1,1)+Copy(SenA,3,TamF)+Copy(SenA,2,1);  
234 - For TamI := TamF Downto 1 do  
235 - Begin  
236 - SenD := SenD + Copy(SenM,TamI,1);  
237 - End;  
238 - end  
239 - else SenD := SenA;  
240 - Result := SenD;  
241 -End;  
242 -  
243 -procedure Tfrmcol_comp.Log_Historico(strMsg : String);  
244 -var  
245 - HistoricoLog : TextFile;  
246 - strDataArqLocal, strDataAtual : string;  
247 -begin  
248 - try  
249 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
250 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}  
251 - {$IOChecks off}  
252 - Reset(HistoricoLog); {Abre o arquivo texto}  
253 - {$IOChecks on}  
254 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
255 - begin  
256 - Rewrite (HistoricoLog);  
257 - Append(HistoricoLog);  
258 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
259 - end;  
260 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log')));  
261 - DateTimeToString(strDataAtual , 'yyyymmdd', Date);  
262 - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...  
263 - begin  
264 - Rewrite (HistoricoLog); //Cria/Recria o arquivo  
265 - Append(HistoricoLog);  
266 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
267 - end;  
268 - Append(HistoricoLog);  
269 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + strMsg); {Grava a string Texto no arquivo texto}  
270 - CloseFile(HistoricoLog); {Fecha o arquivo texto}  
271 -// FileSetAttr (ExtractFilePath(Application.Exename) + '\cacic2.log',6); // Muda o atributo para arquivo de SISTEMA e OCULTO  
272 -  
273 - except  
274 - Log_Historico('Erro na gravação do log!');  
275 - end;  
276 -end;  
277 -  
278 -  
279 -  
280 -procedure Tfrmcol_comp.Executa_Col_comp;  
281 -function RetornaValorShareNT(ValorReg : String; LimiteEsq : String; LimiteDir : String) : String;  
282 -var intAux, intAux2 : Integer;  
283 -Begin  
284 - intAux := Pos(LimiteEsq, ValorReg) + Length(LimiteEsq);  
285 - if (LimiteDir = 'Fim') Then intAux2 := Length(ValorReg) - 1  
286 - Else intAux2 := Pos(LimiteDir, ValorReg) - intAux - 1;  
287 - result := Trim(Copy(ValorReg, intAux, intAux2));  
288 -end;  
289 -var Reg_RCC : TRegistry;  
290 - ChaveRegistro, ValorChaveRegistro, nm_compartilhamento, nm_dir_compart,  
291 - in_senha_escrita, in_senha_leitura, te_comentario, strXML, strAux,  
292 - cs_tipo_permissao, cs_tipo_compart : String;  
293 - I, intAux: Integer;  
294 - Lista_RCC : TStringList;  
295 -Begin  
296 - Try  
297 - nm_compartilhamento := '';  
298 - nm_dir_compart := '';  
299 - cs_tipo_compart := ' ';  
300 - cs_tipo_permissao := ' ';  
301 - in_senha_leitura := '';  
302 - in_senha_escrita := '';  
303 - Log_Historico('* Coletando informações de Compartilhamentos.');  
304 - Reg_RCC := TRegistry.Create;  
305 - Reg_RCC.LazyWrite := False;  
306 - Lista_RCC := TStringList.Create;  
307 - Reg_RCC.Rootkey := HKEY_LOCAL_MACHINE;  
308 - {  
309 - strXML := '<?xml version="1.0" encoding="ISO-8859-1"?>' +  
310 - '<comparts>' +  
311 - '<te_node_address>' + GetValorChaveRegIni('TcpIp' ,'TE_NODE_ADDRESS' ,p_path_cacic_ini) + '</te_node_address>' +  
312 - '<te_nome_computador>' + GetValorChaveRegIni('TcpIp' ,'TE_NOME_COMPUTADOR',p_path_cacic_ini) + '</te_nome_computador>' +  
313 - '<te_workgroup>' + GetValorChaveRegIni('TcpIp' ,'TE_WORKGROUP' ,p_path_cacic_ini) + '</te_workgroup>' +  
314 - '<id_so>' + GetValorChaveRegIni('Configs','ID_SO' ,p_path_cacic_ini) + '</id_so>';  
315 - }  
316 -  
317 - strXML := '<?xml version="1.0" encoding="ISO-8859-1"?><comparts>';  
318 -  
319 - if Win32Platform = VER_PLATFORM_WIN32_NT then  
320 - Begin // 2k, xp, nt.  
321 - ChaveRegistro := '\System\ControlSet001\Services\lanmanserver\Shares\';  
322 - Reg_RCC.OpenKeyReadOnly(ChaveRegistro);  
323 - Reg_RCC.GetValueNames(Lista_RCC);  
324 - Reg_RCC.CloseKey;  
325 - For I := 0 To Lista_RCC.Count - 1 Do  
326 - Begin  
327 - nm_compartilhamento := Lista_RCC.Strings[i];  
328 - strAux := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE' + ChaveRegistro + nm_compartilhamento);  
329 - nm_dir_compart := RetornaValorShareNT(strAux, 'Path=', 'Permissions=');  
330 - te_comentario := RetornaValorShareNT(strAux, 'Remark=', 'Type=');  
331 - cs_tipo_compart := RetornaValorShareNT(strAux, 'Type=', 'Fim');  
332 - if (cs_tipo_compart = '0') Then cs_tipo_compart := 'D' Else cs_tipo_compart := 'I';  
333 - strXML := strXML + '<compart>' +  
334 - '<nm_compartilhamento>' + nm_compartilhamento + '</nm_compartilhamento>' +  
335 - '<nm_dir_compart>' + nm_dir_compart + '</nm_dir_compart>' +  
336 - '<cs_tipo_compart>' + cs_tipo_compart + '</cs_tipo_compart>' +  
337 - '<te_comentario>' + te_comentario + '</te_comentario>' +  
338 - '</compart>';  
339 - end;  
340 - end  
341 - Else  
342 - Begin  
343 - ChaveRegistro := '\Software\Microsoft\Windows\CurrentVersion\Network\LanMan\';  
344 - Reg_RCC.OpenKeyReadOnly(ChaveRegistro);  
345 - Reg_RCC.GetKeyNames(Lista_RCC);  
346 - Reg_RCC.CloseKey;  
347 - For I := 0 To Lista_RCC.Count - 1 Do  
348 - Begin  
349 - nm_compartilhamento := Lista_RCC.Strings[i];  
350 - Reg_RCC.OpenKey(ChaveRegistro + nm_compartilhamento, True);  
351 - nm_dir_compart := Reg_RCC.ReadString('Path');  
352 - te_comentario := Reg_RCC.ReadString('Remark');  
353 - if (Reg_RCC.GetDataSize('Parm1enc') = 0) Then in_senha_escrita := '0' Else in_senha_escrita := '1';  
354 - if (Reg_RCC.GetDataSize('Parm2enc') = 0) Then in_senha_leitura := '0' Else in_senha_leitura := '1';  
355 - if (Reg_RCC.ReadInteger('Type') = 0) Then cs_tipo_compart := 'D' Else cs_tipo_compart := 'I';  
356 - intAux := Reg_RCC.ReadInteger('Flags');  
357 - Case intAux of //http://www.la2600.org/talks/chronology/enigma/19971107.html  
358 - 401 : cs_tipo_permissao := 'S'; // Somente Leitura.  
359 - 258 : cs_tipo_permissao := 'C'; // Completo.  
360 - 259 : cs_tipo_permissao := 'D'; // Depende de senha.  
361 - end;  
362 - Reg_RCC.CloseKey;  
363 - strXML := strXML + '<compart>' +  
364 - '<nm_compartilhamento>' + nm_compartilhamento + '</nm_compartilhamento>' +  
365 - '<nm_dir_compart>' + nm_dir_compart + '</nm_dir_compart>' +  
366 - '<cs_tipo_compart>' + cs_tipo_compart + '</cs_tipo_compart>' +  
367 - '<cs_tipo_permissao>' + cs_tipo_permissao + '</cs_tipo_permissao>' +  
368 - '<in_senha_leitura>' + in_senha_leitura + '</in_senha_leitura>' +  
369 - '<in_senha_escrita>' + in_senha_escrita + '</in_senha_escrita>' +  
370 - '<te_comentario>' + te_comentario + '</te_comentario>' +  
371 - '</compart>';  
372 - end;  
373 - end;  
374 -  
375 - if (Lista_RCC.Count = 0) then strXML := strXML + '<compart>' +  
376 - '<nm_compartilhamento></nm_compartilhamento>' +  
377 - '<nm_dir_compart></nm_dir_compart>' +  
378 - '<cs_tipo_compart></cs_tipo_compart>' +  
379 - '<te_comentario></te_comentario>' +  
380 - '</compart>';  
381 -  
382 - Reg_RCC.Free;  
383 - Lista_RCC.Free;  
384 - strXML := strXML + '</comparts>';  
385 - // Obtenho do registro o valor que foi previamente armazenado  
386 - ValorChaveRegistro := Trim(GetValorChaveRegIni('Coleta','Compartilhamentos',p_path_cacic_ini));  
387 - // Se essas informações forem diferentes significa que houve alguma alteração  
388 - // na configuração. Nesse caso, gravo as informações no BD Central e, se não houver  
389 - // problemas durante esse procedimento, atualizo as informações no registro.  
390 - If (GetValorChaveRegIni('Configs','IN_COLETA_FORCADA_COMP',p_path_cacic_ini)='S') or (strXML <> ValorChaveRegistro) Then  
391 - Begin  
392 - frmcol_comp.SetValorChaveRegIni('Col_Comp','Compartilhamentos', strXML, frmcol_comp.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_comp.ini');  
393 - End  
394 - else frmcol_comp.SetValorChaveRegIni('Col_Comp','nada', 'nada', frmcol_comp.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_comp.ini');  
395 - application.Terminate;  
396 - Except  
397 - frmcol_comp.SetValorChaveRegIni('Col_Comp','nada', 'nada', frmcol_comp.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_comp.ini');  
398 - application.Terminate;  
399 - End;  
400 -end;  
401 -  
402 -procedure Tfrmcol_comp.FormCreate(Sender: TObject);  
403 -var tstrTripa1 : TStrings;  
404 - intAux : integer;  
405 -begin  
406 - //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini  
407 - tstrTripa1 := explode(ExtractFilePath(Application.Exename),'\');  
408 - p_path_cacic := '';  
409 - For intAux := 0 to tstrTripa1.Count -2 do  
410 - begin  
411 - p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';  
412 - end;  
413 - p_path_cacic_ini := p_path_cacic + 'cacic2.ini';  
414 - Application.ShowMainForm := false;  
415 - Try  
416 - Executa_Col_comp;  
417 - Except  
418 - frmcol_comp.SetValorChaveRegIni('Col_Comp','nada', 'nada', frmcol_comp.GetValorChaveRegIni('Configs','P_PATH_COLETAS_INI',p_path_cacic + 'cacic2.ini')+'col_comp.ini');  
419 - application.Terminate;  
420 - End;  
421 -end;  
422 -  
423 -end.  
424 -