D4n1l0d

pode ser == mas ai vem outra duvida no windows quando você tenta nomear um arquivo e coloca "." no final dele e sem extensão nenhuma, fazendo o nome do arquivo ficar "arquivo." , o windows automaticamente transforma para "arquivo" sem o ponto. so que eu tava deletando alguns arquivos meus e um arquivo chamado "imgres[1]." tem o ponto no final e mais nada, se eu tento deleta ele fala que o arquivo não pode ser encontrado, assim como quando eu tento executa ele, tudo isso pois o windows não permite arquivo com "." no final. então me dei mal, por eu já tentei de todos os modos possiveis deletar esse arquivo e não consigo !! ate mover ele eu não consigo.

vlw eu vo dar uma olhada no Adobe InDesign

você pode fazer uma caixa de dialogo HTML e utiliza-la pelo delphi aqui ensina, http://www.latiumsoftware.com/br/pascal/0048.php#2

sim ele apresenta esse erro quando eu abro o programa e clico no botão que executa o código ========== e o erro é: Não foi possivel encontrar o módulo especificado. =============== com o código do excel rodo beleza ============ deve ser algum problema no meu pc, vo reinstala o office, porque nem usando o componente WordApplication que vem com o delphi funcionou, deu o mesmo erro! =//

eu tava fazendo de acordo com o codigo vbs e transformando pra delphi, quando lembrei que tinha que fazer o meu programa reconhece se tinha algum parametro passado a ele ==>programa.exe paramtero1 ai achei esse código por acaso: 399 - Programar meu aplicativo para abrir arquivos a partir do Windows Explorer Inclua na seção uses: Registry Problema: Criei um editor de textos no Delphi. Agora gostaria que o Windows Explorer usasse este editor para abrir arquivos com a extensão .dpg e .dan. Como fazer? Solução: Para fazer isto será necessária a criação de algumas chaves no Registro do Windows. O exemplo abaixo cria todas as chaves necessárias. - Coloque um TButton e no evento OnClick dele coloque o código abaixo: procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Reg.LazyWrite := false; { Define o nome interno (ArquivoDaniel) e uma legenda que aparecerá no Windows Explorer (Arquivo do Daniel) } Reg.OpenKey('ArquivoDaniel', true); Reg.WriteString('', 'Arquivo do Daniel'); Reg.CloseKey; { Define o comando a ser executado quando abrir um arquivo pelo Windows Explorer (NomeDoExe %1). O símbolo %1 indica que o arquivo a ser aberto será passado como primeiro parâmetro para o aplicativo - ParamStr(1). } Reg.OpenKey('ArquivoDaniel\shell\open\command', true); Reg.WriteString('', ParamStr(0) + ' %1'); { NomeDoExe %1 } Reg.CloseKey; { Define o ícone a ser usado no Windows Explorer: 0 - primeiro ícone do EXE 1 - segundo ícone do EXE, etc } Reg.OpenKey('ArquivoDaniel\DefaultIcon', true); Reg.WriteString('', ParamStr(0) + ',0'); { 0 = primeiro ícone } Reg.CloseKey; { Define as extensões de arquivos que serão abertos pelo meu aplicativo } { *.dpg } Reg.OpenKey('.dpg', true); Reg.WriteString('', 'ArquivoDaniel'); Reg.CloseKey; { *.dan } Reg.OpenKey('.dan', true); Reg.WriteString('', 'ArquivoDaniel'); Reg.CloseKey; finally Reg.Free; end; end; - Coloque um TMemo; - No evento OnShow do Form coloque o código abaixo: procedure TForm1.FormShow(Sender: TObject); begin { Se o primeiro parâmetro for um nome de arquivo existente... } if FileExists(ParamStr(1)) then { Carrega o conteúdo do arquivo no memo } Memo1.Lines.LoadFromFile(ParamStr(1)); end; *** Para testar *** - Execute este programa; - Clique no botão para criar as chaves no Registro do Windows; - Feche o programa; - Crie alguns arquivos com as extensões .dpg e .dan; - Vá ao Windows Explorer e procure pelos arquivos criados; - Experimente dar um duplo-clique sobre qualquer dos arquivos com uma das extensões acima. Observações Existem outros recursos que poderão ser configurados. Porém, para começar, este já é um bom exemplo. Fonte: 850 dicas e Truques (delphi)

vixi, ai eu não sei não procure olhar o codigo de fonte dos componentes que já vem com o delphi

não funcionou, falou algo de modulo especificado não encontrado qual é o modulo para usar o word/? e como é que eu faço para saber as funções que eu posso usar para escrever no word/? o´codigo que eu usei e deu erro foi o seguinte: var winword : Variant; begin winword := CreateOleObject('Word.Application'); winword.visible := true;

ok, vou dar uma olhada no forum vlw

como eu faço para criar um objeto que dê acesso ao Word?? e que tipo de variavel seria, seria assim???: var winword : IDispatch; begin winword := CreateOleObject('Word.Application');

