Internetseitenaufruf mit Delphi

[marianalbers]

Gibt es eine Möglichkeit einen in einem Label einen
Internet Link unterzubringen so dass man aus
dem Prog heraus eine bestimmte Internetseite starten
kann ??

[Manu]

Dazu musst du nur dass Label schriftartmäßig so einstellen, dass es wie ein link wirkt und dann die Aktion bei MouseOver so anpassen, dass die Website geöfnet wird.

Wenn der Link in einem Text vorkommt, teil ihn in 3 Labels:

"Text 1..." "Link" "Text2"

mfg, Agent

[marianalbers]

Das Problem ist das ich den nicht weiß mit
welchem Befehl ich eine Website öffne.

[Manu]

Hmm.. da bin ich mir jetzt auch nciht ganz sicher, vermutlich ist es etwas mit ShellExecute(..);

Ich bin grad nicht daheim, kann nicht in der Hilfe schauen, aber such doch mal in der Hilfe nach "ShellExecute" oder "externes Programm" oder nur "Shell" oder "Execute"

HTH, AgentSmith

[marianalbers]

Zu shell gibt es nichts und zu Executable sehr viel
da ich die englishe Version hab bringen mir die anderen
Begriffe nichts

[Manu]

Sieh dir mal den Code an, vielleicht hilft er dir:


uses
ShellAPI, Registry;

procedure OpenURL(Url : string);
var
ts :string;
begin
with TRegistry.Create do try
rootkey:= HKEY_CLASSES_ROOT;
OpenKey(´\htmlfile\shell\open\command´,false);
try
ts:= ReadString(´´);
except
ts:= ´´;
end;
CloseKey;
finally
Free;
end;
if ts = ´´ then Exit;
// remove quotes and commandline parameters
ts:= Copy(ts,Pos(´"´,ts)+1,Length(ts));
ts:= Copy(ts,1,Pos(´"´,ts)-1);
ShellExecute(0,´open´,pchar(ts),pchar(url),nil,sw_show);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenURL(´http://www.laberlaber.de);
end;


Der entscheidende Befehl dürfte für dich dieser sein:

ShellExecute(0,´open´,´URL´,nil,nil,sw_show);

HTH, Agent

[marianalbers]

Ich hab mal nen bisschen rumgeforscht und habe nun die Lösung :

also:

Ziemlich oben im Quelltext steht ein

"uses
Windows, Messages ... usw."

Da fügt man nun hinzu "shellapi"

und beim Onklick Ereignis gibt man nun ein:

"ShellExecute(handle,´open´,´http://www.meine-seite.de´,nil,nil,0);"


So hats bei mir funktioniert

[Manu]

Meine Rede :]

Was machst du eigentlich für ein Prog?

[marianalbers]

Ich wollte nur bei Info einen Link auf meine
Seite machen. Ansonsten probier ich noch
ziemlich rum um Erfahrungen zu sammeln.

[Manu]

Ahja, hab ich mir fast gedacht :)
Einfach immer fragen wenns Probs gibt, bisher haben wir ja alles hingekriegt :)

[czrx]

@AgentSmith:

Guck mal bei SwissDelphiCenter, wer den Code dort übermittelt hat, den Du hier gepostest hast. :D:D:D

[Manu]

Bin zu faul, sag mal...

Oder warst du das? :)

--
Ahja, tatsächlich :)
Na dann herzlich willkommen hier im Board!