Windows LiveWindows Live™
 
 
Carlos's profileLIBs Gráfica para (x)Har...BlogListsNetwork Tools Help

Blog
    1/31/2008

    Retornando o Nome do executável


    Como conseqüência do post anterior, um leitor me sugeriu que poderia ser interessante, saber o nome do Executável em questão, para deixar a função mais automática, fiz algumas pesquisas nos fóruns (x)Harbour e das Libs gráficas e cheguei a seguinte função.

    Obrigado a todos, que responderam os meus questionamentos  nos foruns e listas, em especial ao Ivanil Marcelino da lista PlanetaHarbour, e a Paola Bruccoleri da lista ooHg, pois unindo a resposta tive êxito na minha pesquisa.
     

    #include "oohg.ch"

    Function main()

      Msginfo( NomeExecutavel() )

      Msginfo( NomeExecutavel(.T.) )

    Return


    *******************************************************************************
    * Funcao.....:   NomeExecutavel( lPath )
    * Proposito..:   Devolver o nome do executálvel
    * Parametros.:   lPath = .T.  retorna Caminho + Executavel
    *                Sem parametros retorna só o Executável
    * Retorna....:   Nome EXEcutavel com ou sem o caminho
    * Observacao.:
    *------------------------------------------------------------------------------*
    Function NomeExecutavel(lPath)
    *------------------------------------------------------------------------------*
      LOCAL nPos, cRet

      If Empty(lpath)
         nPos:= RAT("\", hb_argv(0))
         cRet:= substr(hb_argv(0), nPos+1)
      else
         cRet:= hb_argv(0)
      endif

    Return cRet


    Carlos Alberto Nunes Susviela

    12:56 PM | Add a comment | Permalink | Blog it | Programando Lib - ooHG
    1/22/2008

    Pegando data e a hora do EXE - DateTimeFile(sFile)

    Essa semana rolou na lista uma discussão para saber a data e a hora de um executável, isso seria de grande valia para a atualização dos programas. Fiz algumas pesquisar e cheguei a essa função:  DateTimeFile(sFile)


    #include "oohg.ch"

    Function main()
       set date fren
       set cent on

      msginfo( DateTimeFile("Contabil.exe" ) )

    Return


    * Retorna uma string contendo a data e a hora
    * do arquivo passado como parametro
    * Ex. DateTimeFile("contabil.exe")
    * Formato de retorno:  aaaammddhh:mm:ss
    *
    Func DateTimeFile(sFile)
    Return DToS(Directory(sFile)[1,3]) + Directory(sFile)[1,4]


    Carlos Susviela



    12:57 PM | Add a comment | Permalink | Blog it | Programando Lib - ooHG
    1/12/2008

    Voltando... Nova versão

    Pessoal, após uns dias de descanso, estou voltando a publicar no nosso Blog.

    Tenho centenas de emails, do grupo, para ler, e para minha felicidade, nosso grupo já conta com mais de 300 inscritos, o que demonstra que estamos no caminho certo, fazendo um bom trabalho, e colhendo os frutos.

    Obrigado a equipe oohg, o trabalho de vocês é brilhante.

    E como é de tradicional, no mês de janeiro também saiu uma versão da nossa Lib.

    Você pode fazer download, pelo link:
    http://sourceforge.net/project/showfiles.php?group_id=144525&package_id=158938&release_id=566976

    Uma dica:
    A menos que, você coloque arquivos pessoais dentro da pasta C:\oohg,  você pode fazer o seguinte:
         1) Renomeie a pasta c:\oohg para c:\oohg_old  
         2) Instale a nova versão no local padrão  c:\oohg

    Dessa forma você pode testar a nova versão, e, em caso de algum problema, o que é muito difícil de acontecer, é possível voltar para a versão anterior.
    Sempre faço assim, e nunca tive problemas.

    Um abraço, e um bom ano de 2008 a todos os leitores.

    Carlos Alberto Nunes Susviela




    1:01 PM | Add a comment | Permalink | Blog it | Programando Lib - ooHG