Problem zu ShellExecute

[zecke]

Nun ich habe einen Dateipfad und möchte die *.exe starten. Habe in der CodeLib einen Beitrag gefunden wie man ShellExecute anwendet und mit notepad.exe funktioniert das auch, aber mit einer anderen Exe (einfach zB "wurst.exe" anstelle von "meine.exe" oder einem ganzen Dateipfad (in der Form "C:\Dokumente und Einstellungen\Eigene Dateien\mettwurst\schmeckt\nicht.exe") bekomme ich es nicht zum laufen, also die exe wird nicht gestartet.

Kann mir jemand ein Beipsiel zeigen wie ich eine Echse per programmpfad aufrufen kann?

Folgendes habe ich schon erfolglos probiert:

Delphi-Quellcode:

...

b:=Daten.Pfad;
a:=PChar(b);

...

ShellExecute(Handle, nil, a, nil, nil, SW_SHOWNORMAL));

...

edit: fehler im befehl

[3_of_8]

Ja also so kann das nicht gehen: Die zweite Klammer bei ShellExecute muss weg.

Probiers mal so:

shellexecute(Handle,'open',PChar('C:/flump.exe'),nil,nil,SW_SHOWNORMAL);

[ripper8472]

zecke, was *genau* sagt der compiler? deine fehlerbeschreibung war quasi nonexistent.

[3_of_8]

Also mein Code oben funzt unter Delphi7 PE ohne Probleme.

[zecke]

Der Compiler selbst hat kein Problem, wenn ich das Programm ausführe bekomme ich beim Laden eines Eintrags den Runtime Error "I/O error 131" - mehr darf ich nicht erfahren :/

bei mir scheint das nicht zu funktionieren.

Delphi-Quellcode:

var a : PChar;
b : string;

...

b:=Daten.Pfad; // enthält den Pfad in Form von C:\pillepalle\blah.exe
a:=PChar(b);

...

shellexecute(Handle,'open',a,nil,nil,SW_SHOWNORMAL);

//oder

shellexecute(Handle,'open','a',nil,nil,SW_SHOWNORMAL);

//oder

shellexecute(Handle,'open', PChar(b),nil,nil,SW_SHOWNORMAL);

Beides will nicht.

[ManuMF]

Probiers mal ohne 'open'

Gruß,
ManuMF

[zecke]

Wenn ich das einfach weglasse bekomme ich die Compiler-Meldung: "Incompatible Types: 'Integer' and 'PAnsiChar'"

[zecke]

Sache erledigt! Es hat geklappt... es lag an mir und nicht an TEchnik wie in 99% alelr Fälle . Den Fehler werde ich jetzt nicht verraten - das wäre zu peinlich

edit: es hat übrigens mit shellexecute(Handle, nil, a,nil,nil,SW_SHOWNORMAL); geklappt

[ManuMF]

Sorry, das meinte ich natürlich. nil statt 'open'.

Gruß,
ManuMF

[3_of_8]

@Zecke: Na komm schon. Es gibt keine peinlichen Fehler!