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

[RavenIV]

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.