Download as
Browse Code »

Commit 4859335a1810533259cc92abd5a23e908bc2f3d7

Authored by pedroricardo
1 parent a2a4aedd
Exists in master

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windo… 

…ws@1573 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 8 changed files with 133 additions and 132 deletions   Show diff stats
mapacacic/MapaCACIC.dpr
View file @a2a4aed
... ... @@ -1,58 +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 MapaCacic;
19   -
20   -uses
21   - Forms,
22   - Windows,
23   - uMainMapa in 'uMainMapa.pas' {frmMapaCacic},
24   - uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso},
25   - CACIC_Library in '..\CACIC_Library.pas',
26   - CACIC_Comm in '..\CACIC_Comm.pas';
27   -
28   -{$R *.res}
29   -
30   -const APP_NAME = 'MapaCacic.exe';
31   -
32   -var hwind:HWND;
33   - oCacic : TCACIC;
34   -
35   -begin
36   - oCacic := TCACIC.Create();
37   -
38   - if( oCacic.isAppRunning( APP_NAME ) )
39   - then begin
40   - hwind := 0;
41   - repeat // The string 'My app' must match your App Title (below)
42   - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );
43   - until (hwind<>Application.Handle);
44   - IF (hwind<>0) then
45   - begin
46   - Windows.ShowWindow(hwind,SW_SHOWNORMAL);
47   - Windows.SetForegroundWindow(hwind);
48   - end;
49   - FreeMemory(0);
50   - end
51   - else
52   - begin
53   - Application.Initialize;
54   - Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
55   - Application.Run;
56   - end;
57   - oCacic.Free();
58   -end.
mapacacic/MapaCACIC.dproj
View file @a2a4aed
... ... @@ -1,53 +0,0 @@
1   -<?xml version="1.0" encoding="utf-8"?>
2   -<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
3   - <PropertyGroup>
4   - <ProjectGuid>{bd12cdd9-2bb5-4ae7-9da9-8d9f09bab843}</ProjectGuid>
5   - <MainSource>MapaCACIC.dpr</MainSource>
6   - <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
7   - <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
8   - <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
9   - <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\MapaCACIC.exe</DCC_DependencyCheckOutputName>
10   - </PropertyGroup>
11   - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
12   - <Version>7.0</Version>
13   - <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
14   - <DCC_DebugInformation>False</DCC_DebugInformation>
15   - <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
16   - <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
17   - <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
18   - <DCC_Define>DEBUG</DCC_Define>
19   - </PropertyGroup>
20   - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
21   - <Version>7.0</Version>
22   - <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
23   - <DCC_DebugInformation>False</DCC_DebugInformation>
24   - <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
25   - <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
26   - <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
27   - <DCC_UnitSearchPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_UnitSearchPath>
28   - <DCC_ResourcePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ResourcePath>
29   - <DCC_ObjPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ObjPath>
30   - <DCC_IncludePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_IncludePath>
31   - <DCC_Define>DEBUG</DCC_Define>
32   - </PropertyGroup>
33   - <ProjectExtensions>
34   - <Borland.Personality>Delphi.Personality</Borland.Personality>
35   - <Borland.ProjectType>VCLApplication</Borland.ProjectType>
36   - <BorlandProject>
37   -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">1331</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.1331</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">MapaCACIC</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MapaCACIC.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
38   - </ProjectExtensions>
39   - <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
40   - <ItemGroup>
41   - <DelphiCompile Include="MapaCACIC.dpr">
42   - <MainSource>MainSource</MainSource>
43   - </DelphiCompile>
44   - <DCCReference Include="..\CACIC_Comm.pas" />
45   - <DCCReference Include="..\CACIC_Library.pas" />
46   - <DCCReference Include="uAcessoMapa.pas">
47   - <Form>frmAcesso</Form>
48   - </DCCReference>
49   - <DCCReference Include="uMainMapa.pas">
50   - <Form>frmMapaCacic</Form>
51   - </DCCReference>
52   - </ItemGroup>
53   -</Project>
54 0 \ No newline at end of file
mapacacic/MapaCACIC.res
View file @a2a4aed
No preview for this file type
mapacacic/MapaCACICl.dpr 0 → 100644
  Diff comments   View file @4859335
