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,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. |