Shellexecute und If

stigge · Beiträge: 426 WinXP Delphi 2007

Also hier bin ich mal wieder^^.
Dieses Mal lautet meine Frage:

Wie kann ich es machen, das wenn in edit1.text "testwort" steht es mir das Programm C:\winrar.exe ausführt? Ich habe schon selber rumprobiert, aber es klappt noch nicht.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

...shellapi...

edit1.onchange (so ungefähr)
if edit1.text := ´testwort´ then
shellexecute (handle, ´winrar.exe´, ´C:\´, nil, Sw_Normal)

Jemand Ahnung was falsch ist?
Und am besten wäre natürlich der funktionierende Quellcode^^.

Danke im voraus,

Stigge

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Also falsch sind auf jeden fall deine Anführungsstriche für die Strings. die gehen so: ' und nicht ´

markieren

Delphi-Quelltext

1:	if Edit1.Text = 'testwort' then shellexecute (handle, 'c:\programme\winrar\winrar.exe', nil{´C:\´}, nil, Sw_Normal);

für was hast du denn als dritten Parameter das Laufwerk C eingegeben?

Außerdem weiß ich nicht, ob winrar.exe ausgeführt wird, wenn du bloß den Dateinamen und nicht den ganzen Pfad angibst!

Ach ja, und Edit1.OnChange brauchst du nicht aufzurufen! Das wird doch schon vom Edit1 selber aufgerufen, worauf hin deine Procedure Edit1Change(Sender: TObject) aufgerufen wird.

jaenicke · Verfasst: Sa 06.01.07 03:12

Jakob Schöttl hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

if Edit1.Text = 'testwort' then 
  shellexecute (handle, 'c:\programme\winrar\winrar.exe', nil{´C:\´}, nil, Sw_Normal);

ShellExecute erwartet einen Parameter mehr... ;-)

markieren

Delphi-Quelltext

1:
2:

if Edit1.Text = 'testwort' then 
  shellexecute (handle, 'open', 'c:\programme\winrar\winrar.exe', nil{´C:\´}, nil, Sw_Normal);

Und was du nicht erwähnt sondern stillschweigend korrigiert hast: Das := ist eine Zuweisung, in der if-Abfrage sollen aber die beiden Werte verglichen werden. Und das geht mit einem einfachen Gleichheitszeichen ohne den Doppelpunkt. Das wollte ich dann mal noch dazusagen...

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

jaenicke hat folgendes geschrieben:

Jakob Schöttl hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

if Edit1.Text = 'testwort' then 
  shellexecute (handle, 'c:\programme\winrar\winrar.exe', nil{´C:\´}, nil, Sw_Normal);

ShellExecute erwartet einen Parameter mehr... ;-)

Achja, naja, sowas kann man mal vergessen...

jaenicke hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

if Edit1.Text = 'testwort' then 
  shellexecute (handle, 'open', 'c:\programme\winrar\winrar.exe', nil{´C:\´}, nil, Sw_Normal);

Und was du nicht erwähnt sondern stillschweigend korrigiert hast: Das := ist eine Zuweisung, in der if-Abfrage sollen aber die beiden Werte verglichen werden. Und das geht mit einem einfachen Gleichheitszeichen ohne den Doppelpunkt. Das wollte ich dann mal noch dazusagen...

Das hab ich übersehen, sonst hätte ich es auch noch dazugeschrieben

Hoffentlich gehts jetzt bei user profile icon

stigge...

aim65 · Beiträge: 312 Win 9x, Win XP Delphi 3pro, 7PE

Ich benutze meistens auch den Errorcode, den ShellExecute zurückgibt:

markieren

Delphi-Quelltext

1:
2:
3:

if edit1.text := 'testwort' then
  if ShellExecute(Handle,'Open','...\winrar.exe',nil,nil,SW_SHOW)
     = SE_ERR_FNF then  //....Errormeldung, z.B. '...nicht gefunden'

stigge · Beiträge: 426 WinXP Delphi 2007

Also der Text war kurz von Hand eingetippt, also ich habe schon ' benutzt.
'open' habe ich auch vergessen hier einzutippen.
*mist*e.....
Aber meine eigentliche Frage war:

Wie verwendet man die shellexecute-funktion in Verbindung mit if.
Also
if edit1.text := 'testtext' then
shellexecute (handle, 'open', 'winrar.exe', 'C:\', nil, SW_NORMAL);

Warum funktioniert das nicht?
Ich versteh's nicht.

jaenicke · Verfasst: Sa 06.01.07 22:34

Das hat nix mit dem Befehl ShellExecute zu tun... Das habe ich doch aber bereits gesagt!!

jaenicke hat folgendes geschrieben:

Das := ist eine Zuweisung, in der if-Abfrage sollen aber die beiden Werte verglichen werden. Und das geht mit einem einfachen Gleichheitszeichen ohne den Doppelpunkt. Das wollte ich dann mal noch dazusagen...

Du willst etwas vergleichen und nicht etwas zuweisen! Also nicht := sondern =

markieren

Delphi-Quelltext

1:	if edit1.text = 'testtext' then

stigge · Beiträge: 426 WinXP Delphi 2007

Also mein momentaner Quelltext ist:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Edit1Change (Sender: TObject);
begin
if edit1.text = ´123456´ then
shellexecute (handle, ´open´, ´winrar.exe´, ´C:\´, nil, SW_SHOWNORMAL);
end;

Also ich habe im original Quelltext schon die richtigen ´ benutzt. Finde das Zeichen auf meinem PPC aber nicht und ich kann momentan nur damit ins Netz.(so nebenbei)
Das Programm lässt sich auch starten aber wenn ich dann 123456 eingegeben habe passiert nichts. Warum?
Ich habe das ganze shellexecute-zeug schon durch close ersetzt und damit gehts. Shellapi ist auch eingebunden!

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

aim65 · Beiträge: 312 Win 9x, Win XP Delphi 3pro, 7PE

Sieh Dir doch mal das Beispiel von Jaenicke genau an - speziell den Pfad zur Datei.
Wieso hast Du denn immer noch das "C:\" zusätzlich hinter dem Dateinamen?

MarkusBauer · Beiträge: 70 Win XP Pro Delphi 7 PE+Indy

Versuchs mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Edit1Change (Sender: TObject);
begin
if edit1.text = '123456' then
shellexecute (Application.handle, 'open', 'C:\winrar.exe', 'C:\', '', SW_NORMAL);
end;

stigge · Beiträge: 426 WinXP Delphi 2007

Jo klappt jetzt, danke für die Hilfe.
Bis demnächst,

Stigge

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme