Mas se eu quiser colocar um valor nessa variavel cada vez que eu chamar essa funcao ? assim como você fez ela vai executar cada vez que eu chamar essa funcao ?? Muito Obrigada Abraços Andreia
Bom dia... Gostaria de saber se tem alguma coisa errada nesse código? <script language='javascript'> function outra() { <? $var = 1234; ?> ValidaPedido(); } </script> Se alguém puder me ajudar agradeço muito Andreia
Boa tarde sera que tem como fechar uma janela com um botao tenho esse código que fecha......só que queria com botao echo('<A HREF="javascript:void(0)" ONCLICK="window.close();">Fechar esta janela</A>'); sera que alguém pode me ajudar Muito Obrigada Abraços Andreia
Bom dia tenho esse código para fechar uma janela....mas eu queria fechar com um botão. <a href="javascript:window.close()">fechar</a> alguém poderia me ajudar Muito Obrigada Andreia
Winexec('C:\arquivos de programas\outlook express\msimn.exe',SW_ShowNormal);é um código para abrir o outlook pelo delphi. ShellExecute(GetDesktopWindow,'open',pchar('www.sua_pagina.com.br'),nil,nil,sw_ShowNormal); espero ter ajudado abraços Andreia
há hora que vou esse comando ele da um erro ShellTreeView1.root := 'c:\'; Project programa.exe raised exception class EAccessViolation with message 'Access violation ate address 00403D 30 in module 'PROGRAMA.EXE'. Read of address FFFFFFC'. Process stopped. Use Step or Run to Continue não consigo criar um novo diretorio na area de trabalho.......em outros lugares funciona só no DESKTOP que não funciona.....ele ate cria mais não atualiza no Shelltreeview, e no windows XP funciona tudo certinho Abraços Andreia
Bom dia..... estou abrindo o Outlook pelo delphi ..mas não consigo anexar arquivo alguém poderia me ajudar Mail := 'mailto:xxx@xxx.com.br' + '?Subject=Teste' + '&Body=Enviando email pelo Delphi'; ShellExecute(Handle, 'open', PChar(Mail), nil, nil, SW_SHOW); Não quero enviar direito do delphi e sim pelo Outlook Muito Obrigada Andreia
Ola Na Paleta FastNet......o componente NMSMTP1 Para você enviar e-mail com esse componente....ele envia e-mail direito do programa que você fizer Se você quiser chamar um programa para enviar tipo Outlook você coloca esse codigo e o chama de um botão: procedure TForm1.Button1Click(Sender: TObject); var Mail : String; begin Mail := 'mailto:xxxx@xxx.com.br'; ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal); end; Espero ter ajudado Andreia