AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Wie lasse ich ein anderes Programm laufen?
Thema durchsuchen
Ansicht
Themen-Optionen

Wie lasse ich ein anderes Programm laufen?

Ein Thema von qb-tim · begonnen am 10. Mär 2006 · letzter Beitrag vom 16. Mär 2006
Antwort Antwort
Benutzerbild von qb-tim
qb-tim

Registriert seit: 3. Mär 2006
Ort: Deutschland
280 Beiträge
 
Delphi 6 Professional
 
#1

Wie lasse ich ein anderes Programm laufen?

  Alt 10. Mär 2006, 21:30
Hallo,

dies ist das erste Mal für mich...

Ich programmiere mit Delphi 6.0 Proffesional seit zwei Wochen und schreibe schon "sehr beeindruckende" (Zitat: Mathematik-/Informatiklehrer).

Jetzt zu meiner Frage:

Wie kann ich mit Delphi auf ButtonClick (siehe unten) ein anderes Programm starten lassen?
(In QuickBasic war gab es die Befehle "RUN" und "SHELL")
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
 //ein Befehl, der einen anderen Programm startet
end;
gez. TIM
  Mit Zitat antworten Zitat
Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#2

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 10. Mär 2006, 21:32
Delphi-Quellcode:
uses ShellAPI;

ShellExecute(Application.Handle, nil, 'Programm', 'Parameter', 'Pfad', SW_SHOWNORMAL);
Gruß,
ManuMF
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat
Benutzerbild von qb-tim
qb-tim

Registriert seit: 3. Mär 2006
Ort: Deutschland
280 Beiträge
 
Delphi 6 Professional
 
#3

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 11. Mär 2006, 08:57
Nehmen wir an ich möchte "C:\Programme\project1.exe" starten; was muss ich an...
Zitat:
ShellExecute(Application.Handle, nil, 'Programm', 'Parameter', 'Pfad', SW_SHOWNORMAL);
...ändern?
  Mit Zitat antworten Zitat
Waldteufel
(Gast)

n/a Beiträge
 
#4

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 11. Mär 2006, 09:07
Hi QB-Tim.

ShellExecute(Application.Handle, nil, 'C:\Programme\project1.exe', nil, 'C:\Programme', SW_SHOWNORMAL); Statt dem 2. Parameter nil könnte hier auch 'print' stehen, falls du eine Datei drucken willst, oder 'explore', wenn du einen Ordner im Explorer öffnen willst.
Statt SW_SHOWNORMAL wäre hier auch z.B. SW_HIDE möglich, damit die Anwendung im Hintergrund unsichtbar läuft.

Wie du siehst, gibt es hier viel mehr Möglichkeiten als in QB.
  Mit Zitat antworten Zitat
Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#5

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 11. Mär 2006, 12:31
Hallo,

kleine Korrektur : wenn die Pfadangabe drin ist, muss sie nicht nochmals angegeben werden.
ShellExecute(Application.Handle, nil, 'project1.exe', nil, 'C:\Programme', SW_SHOWNORMAL); oder ebenShellExecute(Application.Handle, nil, 'C:\Programme\project1.exe', nil, nil, SW_SHOWNORMAL); Gruß,
ManuMF
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat
Waldteufel
(Gast)

n/a Beiträge
 
#6

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 11. Mär 2006, 12:37
@ManuMF: Bist du dir sicher?

Nehmen wir mal an, es existiert sowohl im aktuellen Verzeichnis als auch unter C:\Programme eine Datei namens project1.exe.

Wird dann bei ShellExecute(Application.Handle, nil, 'project1.exe', nil, 'C:\Programme', SW_SHOWNORMAL); die unter C:\Programme gestartet, oder die im aktuellen Arbeitsverzeichnis, aber mit dem Arbeitsverzeichnis C:\Programme?
  Mit Zitat antworten Zitat
Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#7

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 11. Mär 2006, 12:40
Eigentlich schon

Dann wird die EXE in C:\Programme gestartet, soweit ich weiß. Für das gestartete Programm ist das dann auch das Arbeitsverzeichnis.

Gruß,
ManuMF

[edit]Ich hab es ausprobiert. Wenn die gewünschte Datei in einem anderen Verz. liegt als dem aktuellen, is es egal, ob man den Pfad als Pfad mitgibt oder Pfad leer lässt und als Namen mitgibt.[/edit]
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#8

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 16. Mär 2006, 15:03
Kann ich eigentlich damit auch einen Wert für ParamStr(1) übergeben?

edit ähm ich meinte 1 ^^ /edit
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 16. Mär 2006, 15:08
Zitat von xZise:
Kann ich eigentlich damit auch einen Wert für ParamStr(0) übergeben?
Code:
ShellExecute(Application.Handle, nil, 'Programm', [b]'Parameter'[/b], 'Pfad', SW_SHOWNORMAL);
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#10

Re: Wie lasse ich ein anderes Programm laufen?

  Alt 16. Mär 2006, 15:11
Okay Danke ^^

(hatte mir das schon irgendwie sowetwas gedacht )
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz