delphi 7 zum verlinken weiss nicht wie das geht
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
|
Re: ICH BRAUCH HILFE
:gruebel:
mit ShellExecute. |
Re: ICH BRAUCH HILFE
Hi RotesBlau, erstmal herzlich willkommen in der DP :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 :zwinker: 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 :hi: |
Re: ICH BRAUCH HILFE
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; |
Re: ICH BRAUCH HILFE
kannst du mir mal schreiben was da hin muss
begin ShellExecute('http://www.web.de') end; oder was anderes |
Re: ICH BRAUCH HILFE
Delphi-Quellcode:
Quelle: Delphi-Netzwerk
Uses ShellAPI;
ShellExecute(0, 'open', 'http://www.delphi-netzwerk.de', nil, nil, SW_SHOW); |
Re: ICH BRAUCH HILFE
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:
|
Re: ICH BRAUCH HILFE
Schau mal nach meinem Beitrag! :wink:
|
Re: ICH BRAUCH HILFE
danke noch mal das ist gut ich probiers mal aus
|
Re: ICH BRAUCH HILFE
Willkommen in der DP - Ändere bitte den Titel, darunter kann sich keiner was vorstellen :wink:
Mit folgender Funktion sollte dein Vorhaben realisierbar sein (öffnet Internetseite in neuem Fenster)
Delphi-Quellcode:
Aufruf:
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;
Delphi-Quellcode:
(Könnte eventuell in die Codelib)
OpenHttpSite('http://www.delphipraxis.net');
Suchworte: Webseite, öffnen, Homepage, Internetseite, aufrufen |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz