Internetseite öffnen

[Chrissi91]

Hallo mal wieder ;),

ich habe schon viel gesucht, aber gibt es einen Befehl oder eine Funktion von Indy, eine Homepage im Standardbrowser anzeigen zu lassen? Ich möchte keine neuen Komponenten mehr haben ;), oder eher gesagt, ich würde schon gerne, nur lässt es meine Delphi - Version leider nicht zu ... ;)

[Die Muhkuh]

Delphi-Quellcode:

uses 
  ShellApi;

// Befehl:

ShellExecute(Handle, 'open', 'www.delphipraxis.net', nil, nil, SW_SHOWNORMAL);

[Chrissi91]

Er kennt aber Shellexecute net ;)

[Die Muhkuh]

Du musst ShellApi in die Uses einbinden (hab ich aber auch geschrieben ;) )

[ichbins]

mist, spider war schneller :( :mrgreen:

[LoRd-MuldeR]

Zitat:

Zitat von Chrissi91

Er kennt aber Shellexecute net ;)

1) Du musst "ShellAPI" zu deinen uses hinzufügen, dann klappt das mit dem ShellExecute auch :wink:

2) Du darfst das "http://" nich vergessen. Das beispiel oben würde nich klappen!

Delphi-Quellcode:

uses
  ShellApi;

// Befehl:

ShellExecute(Handle, 'open', 'http://www.delphipraxis.net/', nil, nil, SW_SHOWNORMAL);

[Chrissi91]

Also ich habs einfach unter uses geschreiben, funzt aber trotzdem net ;)

edit: Weder unter project1 --> uses, noch unter unit1 --> uses, funzt es ... mach ich was falsch? :lol:

[LoRd-MuldeR]

Zitat:

Zitat von Chrissi91

Also ich habs einfach unter uses geschreiben, funzt aber trotzdem net ;)

Da hast du dich wohl vertippt :wink:

Was genau is denn die Fehlermedlung ???

[Chrissi91]

[Error] Unit1.pas(77): Declaration expected but identifier 'ShellApi' found

edit: wenn ichs nur unter project1 --> uses schreibe, kommt nur der fehler

[Error] Unit1.pas(439): Undeclared identifier: 'ShellExecute'

[ichbins]

Zeile 77? Die Uses stehen doch in Zeile 4 oder so?

mal meine ganze Internetseitenunit:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end.