Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Internet (https://www.delphipraxis.net/121964-internet.html)

milos 7. Okt 2008 17:12


Internet
 
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.google.de', nil, nil, SW_SHOW);
end;

end.
Das funkt ja alles aber, kann man es machen das es im Standartbrowser öffnet?

Weil es startet immer im ie

Prototypjack 7. Okt 2008 17:12

Re: Internet
 
Zitat:

Zitat von milos
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.google.de', nil, nil, SW_SHOW);
end;

end.
Das funkt ja alles aber, kann man es machen das es im Standartbrowser öffnet?

Weil es startet immer im ie

Dann ist der IE dein Standardbrowser.

Grüße,
Max

milos 7. Okt 2008 17:14

Re: Internet
 
hmm
ich probier ma mozilla als standartbrowser

milos 7. Okt 2008 17:19

Re: Internet
 
OK thema geklärt kann geclosed werden

Matze 7. Okt 2008 17:21

Re: Internet
 
Wir lassen geklärte Themen in der Regel offen, falls andere Fragen dazu haben.

Btw: Es heißt übrigens "Standard". Mit "t" sieht das schrecklich aus. ;)

BullsEye 7. Okt 2008 17:52

Re: Internet
 
ggf solltest du deinem Thread einen anderen Namen geben!

Einfach den ersten Beitrag editieren ;)

Michi003 7. Okt 2008 20:09

Re: Internet
 
Zitat:

Zitat von milos
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.google.de', nil, nil, SW_SHOW);
end;

end.

Hey, ich habe dein Code mal versucht aber irrgentwie funtz er nit wirklich so...
bei mir geht er erst nach dem 5 mal Klicken auf oder gar nicht...
Hab gedacht liegt vllt. an meinem PC und habe es an ein paar anderen getestet war aber das selbe...
Woran kann das liegen?
Wo habe ich vllt. ein fehler gemacht?

Matze 7. Okt 2008 20:53

Re: Internet
 
Was gibt ShellExecute denn für einen Wert zurück? MSDN-Library durchsuchenShellExecute

Zitat:

Returns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise.
Edit: In einen halbwegs verständlichen String müsstest du die Zahl auch das so wandeln können:

Delphi-Quellcode:
SEResult := ShellExecute(...);
ShowMessage(SysErrorMessage(SEResult));
Wenn das nichts bringt, kannst du auch mal das hier versuchen aufrufen:

Delphi-Quellcode:
ShowMessage(SysErrorMessage(GetLastError));

Michi003 7. Okt 2008 21:05

Re: Internet
 
Liste der Anhänge anzeigen (Anzahl: 1)
mmh irrgentwie gehts gar nicht mehr =(

Matze 7. Okt 2008 21:08

Re: Internet
 
Beantworte doch mal die Frage bzw. nenne die Fehlermeldungen die kommen.

Die Unit "ShellAPI" solltest du auf alle Fälle einbinden, denn im Anhang ist das nicht der Fall.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:25 Uhr.
Seite 1 von 2  1 2      

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