cacic280.dpr
2.55 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
(**
---------------------------------------------------------------------------------------------------------------------------------------------------------------
Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
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
Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
---------------------------------------------------------------------------------------------------------------------------------------------------------------
*)
program cacic280;
uses
Forms,
Windows,
UsbDetectClass,
main in 'main.pas' {FormularioGeral},
frmsenha in 'frmsenha.pas' {formSenha},
frmConfiguracoes in 'frmConfiguracoes.pas' {FormConfiguracoes},
frmLog in 'frmLog.pas' {FormLog},
CACIC_Library in 'CACIC_Library.pas',
CACIC_WMI in 'CACIC_WMI.pas';
{$R *.res}
const APP_NAME = 'cacic280.exe';
var
hwind:HWND;
oCacic : TCACIC;
begin
oCacic := TCACIC.Create();
if( oCacic.isAppRunning( PChar(APP_NAME) ) )
then begin
hwind := 0;
repeat // The string 'My app' must match your App Title (below)
hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );
until (hwind<>Application.Handle);
IF (hwind<>0) then
begin
Windows.ShowWindow(hwind,SW_SHOWNORMAL);
Windows.SetForegroundWindow(hwind);
end;
FreeMemory(0);
Halt(0);
end;
oCacic.Free();
// Preventing application button showing in the task bar
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW );
Application.Initialize;
Application.Title := 'cacic280';
Application.CreateForm(TFormularioGeral, FormularioGeral);
Application.Run;
end.