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:

Delphi-Quellcode:

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

Delphi-Quellcode:

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:

Delphi-Quellcode:

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!

[MathiasSimmack]

OT: Hilfe bekommst du in jedem Forum. Schneller oder langsamer spielt dabei keine Rolle. Nur manchmal wirst du halt aufgefordert (wie dies der General anfangs tat), die Suchfunktion zu benutzen, und damit erschöpfen sich die Antworten dann.
Das hat nichts mit Böswilligkeit zu tun, sondern schlichtweg damit, dass dann deine Frage zu den "häufig gestellten" gehört, zu denen es bereits zig Lösungen gibt. Insofern muss man IMHO auch nichts mehr dazu sagen als "Benutze die Suche mit dem Begriff XY".

Wenn sich aber andere Foren-Neulinge profilieren wollen und das Gelernte nun dir vermitteln wollen, dann spricht ja auch nichts dagegen.

Aber das ist IMHO in jedem Forum so.

[Nalincah]

Was heißt IMHO?

[Chewie]

IMHO=In My Humble Opinion=Meiner bescheidenen Ansicht nach

[ThomasJ]

hyhy!

@MathiasSimmack: jupp ich habe auch shcon vorher die suche benutzt! da ich aber erst relative neu dabei bin (zwar schon seit 3 jahren aber nur schule mäßig!) wußte ich a) nischt genau wonach ich suchen muss und b) ob das nun das richtige ist für meine "bedürfnisse"!

ganu is es mir schon kalr das man die suchfunktion nutzen sollte und mir ist auch klar das das nichts mit bößwilligkeit zu tun hat! (mache ich ja auch genau so in anderen foren!) und das ic hrelativ überall eine antwort bekomme mal fürher mal später is auch logisch ;) nur war es hier shcön gleich nach der anfrage ne antwort zu bekommen so das ich gleich weiter machen konnte und nischt 1 - 2 tage warten musste!

:) und somit sind wir alle zufrieden ;);)

have a nice day!

[Simple]

hallo, ich bin neu hier :P

zu der sache betreff

ShellExecute(Handle, 'open', PChar('http://webseite.de'), nil, nil, SW_SHOW);

damit öffne ich eine webseite, bei mir zum beispiel über dem ms-internetexplorer...

leider aber immer auf eine schon geöffnete webseite und nicht über eine neue, als neustart vom ms-ie...

kann mir da einer einen rat geben?

ich danke euch, gruß simple

[Nalincah]

Versuch mal nicht "http://www.web.de" zu öffnen sonder das Programm "iexplorer.exe" mit parameter "http://www.web.de"
weiß aber nicht ob das klappt

[Christian Seehase]

Moin Simple,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Oder such' hier mal nach opennew

Das Problem hatten wir gerade erst.

[Alexander]

Hi,
Das stimmt. Allerdings gibt es glaube ich für den IE noch OpenNew statt Open.
Alternative: Du erzeugst eine IE-Instanz mit CreateProcess.
Solltest hier dafür auch Beuspiele bekommen

[fkerber]

Hi!

Opennew geht zwar ist aber nicht gut. Aber da ich das selbe Problem hatte, findet sich in meinem Post von damals auch ne "echte" Lösung:

http://www.delphipraxis.net/internal...012&highlight=

Ciao fkerber

[Simple]

ist ja super bei euch hier, man bekommt ja fix eine antwort :thuimb: habt dank

mit opennew funzt nix, auch mit der function RunProcess geht nix, leider :wall:

ich habe folgendes ausprobiert:

Delphi-Quellcode:

uses 
  Registry; 

{ ... } 

var 
  reg : TRegistry; 
  cmd : string; 
begin 
  reg := TRegistry.Create(KEY_READ); 
  with reg do 
  try 
    RootKey := HKEY_CLASSES_ROOT; 
    if(OpenKey('http\shell\open\command',false)) then 
    try 
      cmd := ReadString(''); 
    finally 
      CloseKey; 
    end; 
  finally 
    Free; 
  end; 

  cmd:= Copy(Copy(cmd, Pos('"',cmd) +1, Length(cmd)), 0,Pos('"', Copy(cmd, Pos('"',cmd) +1, Length(cmd))) -1);

  ShellExecute(0, 
    'open', 
    pchar(cmd), 
    'http://www.delphipraxis.net', 
    nil, 
    SW_SHOWNORMAL); 
end;

die quellecode hier vom board, funzt aber auch nicht, erst nach veränderung vom string cmd wie folgt:

Delphi-Quellcode:

cmd:= Copy(Copy(cmd, Pos('"',cmd) +1, Length(cmd)), 0,Pos('"', Copy(cmd, Pos('"',cmd) +1, Length(cmd))) -1);

( wenn es eine bessere möglichkeit gibt, cmd zu verändern, dann laßt es mich wissen )
im klartext mache aus:

"C:\Programme\Internet Explorer\iexplore.exe" -nohome = C:\Programme\Internet Explorer\iexplore.exe

so geht es und funzt gut, weiß ich aber nicht wie es mit anderen betriebssysteme klappt, ich benutze win2000

gruß simple

[edit=FuckRacism]Delphi-Syntax eingefügt, beim nächsten Mal bitte selber machen. Mfg, FuckRacism[/edit]