Download as
Browse Code »

Commit 2b432a4584d98dc809ae6904b9e0a099466e25ae

Authored by anderson.peterle@previdencia.gov.br
1 parent e32a719b
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@962 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 6 changed files with 0 additions and 1177 deletions   Show diff stats
col_moni/ShellLinker.pas
View file @e32a719
... ... @@ -1,76 +0,0 @@
1   -unit ShellLinker;
2   -
3   -interface
4   -uses ActiveX, Windows, ShlObj;
5   -
6   -//uses
7   -// Windows, ShlObj;
8   -//uses
9   -// SysUtils, ComObj, ActiveX, ShellApi, Classes, Menus;
10   -
11   -type
12   - TShowState = (ssNormal, ssMinimized, ssMaximized, ssHide);
13   -
14   - TLinkInfo = record
15   - Target: String; // Path to link target file - empty for virtual folders
16   - ClsID: PItemIDList; // Absolute CLSID (PIDL) of target
17   - WorkDir: String; // Working directory - empty for virtual folders
18   - Parameters: String; // Parameters sent to path - empty for virtual folders
19   - Description: String; // Description of link
20   - IconPath: String; // File containing icon - often same as Target
21   - IconIndex: Integer; // Index of icon in the icon file
22   - HotKey: Word; // HotKey (like Alt+Shift+F) - numeric
23   - ShowState: TShowState; // Normal, minimized, or maximized
24   - end;
25   -
26   - TLinkHotKey = record
27   - Modifiers: Word;
28   - Key: Word;
29   - end;
30   -function CreateShellLink(FileName, Target, Description, StartIn, Parameters,
31   - IconPath: String; IconIndex: Integer; HotKey: Word; ShowState: TShowState;
32   - ItemIDList: PItemIDList): Boolean;
33   -
34   -
35   -implementation
36   -
37   -function ShowStateToCmdShow(ShowState: TShowState): Integer;
38   -begin
39   - case ShowState of
40   - ssMinimized: Result := SW_SHOWMINNOACTIVE;
41   - ssMaximized: Result := SW_SHOWMAXIMIZED;
42   - ssHide: Result := SW_HIDE;
43   - else
44   - Result := SW_SHOWNORMAL;
45   - end;
46   -end;
47   -
48   -function CreateShellLink(FileName, Target, Description, StartIn, Parameters,
49   - IconPath: String; IconIndex: Integer; HotKey: Word; ShowState: TShowState;
50   - ItemIDList: PItemIDList): Boolean;
51   -var
52   - sl: IShellLink;
53   - ppf: IPersistFile;
54   - wcLinkName: array[0..MAX_PATH] of WideChar;
55   -begin
56   - CoInitialize(nil); // Initialize COM
57   - CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLinkA, sl);
58   - sl.QueryInterface(IPersistFile, ppf);
59   - sl.SetPath(PChar(Target));
60   - if ItemIDList <> nil then
61   - sl.SetIDList(ItemIDList);
62   - sl.SetDescription(PChar(Description));
63   - sl.SetWorkingDirectory(PChar(StartIn));
64   - sl.SetArguments(PChar(Parameters));
65   - sl.SetIconLocation(PChar(IconPath), IconIndex);
66   - if HotKey <> 0 then
67   - sl.SetHotkey(HotKey);
68   - sl.SetShowCmd(ShowStateToCmdShow(ShowState));
69   - // Save shell link
70   - MultiByteToWideChar(CP_ACP, 0, PChar(FileName), -1, wcLinkName, MAX_PATH);
71   - Result := (ppf.Save(wcLinkName, true) = S_OK);
72   - CoUninitialize;
73   -end;
74   -
75   -end.
76   -
col_moni/col_moni.cfg
View file @e32a719
... ... @@ -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_moni/col_moni.dof
View file @e32a719
... ... @@ -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=1046
125   -CodePage=1252
126   -[Version Info Keys]
127   -CompanyName=Dataprev - Emp. de TI da Prev.Social - URES
128   -FileDescription=Coletor de Informações de Sistemas Monitorados do pelo CACIC
129   -FileVersion=2.5.0.773
130   -InternalName=
131   -LegalCopyright=
132   -LegalTrademarks=
133   -OriginalFilename=
134   -ProductName=Col_MONI
135   -ProductVersion=2.6
136   -Comments=Baseado na licença GPL (General Public License)
col_moni/col_moni.dpr
View file @e32a719
... ... @@ -1,927 +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_moni;
19   -{$R *.res}
20   -
21   -uses
22   - Windows,
23   - sysutils,
24   - inifiles,
25   - Registry,
26   - Classes,
27   - PJVersionInfo,
28   - CACIC_Library in '..\CACIC_Library.pas';
29   -
30   -var
31   - v_Res_Search,
32   - v_Drive,
33   - v_File,
34   - v_strCipherClosed : String;
35   - PJVersionInfo1 : TPJVersionInfo;
36   -
37   -var
38   - v_Debugs : boolean;
39   -
40   -var
41   - v_tstrCipherOpened,
42   - v_tstrCipherOpened1,
43   - tstrTripa1 : TStrings;
44   -
45   -var
46   - intAux : integer;
47   -
48   -var
49   - g_oCacic : TCACIC;
50   -
51   -const
52   - CACIC_APP_NAME = 'col_moni';
53   -
54   -procedure GetSubDirs(Folder:string; sList:TStringList);
55   - var
56   - sr:TSearchRec;
57   -begin
58   - if FindFirst(Folder+'*.*',faDirectory,sr)=0 then
59   - try
60   - repeat
61   - if(sr.Attr and faDirectory)=faDirectory then
62   - sList.Add(sr.Name);
63   - until FindNext(sr)<>0;
64   - finally
65   - FindClose(sr);
66   - end;
67   -end;
68   -//Para buscar do Arquivo INI...
69   -// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções
70   -function GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;
71   -var
72   - FileText : TStringList;
73   - i, j, v_Size_Section, v_Size_Key : integer;
74   - v_SectionName, v_KeyName : string;
75   - begin
76   - Result := '';
77   - v_SectionName := '[' + p_SectionName + ']';
78   - v_Size_Section := strLen(PChar(v_SectionName));
79   - v_KeyName := p_KeyName + '=';
80   - v_Size_Key := strLen(PChar(v_KeyName));
81   - FileText := TStringList.Create;
82   - try
83   - FileText.LoadFromFile(p_IniFileName);
84   - For i := 0 To FileText.Count - 1 Do
85   - Begin
86   - if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then
87   - Begin
88   - For j := i to FileText.Count - 1 Do
89   - Begin
90   - if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then
91   - Begin
92   - Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key));
93   - Break;
94   - End;
95   - End;
96   - End;
97   - if (Result <> '') then break;
98   - End;
99   - finally
100   - FileText.Free;
101   - end;
102   - end;
103   -
104   -function VerFmt(const MS, LS: DWORD): string;
105   - // Format the version number from the given DWORDs containing the info
106   -begin
107   - Result := Format('%d.%d.%d.%d',
108   - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)])
109   -end;
110   -procedure log_diario(strMsg : String);
111   -var
112   - HistoricoLog : TextFile;
113   - strDataArqLocal, strDataAtual : string;
114   -begin
115   - try
116   - FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
117   - AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
118   - {$IOChecks off}
119   - Reset(HistoricoLog); {Abre o arquivo texto}
120   - {$IOChecks on}
121   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
122   - begin
123   - Rewrite (HistoricoLog);
124   - Append(HistoricoLog);
125   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
126   - end;
127   - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
128   - DateTimeToString(strDataAtual , 'yyyymmdd', Date);
129   - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
130   - begin
131   - Rewrite (HistoricoLog); //Cria/Recria o arquivo
132   - Append(HistoricoLog);
133   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
134   - end;
135   - Append(HistoricoLog);
136   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now)+ '[Coletor MONI] '+strMsg); {Grava a string Texto no arquivo texto}
137   - CloseFile(HistoricoLog); {Fecha o arquivo texto}
138   - except
139   - log_diario('Erro na gravação do log!');
140   - end;
141   -end;
142   -
143   -function GetVersionInfo(p_File: string):string;
144   -var v_versao : string;
145   -begin
146   - PJVersionInfo1 := TPJVersionInfo.Create(nil);
147   - PJVersionInfo1.FileName := p_File;
148   - v_versao := VerFmt(PJVersionInfo1.FixedFileInfo.dwFileVersionMS, PJVersionInfo1.FixedFileInfo.dwFileVersionLS);
149   - PJVersionInfo1.Free;
150   - Result := v_versao;
151   -end;
152   -
153   -// Baixada de http://www.infoeng.hpg.ig.com.br/borland_delphi_dicas_2.htm
154   -function LetrasDrives: string;
155   -var
156   -Drives: DWord;
157   -I, Tipo: byte;
158   -v_Unidade : string;
159   -begin
160   -Result := '';
161   -Drives := GetLogicalDrives;
162   -if Drives <> 0 then
163   -for I := 65 to 90 do
164   - if ((Drives shl (31 - (I - 65))) shr 31) = 1 then
165   - Begin
166   - v_Unidade := Char(I) + ':\';
167   - Tipo := GetDriveType(PChar(v_Unidade));
168   - case Tipo of
169   - DRIVE_FIXED: Result := Result + Char(I);
170   - end;
171   - End;
172   -end;
173   -
174   -// By Muad Dib 2003
175   -// at http://www.planet-source-code.com.
176   -// Excelente!!!
177   -function SearchFile(p_Drive,p_File:string) : boolean;
178   -var sr:TSearchRec;
179   - sDirList:TStringList;
180   - i:integer;
181   -begin
182   - Result := false;
183   - v_Res_Search := '';
184   - if FindFirst(p_Drive+p_File,faAnyFile,sr) = 0 then
185   - Begin
186   - v_Res_Search := p_Drive+p_File;
187   - Result := true;
188   - End
189   - else
190   - Begin
191   - repeat
192   - until FindNext(sr)<>0;
193   - FindClose(sr);
194   - sDirList:= TStringList.Create;
195   - try
196   - GetSubDirs(p_Drive,sDirList);
197   - for i:=0 to sDirList.Count-1 do
198   - if (sDirList[i]<>'.') and (sDirList[i]<>'..') then
199   - begin
200   - //Application.ProcessMessages;
201   - if (SearchFile(IncludeTrailingPathDelimiter(p_Drive+sDirList[i]),p_File)) then
202   - Begin
203   - Result := true;
204   - Break;
205   - End;
206   - end;
207   - finally
208   - sDirList.Free;
209   - End;
210   - end;
211   -end;
212   -
213   -Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
214   -var v_strCipherOpenImploded : string;
215   - v_DatFile : TextFile;
216   -begin
217   - try
218   - FileSetAttr (p_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
219   - AssignFile(v_DatFile,p_DatFileName); {Associa o arquivo a uma variável do tipo TextFile}
220   -
221   - // Criação do arquivo .DAT
222   - Rewrite (v_DatFile);
223   - Append(v_DatFile);
224   -
225   - v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
226   - v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
227   -
228   - Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
229   -
230   - CloseFile(v_DatFile);
231   - except
232   - end;
233   -end;
234   -
235   -Function CipherOpen(p_DatFileName : string) : TStrings;
236   -var v_DatFile : TextFile;
237   - v_strCipherOpened,
238   - v_strCipherClosed : string;
239   -begin
240   - v_strCipherOpened := '';
241   - if FileExists(p_DatFileName) then
242   - begin
243   - AssignFile(v_DatFile,p_DatFileName);
244   - {$IOChecks off}
245   - Reset(v_DatFile);
246   - {$IOChecks on}
247   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
248   - begin
249   - Rewrite (v_DatFile);
250   - Append(v_DatFile);
251   - end;
252   -
253   - Readln(v_DatFile,v_strCipherClosed);
254   - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
255   - CloseFile(v_DatFile);
256   - v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
257   - end;
258   - if (trim(v_strCipherOpened)<>'') then
259   - Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
260   - else
261   - 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);
262   -
263   - if Result.Count mod 2 <> 0 then
264   - Result.Add('');
265   -end;
266   -
267   -Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings);
268   -begin
269   - // Exemplo: p_Chave => Configs.nu_ip_servidor : p_Valor => 10.71.0.120
270   - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
271   - p_tstrCipherOpened[v_tstrCipherOpened.IndexOf(p_Chave)+1] := p_Valor
272   - else
273   - Begin
274   - p_tstrCipherOpened.Add(p_Chave);
275   - p_tstrCipherOpened.Add(p_Valor);
276   - End;
277   -end;
278   -procedure log_DEBUG(p_msg:string);
279   -Begin
280   - if v_Debugs then log_diario('(v.'+getVersionInfo(ParamStr(0))+') DEBUG - '+p_msg);
281   -End;
282   -
283   -Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
284   -begin
285   - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
286   - Result := p_tstrCipherOpened[p_tstrCipherOpened.IndexOf(p_Chave)+1]
287   - else
288   - Result := '';
289   -end;
290   -
291   -function GetRootKey(strRootKey: String): HKEY;
292   -begin
293   - if Trim(strRootKey) = 'HKEY_LOCAL_MACHINE' Then Result := HKEY_LOCAL_MACHINE
294   - else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT' Then Result := HKEY_CLASSES_ROOT
295   - else if Trim(strRootKey) = 'HKEY_CURRENT_USER' Then Result := HKEY_CURRENT_USER
296   - else if Trim(strRootKey) = 'HKEY_USERS' Then Result := HKEY_USERS
297   - else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG' Then Result := HKEY_CURRENT_CONFIG
298   - else if Trim(strRootKey) = 'HKEY_DYN_DATA' Then Result := HKEY_DYN_DATA;
299   -end;
300   -
301   -Function RemoveCaracteresEspeciais(Texto : String) : String;
302   -var I : Integer;
303   - strAux : String;
304   -Begin
305   - For I := 0 To Length(Texto) Do
306   - if ord(Texto[I]) in [32..126] Then
307   - strAux := strAux + Texto[I]
308   - else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais
309   - Result := strAux;
310   -end;
311   -
312   -function GetValorChaveRegEdit(Chave: String): Variant;
313   -var RegEditGet: TRegistry;
314   - RegDataType: TRegDataType;
315   - strRootKey, strKey, strValue, s: String;
316   - ListaAuxGet : TStrings;
317   - DataSize, Len, I : Integer;
318   -begin
319   - try
320   - Result := '';
321   - ListaAuxGet := g_oCacic.explode(Chave, '\');
322   -
323   - strRootKey := ListaAuxGet[0];
324   - For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
325   - strValue := ListaAuxGet[ListaAuxGet.Count - 1];
326   - if (strValue = '(Padrão)') then strValue := ''; //Para os casos de se querer buscar o valor default (Padrão)
327   - RegEditGet := TRegistry.Create;
328   -
329   - RegEditGet.Access := KEY_READ;
330   - RegEditGet.Rootkey := GetRootKey(strRootKey);
331   - if RegEditGet.OpenKeyReadOnly(strKey) then //teste
332   - Begin
333   - RegDataType := RegEditGet.GetDataType(strValue);
334   - if (RegDataType = rdString) or (RegDataType = rdExpandString) then Result := RegEditGet.ReadString(strValue)
335   - else if RegDataType = rdInteger then Result := RegEditGet.ReadInteger(strValue)
336   - else if (RegDataType = rdBinary) or (RegDataType = rdUnknown)
337   - then
338   - begin
339   - DataSize := RegEditGet.GetDataSize(strValue);
340   - if DataSize = -1 then exit;
341   - SetLength(s, DataSize);
342   - Len := RegEditGet.ReadBinaryData(strValue, PChar(s)^, DataSize);
343   - if Len <> DataSize then exit;
344   - Result := RemoveCaracteresEspeciais(s);
345   - end
346   - end;
347   - finally
348   - RegEditGet.CloseKey;
349   - RegEditGet.Free;
350   - ListaAuxGet.Free;
351   -
352   - end;
353   -end;
354   -
355   -function LastPos(SubStr, S: string): Integer;
356   -var
357   - Found, Len, Pos: integer;
358   -begin
359   - Pos := Length(S);
360   - Len := Length(SubStr);
361   - Found := 0;
362   - while (Pos > 0) and (Found = 0) do
363   - begin
364   - if Copy(S, Pos, Len) = SubStr then
365   - Found := Pos;
366   - Dec(Pos);
367   - end;
368   - LastPos := Found;
369   -end;
370   -
371   -
372   -procedure Executa_Col_moni;
373   -var tstrTripa2, tstrTripa3, v_array1, v_array2, v_array3, v_array4 : TStrings;
374   - strAux, strAux1, strAux3, strAux4, strTripa, ValorChavePerfis, UVC, v_LetrasDrives, v_Data : String;
375   - intAux4, v1, v3, v_achei : Integer;
376   -
377   -begin
378   - Try
379   - SetValorDatMemoria('Col_Moni.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
380   - // Verifica se deverá ser realizada a coleta de informações de sistemas monitorados neste
381   - // computador, perguntando ao agente gerente.
382   - log_diario('Coletando informações de Sistemas Monitorados.');
383   - ShortDateFormat := 'dd/mm/yyyy';
384   - intAux4 := 1;
385   - strAux3 := '';
386   - ValorChavePerfis := '*';
387   - v_LetrasDrives := LetrasDrives;
388   -
389   - while ValorChavePerfis <> '' do
390   - begin
391   - strAux3 := 'SIS' + trim(inttostr(intAux4));
392   - strTripa := ''; // Conterá as informações a serem enviadas ao Gerente.
393   - // Obtenho do registro o valor que foi previamente armazenado
394   - ValorChavePerfis := Trim(GetValorDatMemoria('Coletas.'+strAux3,v_tstrCipherOpened));
395   -
396   - if (ValorChavePerfis <> '') then
397   - Begin
398   - //Atenção, OS ELEMENTOS DEVEM ESTAR DE ACORDO COM A ORDEM QUE SÃO TRATADOS NO MÓDULO GERENTE.
399   - tstrTripa2 := g_oCacic.explode(ValorChavePerfis,',');
400   - if (strAux <> '') then strAux := strAux + '#';
401   - strAux := strAux + trim(tstrTripa2[0]) + ',';
402   -
403   -
404   - ///////////////////////////////////////////
405   - ///// Coleta de Informação de Licença /////
406   - ///////////////////////////////////////////
407   -
408   - //Vazio
409   - if (trim(tstrTripa2[2])='0') then
410   - Begin
411   - strAux := strAux + ',';
412   - End;
413   -
414   - //Caminho\Chave\Valor em Registry
415   - if (trim(tstrTripa2[2])='1') then
416   - Begin
417   - strAux4 := '';
418   - log_debug('Buscando informação de LICENÇA em '+tstrTripa2[3]);
419   - Try
420   - strAux4 := Trim(GetValorChaveRegEdit(trim(tstrTripa2[3])));
421   - Except
422   - End;
423   - if (strAux4 = '') then strAux4 := '?';
424   - strAux := strAux + strAux4 + ',';
425   - End;
426   -
427   - //Nome/Seção/Chave de Arquivo INI
428   - if (trim(tstrTripa2[2])='2') then
429   - Begin
430   - log_debug('Buscando informação de LICENÇA em '+tstrTripa2[3]);
431   - Try
432   - if (LastPos('/',trim(tstrTripa2[3]))>0) then
433   - Begin
434   - tstrTripa3 := g_oCacic.explode(trim(tstrTripa2[3]),'/');
435   - //
436   - for v1:=1 to length(v_LetrasDrives) do
437   - Begin
438   - v_File := trim(tstrTripa3[0]);
439   - if (LastPos(':\',v_File)>0) then
440   - Begin
441   - v_Drive := Copy(v_File,1,3);
442   - v_File := Copy(v_File,4,Length(v_File));
443   - End
444   - else
445   - Begin
446   - v_Drive := v_LetrasDrives[v1] + ':';
447   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
448   - v_File := Copy(v_File,1,Length(v_File));
449   - End;
450   -
451   - strAux1 := ExtractShortPathName(v_Drive + v_File);
452   - if (strAux1 = '') then
453   - begin
454   - if (SearchFile(v_Drive,v_File)) then
455   - Begin
456   - strAux1 := v_Res_Search;
457   - break;
458   - End;
459   - end
460   - else break;
461   - End;
462   -
463   - strAux4 := Trim(GetValorChaveRegIni(tstrTripa3[1],tstrTripa3[2],strAux1));
464   - if (strAux4 = '') then strAux4 := '?';
465   - strAux := strAux + strAux4 + ',';
466   - End;
467   -
468   - if (LastPos('/',trim(tstrTripa2[3]))=0) then
469   - Begin
470   - strAux := strAux + 'Parâm.Lic.Incorreto,';
471   - End
472   - Except
473   - strAux := strAux + 'Parâm.Lic.Incorreto,';
474   - End;
475   - End;
476   -
477   -
478   -
479   - //////////////////////////////////////////////
480   - ///// Coleta de Informação de Instalação /////
481   - //////////////////////////////////////////////
482   -
483   - //Vazio
484   - if (trim(tstrTripa2[5])='0') then
485   - Begin
486   - strAux := strAux + ',';
487   - End;
488   -
489   - //Nome de Executável OU Nome de Arquivo de Configuração (CADPF!!!)
490   - if (trim(tstrTripa2[5])='1') or (trim(tstrTripa2[5]) = '2') then
491   - Begin
492   - strAux1 := '';
493   - for v1:=1 to length(v_LetrasDrives) do
494   - Begin
495   - v_File := trim(tstrTripa2[6]);
496   - log_debug('Buscando informação de INSTALAÇÃO em '+tstrTripa2[6]);
497   - if (LastPos(':\',v_File)>0) then
498   - Begin
499   - v_Drive := Copy(v_File,1,3);
500   - v_File := Copy(v_File,4,Length(v_File));
501   - End
502   - else
503   - Begin
504   - v_Drive := v_LetrasDrives[v1] + ':';
505   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
506   - v_File := Copy(v_File,1,Length(v_File));
507   - End;
508   -
509   - strAux1 := ExtractShortPathName(v_Drive + v_File);
510   - if (strAux1 = '') then
511   - begin
512   - if (SearchFile(v_Drive,v_File)) then
513   - Begin
514   - strAux1 := v_Res_Search;
515   - break;
516   - End;
517   - end
518   - else break;
519   -
520   - End;
521   -
522   - if (strAux1 <> '') then strAux := strAux + 'S,';
523   - if (strAux1 = '') then strAux := strAux + 'N,';
524   - strAux1 := '';
525   - End;
526   -
527   - //Caminho\Chave\Valor em Registry
528   - if (trim(tstrTripa2[5])='3') then
529   - Begin
530   - strAux1 := '';
531   - Try
532   - log_debug('Buscando informação de INSTALAÇÃO em '+tstrTripa2[6]);
533   - strAux1 := Trim(GetValorChaveRegEdit(trim(tstrTripa2[6])));
534   - Except
535   - End;
536   - if (strAux1 <> '') then strAux := strAux + 'S,';
537   - if (strAux1 = '') then strAux := strAux + 'N,';
538   - strAux1 := '';
539   - End;
540   -
541   -
542   -
543   - //////////////////////////////////////////
544   - ///// Coleta de Informação de Versão /////
545   - //////////////////////////////////////////
546   -
547   - //Vazio
548   - if (trim(tstrTripa2[7])='0') then
549   - Begin
550   - strAux := strAux + ',';
551   - End;
552   -
553   - //Data de Arquivo
554   - if (trim(tstrTripa2[7])='1') then
555   - Begin
556   - strAux1 := '';
557   - log_debug('Buscando informação de VERSÃO em '+tstrTripa2[8]);
558   - for v1:=1 to length(v_LetrasDrives) do
559   - Begin
560   - v_File := trim(tstrTripa2[8]);
561   - if (LastPos(':\',v_File)>0) then
562   - Begin
563   - v_Drive := Copy(v_File,1,3);
564   - v_File := Copy(v_File,4,Length(v_File));
565   - End
566   - else
567   - Begin
568   - v_Drive := v_LetrasDrives[v1] + ':';
569   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
570   - v_File := Copy(v_File,1,Length(v_File));
571   - End;
572   -
573   - strAux1 := ExtractShortPathName(v_Drive + v_File);
574   - if (strAux1 = '') then
575   - begin
576   - if (SearchFile(v_Drive,v_File)) then
577   - Begin
578   - strAux1 := v_Res_Search;
579   - break;
580   - End;
581   - end
582   - else break;
583   - End;
584   -
585   - if (strAux1 <> '') then
586   - Begin
587   - v_Data := StringReplace(DateToStr(FileDateToDateTime(FileAge(strAux1))),'.','/',[rfReplaceAll]);
588   - v_Data := StringReplace(v_Data,'-','/',[rfReplaceAll]);
589   - strAux := strAux + v_Data + ',';
590   - v_Data := '';
591   - End;
592   -
593   - if (strAux1 = '') then strAux := strAux + '?,';
594   - strAux1 := '';
595   - End;
596   -
597   - //Caminho\Chave\Valor em Registry
598   - if (trim(tstrTripa2[7])='2') then
599   - Begin
600   - strAux1 := '';
601   - log_debug('Buscando informação de VERSÃO em '+tstrTripa2[8]);
602   - Try
603   - strAux1 := Trim(GetValorChaveRegEdit(trim(tstrTripa2[8])));
604   - Except
605   - End;
606   - if (strAux1 <> '') then strAux := strAux + strAux1 + ',';
607   - if (strAux1 = '') then strAux := strAux + '?,';
608   - strAux1 := '';
609   - End;
610   -
611   -
612   - //Nome/Seção/Chave de Arquivo INI
613   - if (trim(tstrTripa2[7])='3') then
614   - Begin
615   - Try
616   - log_debug('Buscando informação de VERSÃO em '+tstrTripa2[8]);
617   - if (LastPos('/',trim(tstrTripa2[8]))>0) then
618   - Begin
619   - tstrTripa3 := g_oCacic.explode(trim(tstrTripa2[8]),'/');
620   - //
621   - for v1:=1 to length(v_LetrasDrives) do
622   - Begin
623   - v_File := trim(tstrTripa3[0]);
624   - if (LastPos(':\',v_File)>0) then
625   - Begin
626   - v_Drive := Copy(v_File,1,3);
627   - v_File := Copy(v_File,4,Length(v_File));
628   - End
629   - else
630   - Begin
631   - v_Drive := v_LetrasDrives[v1] + ':';
632   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
633   - v_File := Copy(v_File,1,Length(v_File));
634   - End;
635   -
636   - strAux1 := ExtractShortPathName(v_Drive + v_File);
637   - if (strAux1 = '') then
638   - begin
639   - if (SearchFile(v_Drive,v_File)) then
640   - Begin
641   - strAux1 := v_Res_Search;
642   - break;
643   - End;
644   - end
645   - else break;
646   - End;
647   -
648   - //
649   - strAux4 := Trim(GetValorChaveRegIni(tstrTripa3[1],tstrTripa3[2],strAux1));
650   - if (strAux4 = '') then strAux4 := '?';
651   - strAux := strAux + strAux4 + ',';
652   - End
653   - else
654   - Begin
655   - strAux := strAux + 'Parâm.Versao Incorreto,';
656   - End;
657   - Except
658   - End;
659   - End;
660   -
661   -
662   - //Versão de Executável
663   - if (trim(tstrTripa2[7])='4') then
664   - Begin
665   - log_debug('Buscando informação de VERSÃO em '+tstrTripa2[8]);
666   - Try
667   - v_achei := 0;
668   - for v1:=1 to length(v_LetrasDrives) do
669   - Begin
670   - if v_achei = 0 then
671   - Begin
672   - v_File := trim(tstrTripa2[8]);
673   - if (LastPos(':\',v_File)>0) then
674   - Begin
675   - v_Drive := Copy(v_File,1,3);
676   - v_File := Copy(v_File,4,Length(v_File));
677   - End
678   - else
679   - Begin
680   - v_Drive := v_LetrasDrives[v1] + ':';
681   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
682   - v_File := Copy(v_File,1,Length(v_File));
683   - End;
684   -
685   - strAux1 := ExtractShortPathName(v_Drive + v_File);
686   - if (strAux1 = '') then
687   - begin
688   - if (SearchFile(v_Drive,v_File)) then
689   - Begin
690   - strAux1 := v_Res_Search;
691   - v_achei := 1;
692   - End;
693   - end
694   - else v_achei := 1;
695   - End;
696   - End;
697   - Except
698   - End;
699   -
700   - if (strAux1 <> '') then
701   - Begin
702   - strAux := strAux + getVersionInfo(strAux1);
703   - End
704   - else strAux := strAux + '?';
705   -
706   - strAux := strAux + ',';
707   -
708   - End;
709   -
710   -
711   - //////////////////////////////////////////
712   - ///// Coleta de Informação de Engine /////
713   - //////////////////////////////////////////
714   -
715   - //Vazio
716   - if (trim(tstrTripa2[9])='.') then
717   - Begin
718   - strAux := strAux + ',';
719   - End;
720   -
721   - //Arquivo para Versão de Engine
722   - //O ponto é proposital para quando o último parâmetro vem vazio do Gerente!!! :)
723   - if (trim(tstrTripa2[9])<>'.') then
724   - Begin
725   - log_debug('Buscando informação de ENGINE em '+tstrTripa2[9]);
726   - for v1:=1 to length(v_LetrasDrives) do
727   - Begin
728   - v_File := trim(tstrTripa2[9]);
729   - if (LastPos(':\',v_File)>0) then
730   - Begin
731   - v_Drive := Copy(v_File,1,3);
732   - v_File := Copy(v_File,4,Length(v_File));
733   - End
734   - else
735   - Begin
736   - v_Drive := v_LetrasDrives[v1] + ':';
737   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
738   - v_File := Copy(v_File,1,Length(v_File));
739   - End;
740   -
741   - strAux1 := ExtractShortPathName(v_Drive + v_File);
742   - if (strAux1 = '') then
743   - begin
744   - if (SearchFile(v_Drive,v_File)) then
745   - Begin
746   - strAux1 := v_Res_Search;
747   - break;
748   - End;
749   - end
750   - else break;
751   - End;
752   - if (strAux1 <> '') then
753   - Begin
754   - tstrTripa3 := g_oCacic.explode(getVersionInfo(strAux1), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640.
755   - strAux := strAux + tstrTripa3[0] + '.' + tstrTripa3[1];
756   - End;
757   - End;
758   -
759   -
760   - ///////////////////////////////////////////
761   - ///// Coleta de Informação de Pattern /////
762   - ///////////////////////////////////////////
763   -
764   - //Arquivo para Versão de Pattern
765   - //O ponto é proposital para quando o último parâmetro vem vazio do Gerente!!! :)
766   - strAux1 := '';
767   - if (trim(tstrTripa2[10])<>'.') then
768   - Begin
769   - log_debug('Buscando informação de PATTERN em '+tstrTripa2[9]);
770   - for v1:=1 to length(v_LetrasDrives) do
771   - Begin
772   - v_File := trim(tstrTripa2[10]);
773   - if (LastPos(':\',v_File)>0) then
774   - Begin
775   - v_Drive := Copy(v_File,1,3);
776   - v_File := Copy(v_File,4,Length(v_File));
777   - End
778   - else
779   - Begin
780   - v_Drive := v_LetrasDrives[v1] + ':';
781   - if (Copy(v_File,1,1)<>'\') then v_Drive := v_Drive + '\';
782   - v_File := Copy(v_File,1,Length(v_File));
783   - End;
784   -
785   - strAux1 := ExtractShortPathName(v_Drive + v_File);
786   - if (strAux1 = '') then
787   - begin
788   - if (SearchFile(v_Drive, v_File)) then
789   - Begin
790   - strAux1 := v_Res_Search;
791   - break;
792   - End;
793   - end
794   - else break;
795   -
796   - End;
797   - End;
798   - if (strAux1 <> '') then
799   - Begin
800   - tstrTripa3 := g_oCacic.explode(getVersionInfo(strAux1), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640.
801   - strAux := strAux + tstrTripa3[0] + '.' + tstrTripa3[1];
802   - End;
803   - if (strAux1 = '') then strAux := strAux + ',';
804   - strAux1 := '';
805   - End;
806   - intAux4 := intAux4 + 1;
807   - End;
808   -
809   - UVC := Trim(GetValorDatMemoria('Coletas.Sistemas_Monitorados',v_tstrCipherOpened));
810   -
811   - SetValorDatMemoria('Col_Moni.Fim' , FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
812   -
813   - If (GetValorDatMemoria('Configs.IN_COLETA_FORCADA_MONI',v_tstrCipherOpened)='S') or (trim(strAux) <> trim(UVC)) Then
814   - Begin
815   - if (trim(UVC) <> '') then
816   - begin
817   - v_array1 := g_oCacic.explode(strAux, '#');
818   - strAux := '';
819   - v_array3 := g_oCacic.explode(UVC, '#');
820   - for v1 := 0 to (v_array1.count)-1 do
821   - Begin
822   - v_array2 := g_oCacic.explode(v_array1[v1], ',');
823   - v_achei := 0;
824   - for v3 := 0 to (v_array3.count)-1 do
825   - Begin
826   - v_array4 := g_oCacic.explode(v_array3[v3], ',');
827   - if (v_array4=v_array2) then v_achei := 1;
828   - End;
829   - if (v_achei = 0) then
830   - Begin
831   - if (strAUX <> '') then strAUX := strAUX + '#';
832   - strAUX := strAUX + v_array1[v1];
833   - End;
834   - End;
835   - end;
836   - log_debug('Coleta anterior: '+UVC);
837   - log_debug('Coleta atual...: '+strAux);
838   - SetValorDatMemoria('Col_Moni.UVC', strAux, v_tstrCipherOpened1);
839   - CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
840   - end
841   - else
842   - Begin
843   - log_debug('Nenhuma Coleta Efetuada');
844   - SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
845   - CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
846   - End;
847   -
848   - Except
849   - Begin
850   - SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
851   - SetValorDatMemoria('Col_Moni.Fim', '99999999', v_tstrCipherOpened1);
852   - CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
853   - End;
854   - End;
855   -END;
856   -
857   -function GetFolderDate(Folder: string): TDateTime;
858   -var
859   - Rec: TSearchRec;
860   - Found: Integer;
861   - Date: TDateTime;
862   -begin
863   - if Folder[Length(folder)] = '\' then
864   - Delete(Folder, Length(folder), 1);
865   - Result := 0;
866   - Found := FindFirst(Folder, faDirectory, Rec);
867   - try
868   - if Found = 0 then
869   - begin
870   - Date := FileDateToDateTime(Rec.Time);
871   - Result := Date;
872   - end;
873   - finally
874   - FindClose(Rec);
875   - end;
876   -end;
877   -
878   -var strAux : String;
879   -begin
880   - g_oCacic := TCACIC.Create();
881   -
882   - g_oCacic.setBoolCipher(true);
883   -
884   - if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
885   - if (ParamCount>0) then
886   - Begin
887   - strAux := '';
888   - For intAux := 1 to ParamCount do
889   - Begin
890   - if LowerCase(Copy(ParamStr(intAux),1,11)) = '/cacicpath=' then
891   - begin
892   - strAux := Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux)))));
893   - log_DEBUG('Parâmetro /CacicPath recebido com valor="'+strAux+'"');
894   - end;
895   - end;
896   -
897   - if (strAux <> '') then
898   - Begin
899   - g_oCacic.setCacicPath(strAux);
900   - v_Debugs := false;
901   - if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
902   - Begin
903   - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
904   - Begin
905   - v_Debugs := true;
906   - log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
907   - End;
908   - End;
909   -
910   - v_tstrCipherOpened := TStrings.Create;
911   - v_tstrCipherOpened := CipherOpen(g_oCacic.getCacicPath + g_oCacic.getDatFileName);
912   -
913   - v_tstrCipherOpened1 := TStrings.Create;
914   - v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_moni.dat');
915   -
916   - Try
917   - Executa_Col_moni;
918   - Except
919   - SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
920   - CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
921   - End;
922   - End;
923   - End;
924   -
925   - g_oCacic.Free();
926   -
927   -end.
col_moni/col_moni.res
View file @e32a719
No preview for this file type
col_moni/col_moni_icon.ico
View file @e32a719
No preview for this file type