============== post editado =========== esquece, eu ia posta um troço aqui, pois não tinha lido o post do micheus ainda, ps.: valeu micheus, eu não tava entendendo a diferença entre os dois falou

além da função Abort(); tem a função Exit(); que funciona igual o Abort(); usando o mesmo código do Micheus: procedure TForm1.GravaTabela; begin ... try tabela1.post; if Teste = false then Exit; except ShowMessage('Não foi possível gravar'); end; ... end; procedure TForm1ButtonClick(Sender :TObject); begin ... GravaTabela; ShowMessage('Executou comando apos GravaTabela'); end;

então, como que ele ele seria criado no form???? quando eu quero criar um componente em tempo de execução em uso: var btn : Tbutton; begin btn := Tbutton.Create(form1); //cria o botão no form1 btn.name := 'btnteste'; btn.parent := form1; //agora ele aparece no form1

Como que eu faço para registrar uma nova extensão de arquivo que abra no NOtepad, ou em qualquer otro programa, eu so quero que a extensão seja a que eu queira como a descrição que eu queria e com o icone também :P , alguém sabe como fazer isso?

cara, eu não sei mudar a cor não, mas eu movo um painel em cima do caption. var r : Trect; begin r := pagecontrol1.TabRect(1); panel1.Left := pagecontrol1.Left + r.Right+ r.Left + 4; panel1.Top := pagecontrol1.top + (r.Bottom - panel1.Height -6)+ r.top; panel1.Visible := true; esse codigo varia de acordo com a fonte que está usando, mas acho que é isso. coloquei um exemplo para download: http://www.bestsharing.com/files/ms0017654...esheet.zip.html no meu pc deu certinho, caso você coloque o XpManifest e o computador for XP, o tabesheet ficara branco, então é só mudar a cor do panel para branco e colocar a label dentro do panel como transparente.

simples, no OnPaint do form ou do Paintbox, faz os metodos que você quer desenhar, assim, todas vez que o form for repintado, ele repintara essa imagem que você quer. mas, tambem tem outro jeito de fazer eu fiz, o link para o download está abaixo, o código está tudo explicadinho: http://www.bestsharing.com/files/ms0017653...intbox.zip.html

está, vlw vo tenta esse código

sobre PDF usa o PDFCreator, após você imprimir ele permite que você proteja o arquivo PDF contra copia de texto, imagem, tem jeito de colocar senha na edição, etc... o link dele é http://www.pdfcreator.de.vu/ aqui, está um screenshot, após "imprimir" o arquivo word(pode ser excel ou de qualquer programa) na impressora que ele cria ( PDFCreator). Nesse screenshot está mostrando a parte das configurações do PDF em si. http://www.pdfforge.org/node/77 se você observar tem uma aba escrita "Disallow User To" ( desabilitar o usuário de) e as opções: Print de document ( Imprimir o documento pdf ) Copy text and images ( Copiar textos e imagens ) Modify the document ( Modificar o documento ) Modify Comments ( Modificar comentarios) bom, é isso, abraços, d4n1l0d

Como eu faço para desabilitar o Alt + F4?

vlw, vo tentar do seu modo!

aew!! consegui. Como abrir um jpeg??? simples, coloca um Timage no form e o codigo para abrir é: declara a unit Jpeg na clausula Uses var JPG: TJPegImage; begin jpg := TJpegImage.Create; jpg.LoadFromFile('c:\arquivo.jpg'); image1.Canvas.Draw(0,0,jpg); jpg.Free; end;

assim: image1.Picture.LoadFromFile('c:\arquivo.jpg'); so que da o seguinte erro: Arquivo de imagem com extensão (.jpg) ignorado

ow vlw pela ajuda desculpa a demora mas eu achei um muito bom que chama PDFCreator da um google em PDFCreator que você acha o site oficial é muito bom

Quando eu to "construindo" ainda meu formulario, em tempo de edição, o delphi permite que eu carregue um jpeg eu um Timage, mas em tempo de execuçã (Run Time) não da certo, alguém sabe como corrigir esse erro??

soma o preço de todos os produtos vendido por esse mesmo vendedor =)! Só que, especifica melhor o que você quer, mas mesmo assim vou de dar um exemplo: Cria 3 tabelas paradox, uma com os produtos, outra com os vendedores e outra para adicionar todos os produtos vendidos, nessa tabela tera o código do produto vendido e o codigo do vendedor ( se você quiser coloque tambem o preço, hora da venda, desconto , etc ) ai para calcular o total você pesquisa ( use sql ) nessa tabela o codigo do vendedor, achando assim todas as suas vendas, e atraves do codigo do produto que ele vendeu, você faz a consulta na tabela com os produtos e pega o preço destes produtos e depois disso soma, achando assim o total vendido. Bom, teoricamente é isso!

tenta usa form1.Paint; cmdInserir.paint; e vê no que da!