Link Butonu nasıl yaratılır?

[Gk_imptob]

Herkese merhaba.Bu benim forumdaki ilk mesajım.Hatayaparsam af ola.

Benim değerli üyelere kısa ve basit bir sorum olucakti.TDBedit içindeki e-mail ve web adresine nasıl link butonu yaratabilirim?

Forumda yaptığım araştırmalar sonucunda arkadaşların çoğu aşağıdaki komut satırını vermiş.Doğrusu bu komut satırı benim istediği işi yapmıyor.
Benim istediğim forum üzerdindeki TDbedit içinde yazan e-mail ve web adresine link butonu yaratmak.Umarım sorununumu anlaşılır bir şekilde yazmişimdir. Teşekkürler.

ShellExecute(Handle,
'open',
'mailto:mussimsek@delphiturkiye.com',
nil,
nil,
sw_ShowMaximized);
[/b]

[NewMember]

Arkadaşım seni yanlış anlamadıysam eğer şu kod sorununu çözer.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var KimeGidecek:Pchar;
begin
kimegidecek:=pchar('mailto:'+DBEdit1.Text);
   ShellExecute(Handle,
'open',
KimeGidecek,
nil,
nil,
sw_ShowMaximized);
end;

Başarılar.Kolay gelsin.

[mnt]

uses ShellAPI,.....

mail için;
ShellExecute(Handle,
'open',
PChar('mailto:'+DBEdit1.Text),
nil,
nil,
sw_ShowMaximized);

web için;

ShellExecute(Handle,
'open',
PChar('http://'+DBEdit1.Text),
nil,
nil,
sw_ShowMaximized);

[mege]

Kod: Tümünü seç

 procedure SendMail(sto,cc,bcc,title,body:string);
  var s:string;
  begin
   s:='mailto:'+sto+'?'+'subject='+title+'&cc='+cc+'&bcc='+bcc+'&body='+body;
   ShellExecute(application.Handle,nil,pchar(s),'','',0);
  end;

[Gk_imptob]

Tüm arkadaşların değerlil tavsiyeleri sonucunda sorunumu hallettim. Herkese çok teşekkürler.İyiki varsın Delphi Forum.