Audreyfet

Gilmer,
Tem algumas mensagens estranha na Nota fiscal eletronica, post de MarilynHes e Steventeed.
Se for algo normal me desculpe. Se aqui não for o lugar adequado para postar, por favor apague este post.

Amiguinhos,

Para rodar aplicativos como administrador a mesma precisa estar configurada no registro e descobri uma chave no registro que faz isto.

Portanto saquei a informação e posto aqui para que testem e vejam se funciona.

O conteúdo do arquivo .REG que pode ser executado via Prompt de comando é:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"C:\\PASTA\\SISTEMA.EXE"="RUNASADMIN"
[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\PASTA]
"sistema.exe"="RUNASADMIN"


Onde sistema é o nome de seu aplicativo e pasta é o nome da pasta que esta o mesmo.

Pensando em automatizar criei uma função em meu sistema(Fivewin), que pode ser implementada por todos, na linguagem preferida.

Função RunASS:

FUNCTION RunASS( cCaminhoCompleto, lXPCompativel )
*****************************************************
* Grava o registro do aplicativo
*****************************************************
DEFAULT lXPCompativel := .F.
LOCAL cRunName, cRunKey, cRegKey
cRegRoot := HKEY_CURRENT_USER
cRegKey := "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"
cRegValue:= ["]+cCaminhoCompleto+["="]+iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN"]
SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue )
cRegValue:= ["]+cFileName(cCaminhoCompleto)+["="]+iif(lXPCompativel,"WINXPSP2 ","")+[RUNASADMIN"]
SETREGVAR( cRegRoot, cRegKey, "EnableLUA", cRegValue )
RETURN nil


Os parâmetros são:

cCaminhoCompleto - Caminho completo do aplicativo, exemplo: c:\pasta\subpasta\outrapasta\sistema.exe
lXPCompativel - colocar .t. se caso quer forçar execução em modo de compatibilidade

Exemplo:

...
RunASS( "c:\pasta\subpasta\outrapasta\sistema.exe", .f. )
...


As funções que usei aqui foram elaboradas para uso com o Fivewin que usa a classe tReg32().

Função SetRegVar()

FUNCTION SETREGVAR( nKey, cRegKey, cSubKey, uValue )
LOCAL oReg, cValue
nKey := IF( nKey == NIL, HKEY_CURRENT_USER, nKey )
uValue := IF( uValue == NIL, "", uValue )
oReg := TReg32():Create( nKey, cRegKey )
cValue := oReg:Set( cSubKey, uValue )
oReg:Close()
RETURN cValue

Olá galera.
Estou tendo um problema com a xBrowse. Ela a princípio mostra a tela legal, porém ao clicar uma vez, em algumas linhas, ele posiciona o focus em registro diferente (coisa mais doida).
O código está assim:
///
DEFINE DIALOG oDlg RESOURCE 'SELECIONAAGENCIA' TITLE 'Usuário: '+oVs:UsCodOper+' '+oVs:UsNomeOper oDlg:lHelpIcon := .f. redefine xBrowse oLbx fields TmpAg->ag_codigo, TmpAg->ag_sigla, TmpAg->ag_cidade, TmpAg->ag_uf ; ALIAS 'TmpAg' ID 601 OF oDlg FIELDSIZES 80, 120, 170, 80 ; HEADERS 'Agência','Sigla','Cidade','UF' COLORS CLR_BLUE,CLR_WHITE UPDATE oLbx:blDblClick := {|| (lSair := .t., nOption := 1, oDlg:end() ) } oLbx:bKeyDown := {|nK| if( nK != VK_RETURN, , (lSair := .t., nOption := 1, oDlg:end() ))} redefine buttonBMP oBtn01 bitmap "ok16" ID 101 of odlg TEXTRIGHT action( lSair := .t., nOption := 1, oDlg:end() ) TOOLTIP 'Inicia o Trabalho com a Agencia Selecionada' redefine buttonBMP oBtn10 bitmap "sai16" ID 109 of odlg TEXTRIGHT action( lSair := .t., nOption := 2, oDlg:end() ) TOOLTIP 'Volta ao menu principal' CANCEL ACTIVATE DIALOG oDlg CENTERED valid lSair //// Coloquei uma tela anexo para vcs verem o que acontece. O estranho é que com o Duplo Clique funciona legal. Eu nem tinha percebido isso, mas o cliente me mostrou e eu fiquei assustado. Alguém tem a solução? Um abraço,

Usando cGetDir() muito interessante.


#include "FiveWin.ch"

#define BIF_NONEWFOLDERBUTTON 0x200
#define BIF_RETURNONLYFSDIRS 0x0001
#define BIF_DONTGOBELOWDOMAIN 0x0002
#define BIF_STATUSTEXT 0x0004
#define BIF_RETURNFSANCESTORS 0x0008
#define BIF_EDITBOX 0x0010
#define BIF_VALIDATE 0x0020
#define BIF_NEWDIALOGSTYLE 0x0040
#define BIF_USENEWUI (BIF_NEWDIALOGSTYLE | BIF_EDITBOX)
#define BIF_BROWSEINCLUDEURLS 0x0080
#define BIF_BROWSEFORCOMPUTER 0x1000
#define BIF_BROWSEFORPRINTER 0x2000
#define BIF_BROWSEINCLUDEFILES 0x4000
#define BIF_SHAREABLE 0x8000
#define MAX_PATH 260

FUNCTION Main()

LOCAL cTitle, cPath, cCarpDest, cPathDest

cTitle := "Seleccione Carpeta"

IF FWVERSION = "FWHX 13.06"
cPath := GETCURDIR()
ELSE
cPath := CURDRIVE() + ":\" + GETCURDIR()
ENDIF

cCarpDest := "Seleccione la carpeta donde copiar las novedades"

cPathDest := cGetDir( cTitle, cPath,, cCarpDest, ;
BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + ;
BIF_USENEWUI + BIF_NONEWFOLDERBUTTON )

IF .NOT. EMPTY( cPathDest )
? cPathDest
ENDIF

RETURN NIL


Gostaria de mais comentários a respeito disso, porfa.

abs

Bom Srs!
Alguém sabe se é possível de alguma maneira gravar as movimentações de utilização do sistema?
Sei que temos o camtasia e diversos softwares, mas será que existe alguma classe ou integração via DLL para fazermos isto dentro de nossas apps?
Obrigado!!

Boa tarde, alguem já desenvolveu arquivo de Registro /Cancelamento de arquivo para o spc nacional ? Estou seguindo o layout mas é muito mal explicado. Alguem teria um exemplo de arquivo gerado com Inclusao e exclusao para eu comparar com o meu ?
Grato
William

Boa noite galera,
Andei lendo os fórum já postados e comentados, e não consegui uma luz para como iniciar uma instalação e configuração do harbour e fivewin, já trabalho com os dois na empresa que programo, mas como entrei lá e já está tudo certo somente fazemos manutenção nos fontes, não consegui ainda que ninguém me de uma ajuda para deixar 100% na minha máquina para eu programar e desenvolver meus projetos.
Abrass até mais vlw