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;

Forensuche nach Shellexecute.

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

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

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:

zusammenfalten · markieren

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]

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);

Hi St3lk4r,

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

markieren

Code:

[delphi][/delphi]

Einfach das um Deinen Quelltext schreiben und schon klappt das.

Der ShellExecute-Befehl sieht auch ein bisschen anders aus:

markieren

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

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.

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

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