PC Toledo

Código: Selecionar todos

*******************
Function Exe_Aberto
*******************
vDIR_TEMP := GETENV("temp")
arq=vDIR_TEMP+"\aberto.txt"
if !file(arq)
   arqh=fcreate(arq,0)
   if !arqh>0
      MsgStop("Atenção !!! Erro ao Iniciar o Sistema, Favor tente Novamente !!!","Aviso do Sistema")
      quit
   endif
   txt="ABERTO"
   txt_t=fwrite(arqh,txt)
   if !txt_t=len(txt)
      MsgStop("Atenção !!! Erro ao Iniciar o Sistema, Favor tente Novamente !!!","Aviso do Sistema")
      quit
   endif
   fclose(arqh)
endi
janela2=fopen(arq,18)
if !janela2>0
   Msginfo("O Sistema Já  Esta Aberto nessa Estação !!!","Aviso do Sistema")
   quit
endi
rele arq, arqh, janela2, txt, txt_t
Return

Código: Selecionar todos

If (empty(CreateMutex(  .T., strtran(GetModuleFileName(),"\",'_') )) .or. (GetLastError() > 0 ) )
   MsgInfo("Sistema Já Aberto nessa Estação")
   __Quit()
endif

Código: Selecionar todos

IF ( hWnd := Hwg_FindWindow( oTelaPrincipal,"TITULO DA JANELA PRINCIPAL" ) ) != 0
   Hwg_SetForegroundWindow( hWnd )
   Return
ENDIF

Código: Selecionar todos

REQUEST HB_GT_WIN_DEFAULT

Function Main ()
SetMode(25,80)
If IsExeRunning( cFileNoPath( HB_ArgV( 0 ) ) )
   Alert(HB_AnsiToOem("Execuçäo interrompida !;;Programa já esta sendo executado em outra sessäo !"))
   Quit
Endif
Cls
?
? "Este um exemplo de console rodando uma vez"
Inkey(0)
Return Nil

#pragma BEGINDUMP

#include <windows.h>

HB_FUNC( ISEXERUNNING ) // ( cExeNameCaseSensitive ) --> lResult
{
   HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) hb_parc(1) );

   hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );

   ReleaseMutex( hMutex );
}

#pragma ENDDUMP

Código: Selecionar todos

if !empty(CreateMutex(.t.,nome_executavel()))
   if GetLastError() > 0
      beep()
      ALERT2("Atenção !!! O Sistema já está aberto...")  // program is already running
      quit
   endif
endif


***************************************************************************
function nome_executavel
   local C_EXE:=exename(),N_POS:=0
   N_POS:=rat("\",C_EXE)
 
   if N_POS > 0
      C_EXE:=substr(C_EXE,N_POS+1)
   endif
return (C_EXE)
 
#pragma BEGINDUMP

#include "hbapi.h"
#include <windows.h>
 
HB_FUNC( CREATEMUTEX )
{
     hb_retnl( ( ULONG ) CreateMutex( NULL, hb_parnl( 1 ), hb_parcx( 2 )
) );
 
}
 
HB_FUNC(GETLASTERROR)
{
   hb_retnl(GetLastError());
}
 
#pragma ENDDUMP

Código: Selecionar todos

FUNCTION MAIN
   IF EstaRodando()
      Alert("Sistema ja esta  rodando. Saindo...")
      QUIT
   ENDIF
   ALERT("Estou rodando")
RETURN Nil


FUNCTION EstaRodando
LOCAL aProcs:={}, lEstaRodando:=.F., nVezes:=0, cExeName
cExeName:=SubStr(HB_ArgV(0), RAT(HB_PS(), HB_ArgV(0)) + 1 )
WIN_GETPROCESSLIST( aProcs, cExeName )
AEval( aProcs, {|x| nVezes++ } )
IF nVezes > 1
   lEstaRodando:=.T.
ENDIF
RETURN lEstaRodando

#pragma ENDDUMP

    #pragma BEGINDUMP
    #include <windows.h>
    #include <windef.h>
    #include <tlhelp32.h>
    #include <hbapi.h>
    #include <hbapiitm.h>

    static
    BOOL GetUserAndDomainFromPID( DWORD ProcessId, PHB_ITEM pUser, PHB_ITEM pDomain )
    {
      HANDLE hToken;
      HANDLE ProcessHandle;
      DWORD cbBuf;
      SID_NAME_USE snu;
      char *User = NULL;
      char *Domain = NULL;
      DWORD UserSize = 0L;
      DWORD DomainSize = 0L;
      BOOL bResult = FALSE;

      ProcessHandle = OpenProcess( PROCESS_QUERY_INFORMATION, FALSE, ProcessId );

      if (ProcessHandle)
      {
        if (OpenProcessToken(ProcessHandle, TOKEN_QUERY, &hToken))
        {
          BOOL bSuccess = FALSE;
          PTOKEN_USER ptiUser;
         
          if (!GetTokenInformation(hToken, TokenUser, NULL, 0, &cbBuf ))
          {
             ptiUser  = (TOKEN_USER *) hb_xgrab( cbBuf );
             bSuccess = GetTokenInformation( hToken, TokenUser, (LPVOID) ptiUser, cbBuf, &cbBuf);
          }

          CloseHandle(hToken);

          if (bSuccess)
          {
             LookupAccountSid( NULL, ptiUser->User.Sid, NULL, &UserSize, NULL, &DomainSize, &snu);

             if (UserSize != 0 && DomainSize != 0)
             {
               User   = (char *) hb_xgrab( UserSize );
               Domain = (char *) hb_xgrab( DomainSize );

               if (LookupAccountSid( NULL, ptiUser->User.Sid, User, &UserSize,
                                      Domain, &DomainSize, &snu))
               {
                /* Result OK */
                bResult = TRUE;
               }
             }
           }

          if (ptiUser)
             hb_xfree( ptiUser );
        }
        CloseHandle(ProcessHandle);
      }

      if (!User)
          hb_itemPutC( pUser, "" );
      else
          hb_itemPutCLPtr( pUser, User, UserSize );

      if (!Domain)
          hb_itemPutC( pDomain, "" );
      else
          hb_itemPutCLPtr( pDomain, Domain, DomainSize );

      return bResult;
    }

    /*
    * WIN_GETPROCESSLIST( aArray [, <cProcessToFind> ] ) -> nResult
    * Get current process list on Windows OS. by Vailton Renato <vailtom@gmail.com>
    *
    * Returns:
    *
    *  0 - Success
    *  1 - Argument error
    *  2 - Unable to obtain current process list.
    *  3 - Error retrieving information about processes.
    *
    * 15/12/2009 - 18:58:58
    */
    HB_FUNC( WIN_GETPROCESSLIST )
    {
      HANDLE hProcessSnap;
      PROCESSENTRY32 pe32;
      PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
      const char * szAppName = hb_parcx(2);
      BOOL bCanAdd = TRUE;

       if( !pArray )
       {
          hb_retni( 1 );
          return;
       }

      // Take a snapshot of all processes in the system.
      hProcessSnap = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );

      if( hProcessSnap == INVALID_HANDLE_VALUE )
      {
        // CreateToolhelp32Snapshot (of processes)
        hb_retni( 2 );
        return;
      }

      // Set the size of the structure before using it.
      pe32.dwSize = sizeof( PROCESSENTRY32 );

      // Retrieve information about the first process,
      // and exit if unsuccessful
      if( !Process32First( hProcessSnap, &pe32 ) )
      {
        hb_retni( 3 );
        CloseHandle( hProcessSnap );          // clean the snapshot object
        return;
      }

      // Ignores a empty string on seconds argument
      if ( hb_parclen(2) < 1 )
          szAppName = NULL;

      // Now walk the snapshot of processes, and
      // display information about each process in turn
      do
      {
        PHB_ITEM pSubarray;

        if (szAppName)
          bCanAdd = ( hb_stricmp( szAppName, pe32.szExeFile ) == 0 );

        if (bCanAdd)
        {
           pSubarray = hb_itemNew( NULL );

           hb_arrayNew( pSubarray, 5 );
           hb_arraySetC    ( pSubarray, 1, pe32.szExeFile );                    // Process Name
           hb_arraySetNInt ( pSubarray, 2, pe32.th32ProcessID );                // Process ID
           hb_arraySetNInt ( pSubarray, 3, pe32.th32ParentProcessID );          // Parent process ID

           GetUserAndDomainFromPID( pe32.th32ProcessID,
                                    hb_arrayGetItemPtr( pSubarray, 4 ),         // User
                                    hb_arrayGetItemPtr( pSubarray, 5 ) );       // Domain
           hb_arrayAddForward( pArray, pSubarray );
        }
      } while( Process32Next( hProcessSnap, &pe32 ) );

      CloseHandle( hProcessSnap );
      hb_retni( 0 );
      return;
    }

    /*
    * WIN_KILLPROCESS( <nProessIDtoKill> ) -> lKilled
    * Kill a process using Win32 API. by Vailton Renato <vailtom@gmail.com>
    * 16/12/2009 - 00:08:48
    */
    HB_FUNC( WIN_KILLPROCESS )
    {
       DWORD ProcID;
       BOOL Result = FALSE;

       if (HB_ISNUM(1))
       {
          ProcID = (DWORD) hb_parnl(1);
          Result = TerminateProcess(OpenProcess( PROCESS_TERMINATE, FALSE, ProcID ),0);
       }

       hb_retl( Result );
    }

    #pragma ENDDUMP