... ... @@ -0,0 +1,58 @@
  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 MapaCACICl;
  19 +
  20 +uses
  21 + Forms,
  22 + Windows,
  23 + uMainMapa in 'uMainMapa.pas' {frmMapaCacic},
  24 + uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso},
  25 + CACIC_Library in '..\CACIC_Library.pas',
  26 + CACIC_Comm in '..\CACIC_Comm.pas';
  27 +
  28 +{$R *.res}
  29 +
  30 +const APP_NAME = 'MapaCacic.exe';
  31 +
  32 +var hwind:HWND;
  33 + oCacic : TCACIC;
  34 +
  35 +begin
  36 + oCacic := TCACIC.Create();
  37 +
  38 + if( oCacic.isAppRunning( APP_NAME ) )
  39 + then begin
  40 + hwind := 0;
  41 + repeat // The string 'My app' must match your App Title (below)
  42 + hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );
  43 + until (hwind<>Application.Handle);
  44 + IF (hwind<>0) then
  45 + begin
  46 + Windows.ShowWindow(hwind,SW_SHOWNORMAL);
  47 + Windows.SetForegroundWindow(hwind);
  48 + end;
  49 + FreeMemory(0);
  50 + end
  51 + else
  52 + begin
  53 + Application.Initialize;
  54 + Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
  55 + Application.Run;
  56 + end;
  57 + oCacic.Free();
  58 +end.
... ...
mapacacic/MapaCACICl.dproj 0 → 100644
  Diff comments   View file @4859335
... ... @@ -0,0 +1,53 @@
  1 +<?xml version="1.0" encoding="utf-8"?>
  2 +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  3 + <PropertyGroup>
  4 + <ProjectGuid>{bd12cdd9-2bb5-4ae7-9da9-8d9f09bab843}</ProjectGuid>
  5 + <MainSource>MapaCACICl.dpr</MainSource>
  6 + <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
  7 + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
  8 + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
  9 + <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\MapaCACICl.exe</DCC_DependencyCheckOutputName>
  10 + </PropertyGroup>
  11 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
  12 + <Version>7.0</Version>
  13 + <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
  14 + <DCC_DebugInformation>False</DCC_DebugInformation>
  15 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  16 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  17 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  18 + <DCC_Define>DEBUG</DCC_Define>
  19 + </PropertyGroup>
  20 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
  21 + <Version>7.0</Version>
  22 + <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
  23 + <DCC_DebugInformation>False</DCC_DebugInformation>
  24 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  25 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  26 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  27 + <DCC_UnitSearchPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_UnitSearchPath>
  28 + <DCC_ResourcePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ResourcePath>
  29 + <DCC_ObjPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ObjPath>
  30 + <DCC_IncludePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_IncludePath>
  31 + <DCC_Define>DEBUG</DCC_Define>
  32 + </PropertyGroup>
  33 + <ProjectExtensions>
  34 + <Borland.Personality>Delphi.Personality</Borland.Personality>
  35 + <Borland.ProjectType>VCLApplication</Borland.ProjectType>
  36 + <BorlandProject>
  37 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">1331</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.1331</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">MapaCACIC</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MapaCACICl.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  38 + </ProjectExtensions>
  39 + <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  40 + <ItemGroup>
  41 + <DelphiCompile Include="MapaCACICl.dpr">
  42 + <MainSource>MainSource</MainSource>
  43 + </DelphiCompile>
  44 + <DCCReference Include="..\CACIC_Comm.pas" />
  45 + <DCCReference Include="..\CACIC_Library.pas" />
  46 + <DCCReference Include="uAcessoMapa.pas">
  47 + <Form>frmAcesso</Form>
  48 + </DCCReference>
  49 + <DCCReference Include="uMainMapa.pas">
  50 + <Form>frmMapaCacic</Form>
  51 + </DCCReference>
  52 + </ItemGroup>
  53 +</Project>
