Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#4

Re: ShellExecute mit Anchor nicht mit IE7

  Alt 16. Mär 2007, 08:09
Ich würde mich da, beim Programieren, nicht auf einen Browser festlegen. Am besten den
Standardbrowser verwenden.

Versuch es einfach mal so:

Delphi-Quellcode:
function LaunshStdBrowserWithURL(URL: String): BOOL;
begin
  Result := FALSE;

  if URL <> 'then
  begin
    Result :=
      (ShellExecute(
        Application.Handle,
        'open',
        PChar(URL),
        nil,
        nil,
        SW_SHOWNORMAL) >= 32);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  MyURL = '"file://c:\Programme\newLISP\newlisp_manual.html#setq"';
begin
  if not LaunshStdBrowserWithURL(MyURL) then
    ShowMessage('Sorry, Der Browser konnte nicht mit der URL starten...');
end
#setq ist eine Textmarke ?
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat