Como Colocar link de sites em uma MessageDlg.

Delphi

05/12/2012

Bom, eu tenho um gerador de arquivos em txt, ele da uma mensagem de ''Gerado com Sucesso'', mas além disso ele precisa anexar o arquivo em um site, pois bem, para ele não ter que abrir a página, gostaria de colocar junto a mensagem o link do site referente onde irá abrir a página ja no site que gostaria de anexar o arquivo.
deu pra entender bem ? hehe
abraço

Luis Flores

Luis Flores

Curtidas 0

Respostas

Claudia Nogueira

Claudia Nogueira

05/12/2012

Desconheço uma forma de fazer exatamente do jeito que você quer, mas você pode fazer desse outro jeito por exemplo:

 if Application.MessageBox(pChar('Gerado com Sucesso!' + #13 + 'Deseja anexar o arquivo?'),'Confirma',MB_YESNO + MB_ICONQUESTION) = 6 then
  ShellExecute(Application.Handle, nil, PChar('http://www.globo.com'), nil, nil, sw_hide);


Obs.: Adicionar Shellapi no Uses do Form
GOSTEI 0
Luis Flores

Luis Flores

05/12/2012

hunm, foi oque eu imaginei pois não tava encontrando nada sobre.
mas tudo bem vou ter que fazer dessa forma mesmo, muito obrigado.
abraço
GOSTEI 0
POSTAR