Programm öffnen beim Button-Klick

[Avicenna]

Hallo,
ich bin Delphi-Anfänger. Ich benutze Borland Delphi 5. Ich will erreichen, dass, wenn ich auf einen Button klicke, das Fenster "Info über Windows" (winver) öffnet (dieses Fenster öffnet sich, wenn man bei Start --> Ausführen --> winver eingibt).

Bei Visual Basic ging dies ganz leicht (da sich winver.exe im WINDOWS\system32-Verzeichnis befindet).


Viele liebe Grüße,
Avicenna

[SirThornberry]

Herzlich willkommen in der DP :dp:
hast du schonmal geschaut ob du etwas über die Suche findest?
Ein Programm kann man mit der Funktion ShellExecute, CreateProcess, ShellExecuteEx etc. öffnen. Die einfachste Variante ist wohl über ShellExecute.

[DeddyH]

Eine einfache Möglichkeit (Du musst dazu die Unit ShellAPI in die uses-Liste aufnehmen):

Delphi-Quellcode:

procedure TMainForm.Button1Click(sender: TObject);
begin
  ShellExecute(Handle,'open','winver.exe',nil,nil,SW_SHOWDEFAULT);
end;

[edit]As SirThornberry said ;) [/edit]

[Avicenna]

Ich danke euch für eure Antworten; aber ich weiß nicht, wie

Zitat:

(Du musst dazu die Unit ShellAPI in die uses-Liste aufnehmen):

das mache. Kann mir das jemand erklären?

Gruß,
Avicenna

[Bastler]

Die Uses-Liste steht ganz oben in deiner Unit... meist stehen Sachen wie:

Delphi-Quellcode:

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

Schon drin, und da schreibst du einfach die ShellApi zu...

also so:

Delphi-Quellcode:

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

[Avicenna]

Vielen vielen Dank, es klappt :-D

[RavenIV]

Zitat:

Zitat von Avicenna

Ich danke euch für eure Antworten; aber ich weiß nicht, wie

Zitat:

(Du musst dazu die Unit ShellAPI in die uses-Liste aufnehmen):

das mache. Kann mir das jemand erklären?

Gruß,
Avicenna

Wie wäre es, wenn Du Dir erst mal ein gutes Delphi-Buch oder ein Delphi-Einsteiger-Tutorial zu Gemüte führst?
Wenn wir Dir erst die Grundlagen der (Delphi) Programmierung beibringen müssen, wird das mühsam...

[Avicenna]

Ich habe parallel Informatik in der Schule, da fangen wir gerade mit Delphi an.