RenatoMejias

Pessoal, gostaria de escrever dentro de um arquivo criado quando se executa o meu programa. Pelos códigos vou explicar melhor: Para criar o arquivo de texto fiz o seguinte: procedure TfrmPrincipal.FormActivate(Sender: TObject); begin FileCreate('C:\relatorio.txt'); end; Acontece que em outro escopo eu preciso que ele grave algo neste arquivo recém criado, para isso estou tentando o seguinte código: procedure TfrmPrincipal.btVerificarClick(Sender: TObject); var uni:string; f:TextFile; begin AssignFile(f,'C:\relatorio.txt'); Reset(f); ReWrite(f, 'Helo'); CloseFile(f); end; Acontece que toda vez que mando executar dá algum erro, alguma idéia?

Pesquise sobre Importação de Dados Externos, isso vai te ajudar...

Caso Resolvido. Caso o autor queira a reabertura do tópico, envie uma MP com o link para um moderador da seção.

Veja se a função cont.ses serve para você. Veja uma descrição que retirei da ajuda do Office:

Caso Resolvido. Caso o autor queira a reabertura do tópico, envie uma MP com o link para um moderador da seção.

Estamos com alguns problemas, porém em breve voltará ao normal, não se preocupem. ^_^

Validação de dados do tipo lista serviria para você?

Sim suporta, aqui mesmo estou com o 2003 e o 2007.

Vocês tem sorte que eu não manje de Flash, se não eu ganharia de todos :P Brincadeira, pena que não exista duelos de Excel/VBA, hehehe...

Remoção de Malwares "Vírus" 1) Após o problema ser completamente resolvido o Tópico será fechado e movido para Casos Resolvidos . Caso seja do interesse do participante querer reabrir o Tópico, envie uma MP para JackSSA ou RenatoMejias justificando a reabertura do Tópico. 2) Esta área é restrita a post de membros autorizados a fazer análise de Logs do Hijackthis e tópicos relacionados a vírus. Isto será feito para preservar a integridade do equipamento do membro que está tendo problema com malwares, pois uma análise mal feita pode causar danos ao sistema operacional. 3) Não poste seu logs em dois fóruns esperando ser atendido mais rápido, cada analista segue um raciocínio, então para o bem de sua própria máquina não faça isso, tópicos assim serão fechados sem prévio aviso. 4) Quem quiser fazer parte da equipe de remoção de malwares deve mandar uma MP para: - JackSSA - RenatoMejias Com os seguintes dados: Links de post realizados em outros fóruns para a remoção de malwares, estes links serão passados para a equipe de análise, eles dirão se o membro deverá fazer parte da equipe de remoção ou não. Membros [as] autorizados [as]:

Faça o download destas ferramentas: ATF-Cleaner move-zonebac.vbs 1 - Rode o ATF-Cleaner. Marque Select All. Depois clique em Empty Selected. Na janela Done Cleaning dê o OK e Exit. 2 - Rode o move-zonebac.vbs e irá aparecer um prompt "Mover arquivos detectados genericamente?" [sim/Não] Dê o Não. A ferramenta começerá o exame do PC. Aguarde, pois isso pode demorar. - Ao final abrirá um relatório. Salve, copie e cole o conteúdo na sua próxima resposta, juntamente com um novo log do HijackThis feito em modo normal. Sabe do que se trata essas entradas? O4 - HKLM\..\Run: [printer] c:\windows\regedit.exe /s c:\windows\printer.reg O4 - HKLM\..\Run: [date] c:\windows\regedit.exe /s c:\windows\date.reg O4 - HKLM\..\Run: [wallpaper] c:\windows\regedit.exe /s c:\windows\WP9X.reg

Envie essa planilha no meu e-mail, quando possível darei uma olhada.

Veja se isso lhe ajuda: http://scriptbrasil.com.br/forum/index.php...view=getnewpost

Para fazer o boot pelo CD entre no setup da sua máquina e coloque para o 1º boot ser pelo multimídia.

Andréia, veja isso: http://www.av-comparatives.org/seiten/ergebnisse_2007_02.php

Você já tinha o SP2 instalado, veja no cabeçalho do seu log: E além disso, siga os procedimentos passados pelo JackSSA.

Movendo para JavaScript.

Seu log está limpo. Mais algum problema com o computador?

1º - Veja se recriou o autorun.inf na raiz da unidade C:\ 2º - Pesquise novamente no regedit por alguma chave assim: Unidade:\Copy.exe 3º - Reinicie a máquina.

E quanto a segunda parte do procedimento? Teve êxito?

Baixe o Pocket KillBox Salve em uma pasta em C:\ Abra o Bloco de Notas, copie estas linhas e salve. C:\Programas\fernandes69.exe Abra o KillBox e marque a função Delete on Reboot. Abra o Bloco de notas, selecione e copie as linhas salvas. No KillBox, clique em File, depois em Paste from Clipboard, Clique no botão All Files e clique no botão X . Depois clique em Não. Abra o Hijackthis, clique em Do scan a system only, marque as entradas abaixo e clique no botão Fix Checked. O2 - BHO: (no name) - {7E853D72-626A-48EC-A868-BA8D5E23E045} - (no file) O4 - HKLM\..\Run: [jonathan69] C:\Programas\fernandes69.exe Reinicie e poste um novo Log do Hijackthis feito em Modo Normal. Após feito esse procedimento, abra o Windows Explorer, clique com o botão da direita em cima de C:\ e clique na opção Explorar, provavelmente não dará esse erro de copy.exe, procure nessa pasta um arquivo chamado autorun.inf se encontrá-lo delete-o. Após isso vá em Executar e digite regedit, clique em Editar e depois em Localizar, mande procurar por copy.exe, se você encontrar algo assim: Unidade:\copy.exe mande apagar.

Baixe o Pocket KillBox Salve em uma pasta em C:\ Abra o Bloco de Notas, copie estas linhas e salve. C:\WINDOWS\System32\lsasss.exe C:\WINDOWS\System32\systen32.exe Abra o KillBox e marque a função Delete on Reboot. Abra o Bloco de notas, selecione e copie as linhas salvas. No KillBox, clique em File, depois em Paste from Clipboard, Clique no botão All Files e clique no botão X . Depois clique em Não. Abra o Hijackthis, clique em Do scan a system only, marque as entradas abaixo e clique no botão Fix Checked. O4 - HKLM\..\Run: [Lexmark_X79-55] C:\WINDOWS\System32\lsasss.exe O4 - HKLM\..\Run: [systen32] C:\WINDOWS\System32\systen32.exe O4 - Global Startup: systen32.exe O16 - DPF: {aa44da02-7f61-11d4-a3e1-00c04fa32518} - Reinicie e poste um novo Log do Hijackthis feito em Modo Normal. Você está conectado através de um proxy?

- 1º Qual a unidade que acusa erro quando você tenta acessar? - 2º Conhece esse programa? C:\Programas\fernandes69.exe - 3º Configure o Windows para mostrar todos os arquivos.

Você seguiu o tutorial acima passo a passo?

=SE(A1<20000;0;SE(A1<60000;0,02;SE(......... E assim por diante.