From c8c932b72890d863e15a06cd5e4805251562fd77 Mon Sep 17 00:00:00 2001 From: Eric Menezes Noronha Date: Wed, 2 Apr 2014 10:43:50 -0300 Subject: [PATCH] Atualizado para "mapacacic" apenas. --- MapaTesteProj/MapaCACICteste.dpr | 41 ----------------------------------------- 1 file changed, 0 insertions(+), 41 deletions(-) delete mode 100644 MapaTesteProj/MapaCACICteste.dpr diff --git a/MapaTesteProj/MapaCACICteste.dpr b/MapaTesteProj/MapaCACICteste.dpr deleted file mode 100644 index 4868773..0000000 --- a/MapaTesteProj/MapaCACICteste.dpr +++ /dev/null @@ -1,41 +0,0 @@ -program MapaCACICteste; - -uses - Forms, - Windows, - MapaTeste in 'MapaTeste.pas' {frmMapaCacic}, - AcessoMapaTeste in 'AcessoMapaTeste.pas' {frmAcesso}, - CACIC_Comm in '..\CACIC_Comm.pas', - CACIC_Library in '..\CACIC_Library.pas'; - -{$R *.res} - -const APP_NAME = 'MapaCacicteste.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.CreateForm(TfrmMapaCacic, frmMapaCacic); - Application.Run; - end; - oCacic.Free(); -end. -- libgit2 0.21.2