Commit c8c932b72890d863e15a06cd5e4805251562fd77
1 parent
9706ee10
Exists in
master
Atualizado para "mapacacic" apenas.
Showing
1 changed file
with
0 additions
and
41 deletions
Show diff stats
MapaTesteProj/MapaCACICteste.dpr
| ... | ... | @@ -1,41 +0,0 @@ |
| 1 | -program MapaCACICteste; | |
| 2 | - | |
| 3 | -uses | |
| 4 | - Forms, | |
| 5 | - Windows, | |
| 6 | - MapaTeste in 'MapaTeste.pas' {frmMapaCacic}, | |
| 7 | - AcessoMapaTeste in 'AcessoMapaTeste.pas' {frmAcesso}, | |
| 8 | - CACIC_Comm in '..\CACIC_Comm.pas', | |
| 9 | - CACIC_Library in '..\CACIC_Library.pas'; | |
| 10 | - | |
| 11 | -{$R *.res} | |
| 12 | - | |
| 13 | -const APP_NAME = 'MapaCacicteste.exe'; | |
| 14 | - | |
| 15 | -var hwind:HWND; | |
| 16 | - oCacic : TCACIC; | |
| 17 | - | |
| 18 | -begin | |
| 19 | - oCacic := TCACIC.Create(); | |
| 20 | - | |
| 21 | - if( oCacic.isAppRunning( APP_NAME ) ) | |
| 22 | - then begin | |
| 23 | - hwind := 0; | |
| 24 | - repeat // The string 'My app' must match your App Title (below) | |
| 25 | - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME ); | |
| 26 | - until (hwind<>Application.Handle); | |
| 27 | - IF (hwind<>0) then | |
| 28 | - begin | |
| 29 | - Windows.ShowWindow(hwind,SW_SHOWNORMAL); | |
| 30 | - Windows.SetForegroundWindow(hwind); | |
| 31 | - end; | |
| 32 | - FreeMemory(0); | |
| 33 | - end | |
| 34 | - else | |
| 35 | - begin | |
| 36 | - Application.Initialize; | |
| 37 | - Application.CreateForm(TfrmMapaCacic, frmMapaCacic); | |
| 38 | - Application.Run; | |
| 39 | - end; | |
| 40 | - oCacic.Free(); | |
| 41 | -end. |