Commit 561a3849e5ed08f0520719927af671d2f42263ad
1 parent
17238842
Exists in
master
Retirado "AcessoMapaTeste", devido à inutilização.
git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@1592 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing
5 changed files
with
81 additions
and
1 deletions
Show diff stats
| ... | ... | @@ -0,0 +1,41 @@ |
| 1 | +program MapaCACICpgfn; | |
| 2 | + | |
| 3 | +uses | |
| 4 | + Forms, | |
| 5 | + Windows, | |
| 6 | + MapaTeste in 'MapaTeste.pas' {frmMapaCacic}, | |
| 7 | + CACIC_Comm in '..\CACIC_Comm.pas', | |
| 8 | + CACIC_Library in '..\CACIC_Library.pas'; | |
| 9 | + | |
| 10 | +{$R *.res} | |
| 11 | + | |
| 12 | +const APP_NAME = 'MapaCACICpgfn.exe'; | |
| 13 | + | |
| 14 | +var hwind:HWND; | |
| 15 | + oCacic : TCACIC; | |
| 16 | + | |
| 17 | +begin | |
| 18 | + oCacic := TCACIC.Create(); | |
| 19 | + | |
| 20 | + if( oCacic.isAppRunning( APP_NAME ) ) | |
| 21 | + then begin | |
| 22 | + hwind := 0; | |
| 23 | + repeat // The string 'My app' must match your App Title (below) | |
| 24 | + hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME ); | |
| 25 | + until (hwind<>Application.Handle); | |
| 26 | + IF (hwind<>0) then | |
| 27 | + begin | |
| 28 | + Windows.ShowWindow(hwind,SW_SHOWNORMAL); | |
| 29 | + Windows.SetForegroundWindow(hwind); | |
| 30 | + end; | |
| 31 | + FreeMemory(0); | |
| 32 | + end | |
| 33 | + else | |
| 34 | + begin | |
| 35 | + Application.Initialize; | |
| 36 | + Application.Title := 'MapaCACICpgfn'; | |
| 37 | + Application.CreateForm(TfrmMapaCacic, frmMapaCacic); | |
| 38 | + Application.Run; | |
| 39 | + end; | |
| 40 | + oCacic.Free(); | |
| 41 | +end. | ... | ... |
| ... | ... | @@ -0,0 +1,40 @@ |
| 1 | +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> | |
| 2 | + <PropertyGroup> | |
| 3 | + <ProjectGuid>{4f42d5b9-4185-4233-9988-97f71c5d98fc}</ProjectGuid> | |
| 4 | + <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> | |
| 5 | + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> | |
| 6 | + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> | |
| 7 | + <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\MapaCACICpgfn.exe</DCC_DependencyCheckOutputName> | |
| 8 | + <MainSource>MapaCACICpgfn.dpr</MainSource> | |
| 9 | + </PropertyGroup> | |
| 10 | + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> | |
| 11 | + <Version>7.0</Version> | |
| 12 | + <DCC_DebugInformation>False</DCC_DebugInformation> | |
| 13 | + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> | |
| 14 | + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> | |
| 15 | + <DCC_Define>RELEASE</DCC_Define> | |
| 16 | + </PropertyGroup> | |
| 17 | + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> | |
| 18 | + <Version>7.0</Version> | |
| 19 | + <DCC_Define>DEBUG</DCC_Define> | |
| 20 | + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput> | |
| 21 | + </PropertyGroup> | |
| 22 | + <ProjectExtensions> | |
| 23 | + <Borland.Personality>Delphi.Personality</Borland.Personality> | |
| 24 | + <Borland.ProjectType /> | |
| 25 | + <BorlandProject> | |
| 26 | +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MapaCACICpgfn.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> | |
| 27 | + </ProjectExtensions> | |
| 28 | + <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> | |
| 29 | + <ItemGroup> | |
| 30 | + <DelphiCompile Include="MapaCACICpgfn.dpr"> | |
| 31 | + <MainSource>MainSource</MainSource> | |
| 32 | + </DelphiCompile> | |
| 33 | + <DCCReference Include="..\CACIC_Comm.pas" /> | |
| 34 | + <DCCReference Include="..\CACIC_Library.pa" /> | |
| 35 | + <DCCReference Include="..\CACIC_Library.pas" /> | |
| 36 | + <DCCReference Include="MapaTeste.pas"> | |
| 37 | + <Form>frmMapaCacic</Form> | |
| 38 | + </DCCReference> | |
| 39 | + </ItemGroup> | |
| 40 | +</Project> | |
| 0 | 41 | \ No newline at end of file | ... | ... |
No preview for this file type
MapaTesteProj/MapaTeste.dcu
No preview for this file type