link nasıl verilir

[crunchen]

s.a

delphide bir yazıya link vermek istiyorum.nasıl olcak acaba. belki biraz kolay bir soru oldu ama affedin yeni başladım.birde bu linke basınca mail göndermesini istiyom yardımcı olursanız sevinirim

[TRSoft]

Kardeş ipuçları kısmında Bir Web adresi açma başlığı altında sorunun cevabını bulabilrsin..

[crunchen]

teşekkürler

[husonet]

Merhaba,

Bu iş için ShellExecute fonksiyonunu kullanabilirsiniz.

uses kısmına ShellApi unit'ini ekleyin

Kod: Tümünü seç

       ShellExecute(Handle, 'open','www.durmus.net',nil,nil,sw_ShowMaximized);

Kolay Gelsin...

[salvation]

Mail göndermek için (outlook vs ile):

Kod: Tümünü seç

uses  Shellapi; 

ShellExecute(Handle,'open','mailto:hpp@klm.com',nil,nil,sw_ShowMaximized);

[fahrettin]

ilgili yaziyi iceren ornegin bir label componenti ise. bu componentin on klik olayina mail atmak icin

Kod: Tümünü seç

  ExecuteFile('MAILTO:fahrettin@rams.com.tr','','',SW_SHOW);

seklinde e-mail atma isini yaptirabilirsiniz. daha dogrusu e-mail programinin acilmasini saglayabilirsiniz...

Kod: Tümünü seç

function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
    StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
    StrPCopy(zDir, DefaultDir), ShowCmd);
end;

Not: forum kurallarını okuyup uydunuz sürece acemi olmanız ya da basit sorular sormanız hiç önemli değil. Hatta basit soru olmasi iyi olur. Kolay cevaplarız

[fahrettin]

Hay Allah. cevap yazmak icin actigim ekranda 10 dakika oyalaninca epey cevap gelmiş...