Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Falscher Browser wird gestartet (https://www.delphipraxis.net/74873-falscher-browser-wird-gestartet.html)

pseudo-nym 9. Aug 2006 23:02


Falscher Browser wird gestartet
 
Hallo,

ich habe mir ein Programm mit Buttons zum Aufrufen von Websites zusammengeschraubt, aber es will noch nicht ganz so wie ich will. Wenn ich es nämlich außerhalb von Delphi starte, werden alle Sites außer google im Internet Explorer statt in Firefox aufgerufen.

Delphi-Quellcode:
procedure TFInternet.BtnGooogleClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open','C:/Programme/Mozilla Firefox/firefox.exe', 'www.google.de', nil, SW_MAXIMIZE);
  Close;
end;

procedure TFInternet.BtnZeitungClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'C:/Programme/Mozilla Firefox/firefox.exe', 'www.sueddeutsche.de', nil, SW_MAXIMIZE);
  Close;
end;

procedure TFInternet.BtnArcorClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open','C:/Programme/Mozilla Firefox/firefox.exe', 'http://www.arcor.de/login/login.jsp', nil, SW_MAXIMIZE);
  Close;
end;

procedure TFInternet.BtnWikiClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open','C:/Programme/Mozilla Firefox/firefox.exe', 'www.wikipedia.de', nil, SW_MAXIMIZE);
  Close;
end;

procedure TFInternet.BtnBrowseClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open','C:/Programme/Mozilla Firefox/firefox.exe', PChar(Edit1.Text), nil, SW_MAXIMIZE);
  Close;
end;
Falscher Alarm! Code funktioniert, hatte nur noch eine Verknüpfung auf eine alte Version stehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:33 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