Schon einmal vorab: Ich bin (noch) ein ziemlicher Noob. Wäre aber trotzdem nett, wenn ich eine gute Antwort bekäme.

Also ich habe folgende Frage:

Ich möchte ein Programm schreiben, das wenn man einen Knopf drückt das Programm startet, dessen Pfad in edit1.text steht. Ich weiß allerdings nicht den Code, um ein externes Programm zu starten. Kann mir es jemand anhand eines Beispiels erklären? Danke im voraus!


Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 03.01.2007 um 10:12

Danke für die Antwort. Werde es gleich mal ausprobieren!
Allerdings würde mich auch mal interesieren, was das alles heißt in dem Code...?

ShellApi ist die Unit, die eingebunden werden muss, damit das funktioniert.

ShellExecute Ist der Befehl, der ein Programm ausführt. Also das, was du machen willst. Die Parameter im einzelnen bring ich auch immer durcheinander. Schau da am besten in der Hilfe nach. Die sorgen dafür was wo wie getan wird. In deinem Fall wird ein Programm geöffnet (open) und das Programmfenster normal angezeigt (SW_NORMAL).

Dazu findet man auch jede Menge mit der Suche...

Noch eine Erklärung zu dem "PChar(":
In den einfachen Anführungszeichen steht ein String. Der Befehl ShellExecute erwartet jedoch einen PChar. Das ist so etwas ähnliches wie ein String, nur in etwas anderer Form. Windows selbst benutzt in den zur Verfügung gestellten Funktionen eben PChar, deshalb musst du immer die Strings zu PChars casten. Casten bedeutet, dass du einen bestimmten Variablentyp hast (hier einen String) und ihn in einen anderen Typ (hier PChar) umwandeln willst.

Falls du genauer wissen willst, was der Unterschied zwischen String und PChar ist:
www.dsdt.info/grundl.../sprache/strings.php

Zu den Parametern: (ich hab sie mir inzwischen gemerkt )
Als erstes übergibst du das Handle eines Fenster, nämlich deines Fensters von wo du aus den Befehl ausführst.
Als zweites, was mit dem angegebenen Befehl gemacht werden soll. Mit open sagst du, dass "das passieren soll, was bei einem Doppelklick im Windows Explorer passiert".
Nun muss der Befehl an sich übergeben werden, danach die Parameter ('/a /v' zum Beispiel) und dann noch der Ordner, in dem das ganze ausgeführt werden soll. Zum Beispiel kannst du als Befehl cmd.exe (die Kommandozeile also) nehmen. Wenn du dann als Arbeitsordner 'c:\windows' angibst, dann sollte die Kommandozeile mit diesem Ordner als aktuellen Ordner gestartet werden.
Als letztes kommt noch wie die Zielanwendung gestartet werden soll: maximiert, minimiert, versteckt, normal, ...

Hier findest du mehr dazu:
msdn.microsoft.com/l...ons/shellexecute.asp
Das ist die Referenz von Microsoft selbst, für alle Systembefehle kannst du dort am besten nachsehen.

Aha, so das Grobe habe ich jetzt verstanden.
Allerdings funktionierts immer noch nicht so richtig.
Ich kriege immer noch 3 Fehler und zwar 3 Mal ungültige Typenumwandlung.
Liegt's vielleicht daran, das ich Delphi 8 Architekt benutze?
An diesem shellapi kanns nicht liegen, des habe ich ganz sicher richtig eingebaut.
Kann mir nicht jemand den Code erstellen?
Ich möchte einfach nur das es mir bei Druck auf button1 ganz normal das Programm rar.exe im Verzeichnis C :// Winrar / öffnet.

Normal müsste das ja ganz einfach gehen aber ich glaube ich bin trorzdem zu blöd dafür.
Vielleicht blick ich's ja wen ich einen funktionierenden Code bekomme (und wenn ich die Erklärung von jaenicke genau durchgelesen habe^^).

Stigge

An welcher Stelle deines Codes bekommst du die Typumwandlungsfehler? Den solltest du da immer mit angeben.

Aber ich werds mal mit .NET ausprobieren...

Ich mache Fortschritte aber ich habe immernoch ein Problem:
Wenn ich auf den Button klicke bekomme ich einen Fehler:
"Ungültige Variantentypkonvertierung der Variante Null in String."
shellapi habe ich eingebunden.
Ich benutze übrigens immer eine VCL-Formularanwendung (falls dies wichtig sein sollte).
Mein Quelltext:


Und was ist jetzt falsch?

ersetz mal "C://" durch "C:\"!


lg el

//edit:

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

elundril hat folgendes geschrieben:

ersetz mal "C://" durch "C:\"! lg el

Ok ich probiers mal...

nil nicht NULL! So war es doch oben auch...
Null ist in Delphi .NET ein Variant-Typ, der aber kein String sein kann.

So gehts:

elundril hat folgendes geschrieben:

ersetz mal "C://" durch "C:\"! lg el //edit: markieren Delphi-Quelltext     1: shellExecute(Handle,PChar('open'),PChar('C:\Winrar.exe'),nil,nil,SW_NORMAL);

Der Cast zu PChar ist in Delphi 8 nicht nur unnötig sondern nicht möglich . Auch Variablen mit + zu verketten geht ohne den Cast. Und nur ohne!

Mal diesen Quelltext ausprobieren....

*grml* ich mag delphi 8 nicht!

lg el

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

elundril: Ich auch nicht mehr^^.
jaenicke: Rekord an Fehlern^^. 2 Mal die Typenumwandlung und einmal "es gibt keine überladene version von shellexecute, die man mit diesen argumenten aufrufen könnte".



Ich verzweifel langsam.............

Ähh, ich hab es hier in Delphi 8 ausprobiert... Es geht!! Kann es sein, dass du den Quelltext aus dem Zitat anstatt meinem genommen hast?

Meiner ist das:

jaenicke hat folgendes geschrieben:

So gehts: markieren Delphi-Quelltext     1:   ShellExecute(Handle, 'open', 'cmd.exe', '/k dir', nil, SW_NORMAL);

Ohne diese vielen PChar habe ich viel weniger Fehler...

EDIT:

Oh, stimmt...falscher Text^^

Ich habe doch schon geschrieben, dass der Cast in Delphi 8 nicht nur unnötig sondern unmöglich ist...

jaenicke hat folgendes geschrieben:

Der Cast zu PChar ist in Delphi 8 nicht nur unnötig sondern nicht möglich . Auch Variablen mit + zu verketten geht ohne den Cast. Und nur ohne!

jaenicke hat folgendes geschrieben:

Ähh, ich hab es hier in Delphi 8 ausprobiert... Es geht!! Kann es sein, dass du den Quelltext aus dem Zitat anstatt meinem genommen hast? Meiner ist das: jaenicke hat folgendes geschrieben: So gehts: markieren Delphi-Quelltext     1:   ShellExecute(Handle, 'open', 'cmd.exe', '/k dir', nil, SW_NORMAL);

Danke Mann, es funktioniert!
Endlich hab ich's geblickt!
Und sorry für die Umstände!

Bis zum nächsten Mal (und das ist wahrscheinlich bald^^),


Stigge