Jump to content
Fivewin Brasil

oribeiro

Membros
 View Profile  See their activity

  • Posts

    1,291

  • Joined

  • Last visited

  • Days Won

    35

 Content Type 

Posts posted by oribeiro

  2. Bloquear acesso ao Gerenciador de Tarefas com Ctrl+Shift+Esc

    in Programação

    Posted

    Pessoal, 

    Tem como bloquear o acesso do usuário de terminal server ao gerenciador de tarefas usando (Ctrl+Shift+Esc) ?

    Achei uma função para isso em Delphi:

    http://www.planetadelphi.com.br/dica/7145/-bloquear-o-gerenciador-de-tarefas-(ctrl+alt+del-e-ctrl+shift+esc)-

    Alguém consegue fazer isso dentro do xHarbour? 

    function BlockInput(ABlockInput: boolean): Boolean; stdcall; external 'USER32.DLL';

procedure TravaGT(SimNao: boolean);
var
reg: TRegistry;
begin

try
reg := TRegistry.Create;
  with reg do begin
  RootKey := HKEY_CURRENT_USER;
  OpenKey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',true); //se não existir, é criada
    case SimNao of
    true:  WriteInteger('DisableTaskMgr',1);
    false: WriteInteger('DisableTaskMgr',0) ;
    end;
  closeKey;
  end;
finally
reg.free;
end;

end;

     

  4. balao de mensagem

    in Programação

    Posted

    Criei a função abaixo para facilitar a migração para o uso de Array em vez de texto:

    Com a função eu uso: oBmp:cToolTip = OAToolTip( "Mensagem para o Hint." )

    Mas se eu mudo as cores do nClrFore e nClrBack as cores não modificam nos balões.

      

    *********************************************************************************************
Function OAToolTip(cToolTipText, cHeader, nIcon, nClrFore, nClrBack, nWidth, nDelayInSeconds)
*********************************************************************************************
// cToolTip := { cToolTipText, [cHeader], [Icon], [nClrFore], [nClrBack], [nWidth], [nDelayInSeconds] }
   Default cToolTipText    := ""
   Default cHeader         := "(OASyS) Informação:"
   Default nIcon           := 0
   Default nClrFore        := CLR_WHITE // Não funciona
   Default nClrBack        := CLR_HBLUE // Não funciona
   Default nWidth          := nil
   Default nDelayInSeconds := nil       // Não funciona
   if Empty( nIcon )
      if     "FECHA"$Upper(cToolTipText).OR."CANCELA"$Upper(cToolTipText)
         nIcon = 6
      elseif "APAGA"$Upper(cToolTipText).OR."EXCLUI"$Upper(cToolTipText)
         nIcon = 5
      else
         nIcon = 4
      endif
   endif
Return {cToolTipText, cHeader, nIcon, nClrFore, nClrBack, nWidth, nDelayInSeconds}

     

  6. Terminal Server nao Aparecer a tela Desktop do Servidor

    in Programação

    Posted

    Isso é possível.

    1) Faça um arquivo de lote ( Exemplo: sistema.bat ) e coloque nele a chamada do seu sistema começando a linha com Start e terminando o arquivo com Exit, assim:

    c:
    cd\sistema
    start sistema.exe
    exit

    2) Na configuração do Usuário no TS, na aba ambiente, em Iniciar o seguinte programa durante o logon, inclua esse arquivo de lote que você criou ( Exemplo: sistema.bat ).

    Só isso.
     

  10. Mala Direta com LocalWeb

    in Programação

    Posted

    Pessoal,

    Um cliente meu tem uma conta na localweb que envia 100 emails e para de enviar até passar uns 5 minutos, depois deixa enviar novamente.

    Ele ligou na LocalWeb e contratou um pacote de emails para mala direta com a capacidade de 10.000 emails por mês.

    O problema é que eles passaram um SMTP diferente e um USUÁRIO e SENHA também diferente. No OutLook dá para configurar, mas não sei como fazer no sistema.

    Exemplo de Configuração:

    Dados:

    pEmail       := "financeiro@empresa.com.br"
    pSenhMail := "empresa1234@$"
    pSMTP      := "smtp.empresa.com.br"
    pPortMail   := 587

    Dados Adicionais informados pelo LocalWeb (No OutLook esses dados ficam na ABA "Servidor de saída requer autenticação"):

    xSmtp      := "smtplw.com.br"
    xUser       := "usuario"
    xSenha    := "ZZMbXYPVD1234"

    Onde informo esses dados adicionais nos Schemas Microsoft que uso para envio de email? 
     

  13. ACBRLIB ou melhor ACBRDLL

    in Programação

    Posted

    O ACBr lançará oficialmente amanhã uma biblioteca que pode ser agregada ao sistema sem a necessidade do uso do monitor.

    Acredito que, com ela, será possível o próprio sistema configurar as pastas dos arquivos e certificado digital que será utilizado por cada empresa sem a necessidade de se instalar vários monitores ACBrs.

    Parece muito interessante!

    Se quiser ir se familiarizando, veja o link:

    https://acbr.sourceforge.io/ACBrLib/BemVindo.html

    Exemplos de programação de SAT usando a biblioteca:

    http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Sat/

     

  15. Saber se o Botão está congelado

    in Programação

    Posted

    Com When funciona bem essa sugestão, mas quando o botão está com oBtn:Disable() não consigo saber.

    João, meu interesse nessa função é em habilitar um segundo botão apenas se o primeiro estiver habilitado, por isso é que eu procurei uma função do próprio botão que indique a sua condição.

    Algo mais ou menos assim: 

    If (oBtn1:Enable) // <- Procuro essa opção no ButtonBtn
   oBtn2:Enable()
else
   oBtn2:Disable()
endif

     

  22. Instalador de Programas.

    in Programação

    Posted

    João,

    Eu uso esse software somente para instalar os executáveis e as bibliotecas necessárias para rodar o sistema.

    O meu executável é que verifica se o banco de dados existe ou não, verifica se houve alteração no layout das tabelas, etc.

    Mas eu acho que o que você quer está na última aba do instalador chamada "Outros". Lá atem origem, destino e o que fazer se existir.

    Se não conseguir com essa versão, baixe a versão mais recente desse utilitário que ela está bem mais completa. Sucesso!

×
×
  • Create New...