delphi 7 zum verlinken weiss nicht wie das geht

[ROTESBLAU]

ich habe ein problem ich möchte mit delphi 7 einen button mit ner internet seite verlinken wie geht das währe nett wenn ihr mir hilft

[TopDogg]

mit ShellExecute.

[phlux]

Hi RotesBlau, erstmal herzlich willkommen in der DP
Und jetzt zum Bösen Teil, ändere bitte die Überschrift deines Threads in eine aussagekräftige Überschrift ab
Des weitere kann ich dir die Suchfunktion hier im Forum ans Herz legen, da düftest du bereits ähnliche Threads zum Thema URL öffnen finden
Falls das immer noch nicht hilft, kannst du einen Blick in unsere Code Lib werfen, vielleicht steht dort was drin was du suchst

Viel Spass noch im Forum,

mfg phlux

[S2B]

Bitte zuerst mal nen gescheiten Titel eingeben!

Aber jetzt zum Thema: Willst du die Internetseite im Standardbrowser öffnen? Wenn ja, dann mach es doch einfach mit ShellExecute:

Delphi-Quellcode:

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,'open',PChar('www.delphipraxis.net'),'',nil,SW_SHOW);
end;

[ROTESBLAU]

kannst du mir mal schreiben was da hin muss

begin
ShellExecute('http://www.web.de')
end;


oder was anderes

[a.vollmer]

Delphi-Quellcode:

Uses ShellAPI;

ShellExecute(0, 'open', 'http://www.delphi-netzwerk.de', nil, nil, SW_SHOW);

Quelle: Delphi-Netzwerk

[toms]

Herzlich Willkommen in der DP!

Durchsuche mal das Forum nach ShellExecute Link


Bitte ändere noch den Titel "ICH BRAUCH HILFE".
Jeder der eine Frage stellt braucht Hilfe.

Verhaltenskodex & FAQ

Zitat:

2.3.2.2 -
[...]Dies gilt insbesondere auch für die Titel Deiner Beiträge. Aus Titeln wie "Hilfe" oder "Ich kapier's nicht" kann niemand herauslesen, worum es bei Deinem Anliegen geht. Aber genau das ist unbedingt notwendig.

[S2B]

Schau mal nach meinem Beitrag!

[ROTESBLAU]

danke noch mal das ist gut ich probiers mal aus

[SirThornberry]

Willkommen in der DP - Ändere bitte den Titel, darunter kann sich keiner was vorstellen
Mit folgender Funktion sollte dein Vorhaben realisierbar sein (öffnet Internetseite in neuem Fenster)

Delphi-Quellcode:

procedure OpenHttpSite(AURL: String);
var LRegistry: TRegistry;
    LBrowser: String;
    LStart, LEnd: Integer;
begin
  LRegistry := TRegistry.Create(KEY_READ);
  try
    LRegistry.RootKey := HKEY_CLASSES_ROOT;
    if LRegistry.OpenKey('http\shell\open\command', false) then
    begin
      LBrowser := LRegistry.ReadString('');
      if pos('"', LBrowser) > 0 then
      begin
        LStart := pos('"', LBrowser);
        LEnd := PosExt('"', LBrowser, LStart + 1);
        if LEnd > 0 then
           LBrowser := copy(LBrowser, LStart + 1, LEnd - (LStart + 1));
      end;
      LRegistry.CloseKey;
    end;
  finally
    LRegistry.Free;
  end;
  if ShellExecute(0, 'open', PChar(LBrowser), PChar(AUrl), nil, SW_SHOW) <= 32 then
     ShellExecute(0, 'open', PChar(AUrl), nil, nil, SW_SHOW)
end;

Aufruf:
OpenHttpSite('http://www.delphipraxis.net'); (Könnte eventuell in die Codelib)
Suchworte: Webseite, öffnen, Homepage, Internetseite, aufrufen