0 54 \ No newline at end of file
... ...
mapacacic/MapaCACICl.res 0 → 100644
View file @4859335
No preview for this file type
mapacacic/uMainMapa.dfm
  Diff comments   View file @4859335
1 1 object frmMapaCacic: TfrmMapaCacic
2 2 Left = 494
3 3 Top = 200
4   - Width = 1109
5   - Height = 579
6 4 BorderIcons = [biSystemMenu]
7 5 Caption =
8 6 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' +
9 7 's'
  8 + ClientHeight = 545
  9 + ClientWidth = 1101
10 10 Color = clBtnFace
11 11 Font.Charset = DEFAULT_CHARSET
12 12 Font.Color = clWindowText
... ... @@ -262,7 +262,7 @@ object frmMapaCacic: TfrmMapaCacic
262 262 Left = 3
263 263 Top = 170
264 264 Width = 48
265   - Height = 14
  265 + Height = 13
266 266 Caption = 'Etiqueta 3'
267 267 Font.Charset = DEFAULT_CHARSET
268 268 Font.Color = clWindowText
... ... @@ -586,6 +586,21 @@ object frmMapaCacic: TfrmMapaCacic
586 586 Visible = False
587 587 OnClick = AtualizaPatrimonio
588 588 end
  589 + object pnVersao: TPanel
  590 + Left = 674
  591 + Top = 514
  592 + Width = 105
  593 + Height = 20
  594 + BevelInner = bvLowered
  595 + Caption = 'Vers'#227'o'
  596 + Font.Charset = DEFAULT_CHARSET
  597 + Font.Color = clWindowText
  598 + Font.Height = -11
  599 + Font.Name = 'MS Sans Serif'
  600 + Font.Style = [fsBold]
  601 + ParentFont = False
  602 + TabOrder = 3
  603 + end
589 604 object pnMessageBox: TPanel
590 605 Left = 0
591 606 Top = 133
... ... @@ -599,7 +614,7 @@ object frmMapaCacic: TfrmMapaCacic
599 614 Font.Name = 'Arial'
600 615 Font.Style = []
601 616 ParentFont = False
602   - TabOrder = 3
  617 + TabOrder = 4
603 618 Visible = False
604 619 object lbMensagens: TLabel
605 620 Left = 2
... ... @@ -616,23 +631,9 @@ object frmMapaCacic: TfrmMapaCacic
616 631 Font.Style = []
617 632 ParentFont = False
618 633 Layout = tlCenter
  634 + ExplicitTop = -2
619 635 end
620 636 end
621   - object pnVersao: TPanel
622   - Left = 674
623   - Top = 514
624   - Width = 105
625   - Height = 20
626   - BevelInner = bvLowered
627   - Caption = 'Vers'#227'o'
628   - Font.Charset = DEFAULT_CHARSET
629   - Font.Color = clWindowText
630   - Font.Height = -11
631   - Font.Name = 'MS Sans Serif'
632   - Font.Style = [fsBold]
633   - ParentFont = False
634   - TabOrder = 4
635   - end
636 637 object timerMessageShowTime: TTimer
637 638 Enabled = False
638 639 Interval = 0
... ...
mapacacic/uMainMapa.pas
  Diff comments   View file @4859335
... ... @@ -72,8 +72,6 @@ type
72 72 edTeInfoPatrimonio4: TEdit;
73 73 edTeInfoPatrimonio5: TEdit;
74 74 edTeInfoPatrimonio6: TEdit;
75   - pnMessageBox: TPanel;
76   - lbMensagens: TLabel;
77 75 lbEtiqueta1a: TLabel;
78 76 cbIdUnidOrganizacionalNivel1a: TComboBox;
79 77 pnDivisoria01: TPanel;
... ... @@ -83,6 +81,8 @@ type
83 81 btCombosUpdate: TButton;
84 82 timerMessageShowTime: TTimer;
85 83 timerMessageBoxShowOrHide: TTimer;
  84 + pnMessageBox: TPanel;
  85 + lbMensagens: TLabel;
86 86  
87 87 procedure AtualizaPatrimonio(Sender: TObject);
88 88 procedure mapa;
... ...