FPimentel

Ola desenvolvedores. Estou tentando passar um local definido anteriormente em uma variável para o comando FILEEXISTS e só está retornando como False, mesmo o arquivo em questão estando no local. Segue função. function TMenu.LE_TXT(LE_TXT: string): string; Var LocalArq : string; begin LocalArq := Edit_Arquivo_TXT.Text+'\Config.txt'; { O edit, recebe o endereço do local do arquivo na rede, testei de duas maneiras: } { \\Server\f\Sistema\Maquina1 } { S:\Sistema\Maquina1 } if not FileExists(LocalArq) then Begin Application.Messagebox('Aquivo de configuração não encontrado ! - Finalizando Aplicação.....','AVISO', mb_ok+MB_ICONSTOP); Application.Terminate; { Ele não retorna o valor True nem quando existe o arquivo } End Else Begin { Não entra aqui NUNCA } End ; Espero que tenha sido claro e Obrigado pela atenção. Att: Fabio

Bom Dia Jhonas. Cara como disse já havia visto aquele post, fui ao Regedit e NÃO achei nada parecido com isto. Não faço ideia de onde pode estar. Abraço.

Jhonas, Bom Dia. Já havia visto este Post, mas não consegui colocar para rodar. Não achei na minha maquina a parte: RootKey := HKEY_LOCAL_MACHINE; Result := OpenKey('SOFTWARE\Firebird Project\Firebird Server\Instances', False); O local não existe para o InterBase. Att. Fabio Pimentel

Boa Tarde a Todos. Estou precisando de uma ajuda... Tenho uma aplicação que roda em um servidor server 2012-R2 e realiza algumas tarefas à noite, porém algumas vezes os usuários NÃO fecham as aplicações nas estações, o que causa erros. Estou precisando PARAR o banco de dados para cortar as conexões existentes e REINICIAR para realizar as tarefas que preciso. Uso o Delphi 7 e o InterBase 6.0 Desde já agradeço a atenção. Att. Fabio Pimentel