Download as
Browse Code »

Commit eda4e86bdeb5eef1bc4a5200dd4d19d47cbe6d3c

Authored by anderson.peterle@previdencia.gov.br
1 parent f40c7147
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@956 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 9 changed files with 0 additions and 677 deletions   Show diff stats
cacicservice/CACICsvc.cfg
View file @f40c714
@@ -1,36 +0,0 @@ @@ -1,36 +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 --E"..\"  
35 --LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"  
36 --LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"  
cacicservice/CACICsvc.dof
View file @f40c714
@@ -1,142 +0,0 @@ @@ -1,142 +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=1  
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=1  
80 -UnsafeCode=1  
81 -UnsafeCast=1  
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;dclOfficeXP;MSICS_D7_Rtl;PJVersion;FileSecurity;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R  
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=E:\NTService\  
112 -[Version Info]  
113 -IncludeVerInfo=1  
114 -AutoIncBuild=0  
115 -MajorVer=2  
116 -MinorVer=6  
117 -Release=0  
118 -Build=2  
119 -Debug=0  
120 -PreRelease=0  
121 -Special=0  
122 -Private=0  
123 -DLL=0  
124 -Locale=11274  
125 -CodePage=1252  
126 -[Version Info Keys]  
127 -CompanyName=Dataprev - Emp. de TI da Prev Social - UDSL/SSLC  
128 -FileDescription=Sistema CACIC - Módulo para Sustentação do Agente Principal  
129 -FileVersion=2.6.0.2  
130 -InternalName=  
131 -LegalCopyright=  
132 -LegalTrademarks=  
133 -OriginalFilename=  
134 -ProductName=  
135 -ProductVersion=2.6.0.1  
136 -Comments=Licença: GNU/LGPL  
137 -[HistoryLists\hlUnitAliases]  
138 -Count=1  
139 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
140 -[HistoryLists\hlOutputDirectorry]  
141 -Count=1  
142 -Item0=..\  
cacicservice/CACICsvc.dpr
View file @f40c714
@@ -1,29 +0,0 @@ @@ -1,29 +0,0 @@
1 -(**  
2 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
3 -Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 -program CACICsvc;  
18 -  
19 -uses  
20 - SvcMgr,  
21 - CACICsvcMain in 'CACICsvcMain.pas' {CACICservice: TService},  
22 - CACIC_Library in '..\CACIC_Library.pas';  
23 -{$R *.RES}  
24 -  
25 -begin  
26 - Application.Initialize;  
27 - Application.CreateForm(TCACICservice, CACICservice);  
28 - Application.Run;  
29 -end.  
cacicservice/CACICsvc.res
View file @f40c714
No preview for this file type
cacicservice/CACICsvcMain.ddp
View file @f40c714
No preview for this file type
cacicservice/CACICsvcMain.dfm
View file @f40c714
@@ -1,20 +0,0 @@ @@ -1,20 +0,0 @@
1 -object CACICservice: TCACICservice  
2 - OldCreateOrder = False  
3 - DisplayName = 'CACICservice'  
4 - Interactive = True  
5 - AfterInstall = ServiceAfterInstall  
6 - OnExecute = ServiceExecute  
7 - OnStart = ServiceStart  
8 - OnStop = ServiceStop  
9 - Left = 192  
10 - Top = 107  
11 - Height = 375  
12 - Width = 544  
13 - object Timer_CHKsis: TTimer  
14 - Enabled = False  
15 - Interval = 60000  
16 - OnTimer = Timer_CHKsisTimer  
17 - Left = 464  
18 - Top = 16  
19 - end  
20 -end  
cacicservice/CACICsvcMain.pas
View file @f40c714
@@ -1,384 +0,0 @@ @@ -1,384 +0,0 @@
1 -(**  
2 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
3 -Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 -unit CACICsvcMain;  
18 -  
19 -interface  
20 -  
21 -uses  
22 - Windows,  
23 - Messages,  
24 - SysUtils,  
25 - Classes,  
26 - SvcMgr,  
27 - strUtils,  
28 - ExtCtrls,  
29 - CACIC_Library,  
30 - Psapi,  
31 - tlhelp32,  
32 - JwaWinNT, { As units com prefixo Jwa constam do Pacote Jedi_API22a }  
33 - JwaWinBase, { que pode ser obtido em http://sourceforge.net/projects/jedi-apilib/files/JEDI%20Windows%20API/JEDI%20API%202.2a%20and%20WSCL%200.9.2a/jedi_api22a_jwscl092a.zip/download }  
34 - JwaWtsApi32,  
35 - JwaWinSvc,  
36 - JwaWinType,  
37 - JwaNtStatus;  
38 -  
39 -var  
40 - boolStarted : boolean;  
41 - g_oCacic : TCACIC;  
42 -  
43 -//  
44 -const  
45 - SE_DEBUG_NAME = 'SeDebugPrivilege';  
46 -//  
47 -  
48 -type  
49 - TCACICservice = class(TService)  
50 - Timer_CHKsis: TTimer;  
51 - procedure ServiceExecute(Sender: TService);  
52 - procedure ServiceStart(Sender: TService; var Started: Boolean);  
53 - procedure ServiceAfterInstall(Sender: TService);  
54 - procedure Timer_CHKsisTimer(Sender: TObject);  
55 - procedure ServiceStop(Sender: TService; var Stopped: Boolean);  
56 - private  
57 -  
58 - { Internal Start & Stop methods }  
59 - function GetValorChaveRegIni(p_Secao, p_Chave, p_File : String): String;  
60 - procedure logDEBUG(Msg : String);  
61 - Procedure WMEndSession(var Msg : TWMEndSession) ; message WM_ENDSESSION;  
62 - procedure ExecutaCACIC;  
63 - function startapp : integer;  
64 - public  
65 - { Public declarations }  
66 -  
67 - function GetServiceController: TServiceController; override;  
68 - end;  
69 -  
70 -var  
71 - CACICservice: TCACICservice;  
72 -  
73 -function CreateEnvironmentBlock(var lpEnvironment: Pointer;  
74 - hToken: THandle;  
75 - bInherit: BOOL): BOOL; stdcall; external 'userenv';  
76 -function DestroyEnvironmentBlock(pEnvironment: Pointer): BOOL; stdcall; external 'userenv';  
77 -  
78 -implementation  
79 -  
80 -{$R *.DFM}  
81 -  
82 -// Solução adaptada a partir do exemplo contido em http://www.codeproject.com/KB/vista-security/VistaSessions.aspx?msg=2750630  
83 -// para execução a partir de token do WinLogon, possibilitando a exibição do ícone da aplicação na bandeja do systray em  
84 -// plataforma MS-VISTA.  
85 -function TCACICservice.startapp : integer;  
86 -var  
87 - pi : PROCESS_INFORMATION;  
88 - si : STARTUPINFO;  
89 - bresult : boolean;  
90 - dwSessionId,winlogonPid : DWORD;  
91 - hUserToken,hUserTokenDup,hPToken,hProcess,hsnap : THANDLE;  
92 - dwCreationFlags : DWORD;  
93 - procEntry : TPROCESSENTRY32;  
94 - winlogonSessId : DWORD;  
95 - tp : TOKEN_PRIVILEGES;  
96 - // luid : TLargeInteger;  
97 - abcd, abc, dup : integer;  
98 - lpenv : pointer;  
99 - iResultOfCreateProcessAsUser : integer;  
100 -  
101 -begin  
102 - Result := 0;  
103 - bresult := false;  
104 -  
105 - //TOKEN_ADJUST_SESSIONID := 256;  
106 -  
107 - // Log the client on to the local computer.  
108 -  
109 -  
110 - dwSessionId := WTSGetActiveConsoleSessionId();  
111 - hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  
112 - if (hSnap = INVALID_HANDLE_VALUE) then  
113 - begin  
114 - result := 1;  
115 - exit;  
116 - end;  
117 -  
118 - procEntry.dwSize := sizeof(TPROCESSENTRY32);  
119 -  
120 - if (not Process32First(hSnap, procEntry)) then  
121 - begin  
122 - result := 1;  
123 - exit;  
124 - end;  
125 -  
126 - repeat  
127 - if (comparetext(procEntry.szExeFile, 'winlogon.exe') = 0) then  
128 - begin  
129 - // We found a winlogon process...  
130 -  
131 - // make sure it's running in the console session  
132 -  
133 - winlogonSessId := 0;  
134 - if (ProcessIdToSessionId(procEntry.th32ProcessID, winlogonSessId) and (winlogonSessId = dwSessionId)) then  
135 - begin  
136 - winlogonPid := procEntry.th32ProcessID;  
137 - break;  
138 - end;  
139 - end;  
140 -  
141 - until (not Process32Next(hSnap, procEntry));  
142 -  
143 - ////////////////////////////////////////////////////////////////////////  
144 -  
145 - WTSQueryUserToken(dwSessionId, hUserToken);  
146 - dwCreationFlags := NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE;  
147 - ZeroMemory(@si, sizeof(STARTUPINFO));  
148 - si.cb := sizeof(STARTUPINFO);  
149 - si.lpDesktop := 'winsta0\default';  
150 - ZeroMemory(@pi, sizeof(pi));  
151 - hProcess := OpenProcess(MAXIMUM_ALLOWED,FALSE,winlogonPid);  
152 -  
153 - if(not OpenProcessToken(hProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY  
154 - or TOKEN_DUPLICATE or TOKEN_ASSIGN_PRIMARY or TOKEN_ADJUST_SESSIONID  
155 - or TOKEN_READ or TOKEN_WRITE, hPToken)) then  
156 - begin  
157 - abcd := GetLastError();  
158 - logDEBUG('Process token open Error: ' + inttostr(GetLastError()));  
159 - end;  
160 -  
161 - if (not LookupPrivilegeValue(nil,SE_DEBUG_NAME,tp.Privileges[0].Luid)) then  
162 - begin  
163 - logDEBUG('Lookup Privilege value Error: ' + inttostr(GetLastError()));  
164 - end;  
165 -  
166 - tp.PrivilegeCount := 1;  
167 - tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
168 -  
169 - DuplicateTokenEx(hPToken,MAXIMUM_ALLOWED,Nil,SecurityIdentification,TokenPrimary,hUserTokenDup);  
170 - dup := GetLastError();  
171 -  
172 - // Adjust Token privilege  
173 -  
174 - SetTokenInformation(hUserTokenDup,TokenSessionId,pointer(dwSessionId),sizeof(DWORD));  
175 -  
176 - if (not AdjustTokenPrivileges(hUserTokenDup,FALSE,@tp,sizeof(TOKEN_PRIVILEGES),nil,nil)) then  
177 - begin  
178 - abc := GetLastError();  
179 - logDEBUG('Adjust Privilege value Error: ' + inttostr(GetLastError()));  
180 - end;  
181 -  
182 - if (GetLastError() = ERROR_NOT_ALL_ASSIGNED) then  
183 - begin  
184 - logDEBUG('Token does not have the provilege');  
185 - end;  
186 -  
187 - lpEnv := nil;  
188 -  
189 - if(CreateEnvironmentBlock(lpEnv,hUserTokenDup,TRUE)) then  
190 - begin  
191 - dwCreationFlags := dwCreationFlags or CREATE_UNICODE_ENVIRONMENT;  
192 - end  
193 - else  
194 - lpEnv := nil;  
195 -  
196 - // Launch the process in the client's logon session.  
197 - bResult := CreateProcessAsUser( hUserTokenDup, // client's access token  
198 - PAnsiChar(g_oCacic.getCacicPath + 'cacic2.exe'), // file to execute  
199 - nil, // command line  
200 - nil, // pointer to process SECURITY_ATTRIBUTES  
201 - nil, // pointer to thread SECURITY_ATTRIBUTES  
202 - FALSE, // handles are not inheritable  
203 - dwCreationFlags, // creation flags  
204 - lpEnv, // pointer to new environment block  
205 - PAnsiChar(g_oCacic.getCacicPath), // name of current directory  
206 - si, // pointer to STARTUPINFO structure  
207 - pi // receives information about new process  
208 - );  
209 -  
210 - // End impersonation of client.  
211 - //GetLastError Shud be 0  
212 - iResultOfCreateProcessAsUser := GetLastError();  
213 -  
214 - //Perform All the Close Handles tasks  
215 - CloseHandle(hProcess);  
216 - CloseHandle(hUserToken);  
217 - CloseHandle(hUserTokenDup);  
218 - CloseHandle(hPToken);  
219 -end;  
220 -//  
221 -procedure TCACICservice.WMEndSession(var Msg : TWMEndSession) ;  
222 -begin  
223 - if Msg.EndSession = TRUE then  
224 - logDEBUG('Windows finalizado em ' + FormatDateTime('c', Now)) ;  
225 - inherited;  
226 - Application.Free;  
227 -end;  
228 -  
229 -// Funções Auxiliares  
230 -function TCACICservice.GetValorChaveRegIni(p_Secao, p_Chave, p_File : String): String;  
231 -//Para buscar do Arquivo INI...  
232 -// Marreta devido a limitações do KERNEL w9x no tratamento de arquivos texto e suas seções  
233 -//function GetValorChaveRegIni(p_SectionName, p_KeyName, p_IniFileName : String) : String;  
234 -var  
235 - FileText : TStringList;  
236 - i, j, v_Size_Section, v_Size_Key : integer;  
237 - v_SectionName, v_KeyName : string;  
238 - begin  
239 - logDEBUG('GetVCRini: Secao: '+p_Secao+' Chave: '+p_Chave+' File: '+p_File);  
240 - Result := '';  
241 - v_SectionName := '[' + p_Secao + ']';  
242 - v_Size_Section := strLen(PChar(v_SectionName));  
243 - v_KeyName := p_Chave + '=';  
244 - v_Size_Key := strLen(PChar(v_KeyName));  
245 - FileText := TStringList.Create;  
246 - try  
247 - FileText.LoadFromFile(p_File);  
248 - For i := 0 To FileText.Count - 1 Do  
249 - Begin  
250 - if (LowerCase(Trim(PChar(Copy(FileText[i],1,v_Size_Section)))) = LowerCase(Trim(PChar(v_SectionName)))) then  
251 - Begin  
252 - For j := i to FileText.Count - 1 Do  
253 - Begin  
254 - if (LowerCase(Trim(PChar(Copy(FileText[j],1,v_Size_Key)))) = LowerCase(Trim(PChar(v_KeyName)))) then  
255 - Begin  
256 - Result := PChar(Copy(FileText[j],v_Size_Key + 1,strLen(PChar(FileText[j]))-v_Size_Key));  
257 - Break;  
258 - End;  
259 - End;  
260 - End;  
261 - if (Result <> '') then break;  
262 - End;  
263 - finally  
264 - FileText.Free;  
265 - end;  
266 - end;  
267 -  
268 -procedure TCACICservice.logDEBUG(Msg : String);  
269 -var fLog: textfile;  
270 -begin  
271 - // Somente gravarei informações para debug se o arquivo "<HomeDrive>:\CACICsvc.log" existir  
272 - if FileExists(g_oCacic.Windows.getHomeDrive + g_oCacic.Windows.getWinDir + 'CACICsvc.log') then  
273 - Begin  
274 - AssignFile(fLog, g_oCacic.Windows.getHomeDrive + g_oCacic.Windows.getWinDir + 'CACICsvc.log');  
275 - if FileExists(g_oCacic.Windows.getHomeDrive + g_oCacic.Windows.getWinDir + 'CACICsvc.log') then  
276 - Append(fLog)  
277 - else  
278 - Rewrite(fLog);  
279 - Writeln(fLog,FormatDateTime('dd/mm hh:nn:ss ', Now) + '[CACICsvc][DEBUG] : ' +msg);  
280 - CloseFile(fLog);  
281 - End;  
282 -End;  
283 -  
284 -procedure ServiceController(CtrlCode: DWord); stdcall;  
285 -begin  
286 - CACICservice.Controller(CtrlCode);  
287 -end;  
288 -  
289 -function TCACICservice.GetServiceController: TServiceController;  
290 -begin  
291 - Result := ServiceController;  
292 -end;  
293 -  
294 -procedure TCACICservice.ServiceExecute(Sender: TService);  
295 -begin  
296 - { Loop while service is active in SCM }  
297 - While NOT Terminated do  
298 - Begin  
299 - { Process Service Requests }  
300 - ServiceThread.ProcessRequests( False );  
301 - { Allow system some time }  
302 - Sleep(1);  
303 - End;  
304 -end;  
305 -  
306 -procedure TCACICservice.ServiceStart(Sender: TService; var Started: Boolean);  
307 -begin  
308 -  
309 - g_oCacic := TCACIC.Create;  
310 - g_oCacic.setCacicPath(GetValorChaveRegIni('Cacic2', 'cacic_dir', g_oCacic.getWinDir + 'chksis.ini'));  
311 - CACICservice.logDEBUG('TCACICservice.ExecutaCACIC : setCacicPath => '+GetValorChaveRegIni('Cacic2', 'cacic_dir', g_oCacic.getWinDir + 'chksis.ini'));  
312 -  
313 - CACICservice.logDEBUG('TCACICservice.ServiceStart');  
314 - Started := true;  
315 -  
316 - ExecutaCACIC;  
317 -  
318 - Timer_CHKsis.Interval := 60000;  
319 - Timer_CHKsis.Enabled := true;  
320 -  
321 - While not Terminated do  
322 - Sleep(250);  
323 -end;  
324 -  
325 -procedure TCACICservice.ExecutaCACIC;  
326 -Begin  
327 - CACICservice.logDEBUG('TCACICservice.ExecutaCACIC : deleteFile => '+g_oCacic.getCacicPath + 'aguarde_CACIC.txt');  
328 - DeleteFile(PAnsiChar(g_oCacic.getCacicPath + 'aguarde_CACIC.txt'));  
329 - Sleep(3000);  
330 -  
331 - // Se o arquivo indicador de execução não existir...  
332 - if not (FileExists(g_oCacic.getCacicPath + 'aguarde_CACIC.txt')) then  
333 - Begin  
334 - // Executo o CHKsis, verificando a estrutura do sistema  
335 - Try  
336 - CACICservice.logDEBUG('TCACICservice.ExecutaCACIC : createSampleProcess => '+g_oCacic.getWinDir + 'chksis.exe');  
337 - g_oCacic.createSampleProcess(g_oCacic.getWinDir + 'chksis.exe',false,SW_HIDE);  
338 - Except  
339 - End;  
340 -  
341 - While not (FileExists(g_oCacic.getCacicPath + 'cacic2.exe')) do  
342 - Sleep(5000); // Espero 5 segundos...  
343 -  
344 - // Executo o Agente Principal do CACIC  
345 - Try  
346 - // Execução diferenciada para >= VISTA devido ao impedimento de escrita na Notification Area imposta a processos/serviços.  
347 - if (g_oCacic.isWindowsGEVista) then  
348 - Begin  
349 - CACICservice.logDEBUG('TCACICservice.ExecutaCACIC invocando CACICservice.startapp para execução de "'+g_oCacic.getCacicPath + 'cacic2.exe'+'"');  
350 - CACICservice.startapp;  
351 - End  
352 - else  
353 - Begin  
354 - CACICservice.logDEBUG('TCACICservice.ExecutaCACIC : createSampleProcess => '+g_oCacic.getCacicPath + 'cacic2.exe');  
355 - g_oCacic.createSampleProcess(g_oCacic.getCacicPath + 'cacic2.exe',false,SW_NORMAL);  
356 - End;  
357 - Except  
358 - End;  
359 - End;  
360 -End;  
361 -  
362 -procedure TCACICservice.ServiceAfterInstall(Sender: TService);  
363 -begin  
364 - ServiceStart(nil,boolStarted);  
365 - CACICservice.logDEBUG('TCACICservice.ServiceAfterInstall');  
366 -end;  
367 -  
368 -procedure TCACICservice.Timer_CHKsisTimer(Sender: TObject);  
369 -begin  
370 - CACICservice.logDEBUG('TCACICservice.Timer_CHKsisTimer');  
371 - ExecutaCACIC;  
372 -  
373 - // Verificações diversas  
374 -  
375 -end;  
376 -  
377 -procedure TCACICservice.ServiceStop(Sender: TService;  
378 - var Stopped: Boolean);  
379 -begin  
380 - CACICservice.logDEBUG('TCACICservice.ServiceStop');  
381 - Stopped := true;  
382 -end;  
383 -  
384 -end.  
cacicservice/CACICsvcThread.pas
View file @f40c714
@@ -1,66 +0,0 @@ @@ -1,66 +0,0 @@
1 -(*  
2 - A Windows NT Service Thread  
3 - ===========================  
4 -  
5 - Author Kim Sandell  
6 - Email: kim.sandell@nsftele.com  
7 -*)  
8 -unit CACICsvcThread;  
9 -  
10 -interface  
11 -  
12 -uses  
13 - Windows, Messages, SysUtils, Classes;  
14 -  
15 -  
16 -type  
17 - TNTServiceThread = Class(TThread)  
18 - private  
19 - { Private declarations }  
20 - Public  
21 - { Public declarations }  
22 - Interval : Integer;  
23 -  
24 - Procedure Execute; Override;  
25 - Published  
26 - { Published declarations }  
27 - End;  
28 -  
29 -implementation  
30 -  
31 -{ TNTServiceThread }  
32 -  
33 -procedure TNTServiceThread.Execute;  
34 -var TimeOut : integer;  
35 -begin  
36 - // Do NOT free on termination - The Serivce frees the Thread  
37 - FreeOnTerminate := False;  
38 -  
39 - // Set Interval  
40 - TimeOut := Interval * 4;  
41 -  
42 - // Main Loop  
43 - Try  
44 - While Not Terminated do  
45 - Begin  
46 - // Decrement timeout  
47 - Dec( TimeOut );  
48 -  
49 - If (TimeOut=0) then  
50 - Begin  
51 - // Reset timer  
52 - TimeOut := Interval * 4;  
53 -  
54 - End;  
55 - // Wait 1/4th of a second  
56 - Sleep(250);  
57 - End;  
58 - Except  
59 - On E:Exception do ; // TODO: Exception logging...  
60 - End;  
61 - // Terminate the Thread - This signals Terminated=True  
62 - Terminate;  
63 -  
64 -end;  
65 -  
66 -end.  
cacicservice/cacic_service_32x32.ico
View file @f40c714
No preview for this file type