url bzw. e-mail-adresse aus delphi heraus öffnen!

[ThomasJ]

hallo alle zusammen!

ich bin wollte mal wissen wie ich url und e-mail-adressen in delphi verwendne kann!

quasie:
ich habe in einem label eine url stehen und wenn ich dadrauf klicke möchte ich das sich der standartbrowser öffnet und dort die seite anzeigt und das gleich mit der e-mail-adresse. halt wenn man druff klickt das sich denne das standart mail progg öffnet!

kann mir da wer weiter helfen!?

vielen dank schon mal im vor raus!

[Nalincah]

Such mal im Forum oder in der Delphi-Hilfe nach shellexecute. Das müsste helfen

[Nalincah]

So müsste es gehen:

Delphi-Quellcode:

uses shellapi;

ShellExecute(Handle, nil,'http://www.web.de', nil, nil, SW_SHOW);

Statt der URL kannste dann auch einfach 'mailto:[e-mail]' reinschreiben

[ThomasJ]

hyhy!

sprich: shellapi mache ich oben unter uses und

Code:

ShellExecute(Handle, nil,'http://www.web.de', nil, nil, SW_SHOW);

schreibe ich die qusie in die label procedure:

Code:

procedure TForm1.Label5Click(Sender: TObject);
begin


ShellExecute(Handle, nil,'http://www.hallo.de', nil, nil, SW_SHOW);
end;

end.

stimmt das!?

[Nalincah]

Richtig

Ab besten so:

ShellExecute(Handle, nil,PChar(TLabel(Sender).Caption), nil, nil, SW_SHOW); Das schreibst du nur in das OnClick ereignis des ersten Labels. Bei den anderen gehst du im Objektinspector und Ereignisse und weist den anderen Labels das OnClick-Ereignis des Ersten Labels zu. Das geht dann auch mit den Emailadressen. Wenn du das mit anderen Komponenten machen willst dann statt TLabel einfach TButton oder was immer du brauchst. So kannst du übrigens auch alle anderen Eigenschaften abrufen wie z.B. Name oder Left.

[synex]

Und email kriegste durch
ShellExecute(Handle, nil,'mailto:[e-mail]', nil, nil, SW_SHOW); soweit ich weis

MfG synex

[ThomasJ]

hyhy!

danke dir klappt alles wunderbar!

@General2003aber: ich muss noch irrgend wie das mailto: mit in

Code:

ShellExecute(Handle, nil,PChar(TLabel(Sender).Caption), nil, nil, SW_SHOW);

mit rein bringen wei lsieht doch irrgend wie dumm aus wenn ich dort im label denne auch noch mailto: stehen habe!


aber ic hdanke dir!

[Nalincah]

So:
ShellExecute(Handle, nil,PChar('mailto:'+TLabel(Sender).Caption), nil, nil, SW_SHOW);

[Meister_Kika]

ist doch einfach:


ShellExecute(Handle, nil,PChar('mailto:'+TLabel(Sender).Caption)

[ThomasJ]

hyhy!

danke danke! euch allen

das ist hier mla nen service!

innerhalb von minuten bekommt man hier die optimale hilfe!

echt top! erlebt man selten!!

BIG THX at all!