Mit Buttons Exe und Homepage starten?

[St3lk4r]

Hallo alle zusammen,

ich bin ne hier und auch neu in der Delphi-Sprache, ich würde gerne eine Art Launcher machen.
Dafür wollt ich einen Button welcher eine Homepage aufruft machen und einen Button welcher eine
.exe datei öffnet.

Also Meine Frage:

1. Wie erstelle ich einen Button welcher eine Homepage öffnet?
2. Wie erstelle ich einen Button welcher ein .exe programm startet?


So sieht der button aus in dem Unit1.pas Fenster:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

[Luckie]

Forensuche nach Shellexecute.

[mkinzler]

Zitat:

1. Wie erstelle ich einen Button welcher eine Homepage öffnet?
2. Wie erstelle ich einen Button welcher ein .exe programm startet?

ShellExecute()
Bei ersten die Url, bei 2. die Exe als Parameter

[Luckie]

Nachtrag: Gib bitte deinem Thread einen aussagekräftigen Titel, der etwas über das Problem aussagt. Du kannst da zu einfach deinen ersten Beitrag editieren.

[St3lk4r]

Also ich habs jetzt mal mit einer .exe probiert hab oben bei uses shellapi hinzugefügt und : ShellExecute ('C:\Windows\explorer.exe'); eingefügt doch wenn ich es testen will, wird der komplete Shellexecute befehl rot ervorgehoben.


DIES IST DIE KOMPLETTE .pas file:

Delphi-Quellcode:

unit Unit1;

interface

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

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 ('C:\Windows\explorer.exe');

end;

end.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

[patti]

So sollte es gehen:

ShellExecute(Application.Handle,nil,pchar('C:\Windows\explorer.exe'),nil,nil,sw_normal); P@Tti

[EDIT1]: Wenn C:\Windows\explorer.exe nicht gefunden wird, dann passiert nach dem Button-Klick gar nichts, ansonsten wird Programm geöffnet (oder Datei mit dem verknüpften Programm).

Bei ner URL (Homepage) gehts so:

ShellExecute(Application.Handle, 'open', PChar('www.patti-k.de'), nil, nil, SW_ShowNormal);

[Die Muhkuh]

Hi St3lk4r,

hier im Forum gibt es einen BB-Code, der Deinen Quelltext wie in Delphi formatiert:

Code:

[delphi][/delphi]

Einfach das um Deinen Quelltext schreiben und schon klappt das.

Der ShellExecute-Befehl sieht auch ein bisschen anders aus:

Delphi-Quellcode:

// Für eine Datei
ShellExecute(Application.Handle, 'open', 'C:\Windows\Explorer.exe', nil, nil, SW_SHOWNORMAL);

// Für eine URL
Shellexecute(Application.Handle, 'open', 'http://www.delphipraxis.net', nil, nil, SW_SHOWNORMAL);

MfG,

Manuel

[Luckie]

Zitat von St3lk4r:

Also ich habs jetzt mal mit einer .exe probiert hab oben bei uses shellapi hinzugefügt und : ShellExecute ('C:\Windows\explorer.exe'); eingefügt doch wenn ich es testen will, wird der komplete Shellexecute befehl rot ervorgehoben.

Ich hatte doch geschrieben, dass du die Forensuche benutzen sollst, was du aber offensichtlich nicht getan hast.

[St3lk4r]

Doch hab ich nur es hat nie funktoiniert sorry, aber mit euren Codes hat es geklappt vielen dank

[Luckie]

Ich kann mir nicht vorstellen, dass so ein fehlerhafter Code unkommentiert im Forum zu finden ist.