From 561a3849e5ed08f0520719927af671d2f42263ad Mon Sep 17 00:00:00 2001 From: ericnoronha Date: Fri, 27 Dec 2013 19:31:10 +0000 Subject: [PATCH] Retirado "AcessoMapaTeste", devido à inutilização. --- MapaTesteProj/MapaCACICpgfn.dpr | 41 +++++++++++++++++++++++++++++++++++++++++ MapaTesteProj/MapaCACICpgfn.dproj | 40 ++++++++++++++++++++++++++++++++++++++++ MapaTesteProj/MapaCACICpgfn.res | Bin 0 -> 3232 bytes MapaTesteProj/MapaTeste.dcu | Bin 26832 -> 0 bytes MapaTesteProj/MapaTeste.pas | 1 - 5 files changed, 81 insertions(+), 1 deletion(-) create mode 100644 MapaTesteProj/MapaCACICpgfn.dpr create mode 100644 MapaTesteProj/MapaCACICpgfn.dproj create mode 100644 MapaTesteProj/MapaCACICpgfn.res diff --git a/MapaTesteProj/MapaCACICpgfn.dpr b/MapaTesteProj/MapaCACICpgfn.dpr new file mode 100644 index 0000000..49f103f --- /dev/null +++ b/MapaTesteProj/MapaCACICpgfn.dpr @@ -0,0 +1,41 @@ +program MapaCACICpgfn; + +uses + Forms, + Windows, + MapaTeste in 'MapaTeste.pas' {frmMapaCacic}, + CACIC_Comm in '..\CACIC_Comm.pas', + CACIC_Library in '..\CACIC_Library.pas'; + +{$R *.res} + +const APP_NAME = 'MapaCACICpgfn.exe'; + +var hwind:HWND; + oCacic : TCACIC; + +begin + oCacic := TCACIC.Create(); + + if( oCacic.isAppRunning( 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); + end + else + begin + Application.Initialize; + Application.Title := 'MapaCACICpgfn'; + Application.CreateForm(TfrmMapaCacic, frmMapaCacic); + Application.Run; + end; + oCacic.Free(); +end. diff --git a/MapaTesteProj/MapaCACICpgfn.dproj b/MapaTesteProj/MapaCACICpgfn.dproj new file mode 100644 index 0000000..00382f3 --- /dev/null +++ b/MapaTesteProj/MapaCACICpgfn.dproj @@ -0,0 +1,40 @@ + + + {4f42d5b9-4185-4233-9988-97f71c5d98fc} + Debug + AnyCPU + DCC32 + ..\..\Agentes_Windows_BINARIOS\MapaCACICpgfn.exe + MapaCACICpgfn.dpr + + + 7.0 + False + False + 0 + RELEASE + + + 7.0 + DEBUG + C:\devel\cacic\Agentes_Windows_BINARIOS + + + Delphi.Personality + + +FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse104612521.0.0.01.0.0.0MapaCACICpgfn.dpr + + + + + MainSource + + + + + +
frmMapaCacic
+
+
+
\ No newline at end of file diff --git a/MapaTesteProj/MapaCACICpgfn.res b/MapaTesteProj/MapaCACICpgfn.res new file mode 100644 index 0000000..1e0edbd Binary files /dev/null and b/MapaTesteProj/MapaCACICpgfn.res differ diff --git a/MapaTesteProj/MapaTeste.dcu b/MapaTesteProj/MapaTeste.dcu index d0f01ca..0fd5f67 100644 Binary files a/MapaTesteProj/MapaTeste.dcu and b/MapaTesteProj/MapaTeste.dcu differ diff --git a/MapaTesteProj/MapaTeste.pas b/MapaTesteProj/MapaTeste.pas index 05f1b15..e179938 100644 --- a/MapaTesteProj/MapaTeste.pas +++ b/MapaTesteProj/MapaTeste.pas @@ -35,7 +35,6 @@ uses ComCtrls, Commctrl, ShellAPI, - AcessoMapaTeste, Types, IdIPWatch, Registry, -- libgit2 0.21.2