ShellExecute startet das Programm nicht...

[DRPEnc]

Ich hab ein Problem! In meinem Programm kann man mit Opendialoge pfade bestimmen.
Sobald ich einen ausgeführt hatte kann ich folgenden Befehl:

Delphi-Quellcode:

ShellExecute(0, Nil, PChar('makeAVIS.exe'), Nil, Nil, SW_NORMAL);

nicht mehr ausführen.

Wie kann ich die EXE trotzdem öffnen?

[Wheelie]

Musst die Eigenschaft ofNoChangeDir des OpenDialogs True setzen:

Delphi-Quellcode:

OpenDialog1.Options.ofNoChangeDir := True;

[DRPEnc]

lol und wie binde ichs ein... bekomme nur fehlermeldungen...

Delphi-Quellcode:

//Open supported files
procedure TForm6.Button3Click(Sender: TObject);
begin
If Not OpenDialog1.Execute Then Exit;

Close;
//Debug
form1.edit1.text:='   ' + '"' + OpenDialog1.FileName + '"'
//OpenDialog1.Options.ofNoChangeDir:= True;

end;

hmm oder ich kopier die exe nach C:\ im install programm. Somit kann ich den Pfad angeben.

[Die Muhkuh]

Verrat mir mal wie das gehen soll.

Du beendest das Programm und dann soll es noch was ausführen?

[CalganX]

Hi,
@Spider: dem Formularnamen nach, beendet er nicht das Programm, sondern nur ein Formular.

@DRPEnc:
Versuchs mal so:

Delphi-Quellcode:

OpenDialog1.Options := OpenDialog1.Options + [ofNoChangeDir];
if OpenDialog1.Execute then begin
  Form1.Edit1.Text := OpenDialog1.FileName;
  // hier kannst du dann noch was Ausführen oder so...
  Close;
end;

Ansonsten rate ich dir immer den gesamten Pfad anzugeben:

Delphi-Quellcode:

ShellExecute(self.Handle, 'open', PChar(ExtractFilePath(Application.ExeName) + 'datei.exe'), nil, nil, SW_SHOW);

Chris

[Matze]

Anstelle von

Delphi-Quellcode:

...ExtractFilePath(Application.ExeName)...

ist es besser

Delphi-Quellcode:

ParamStr(0)

zu verwenden.

[Die Muhkuh]

@Chris,


seit wann kann ein geschlossenes Formular noch Code ausführen? Mit visible oder Hide ja aber net wenns zu ist.

[MathiasSimmack]

Zitat:

Zitat von Matze

Anstelle von

Delphi-Quellcode:

...ExtractFilePath(Application.ExeName)...

ist es besser

Delphi-Quellcode:

ParamStr(0)

zu verwenden.

Willst du damit sagen: "ExtractFileName(Application.ExeName)" ist mit "paramstr(0)" identisch? Oder willst du darauf hinaus, dass man anstelle von "Application.ExeName" "paramstr(0)" nehmen soll? Ich tippe mal auf letzteres und halte dir vor, dass das das (:shock:) gleiche ist. Hinter "Application.ExeName" steckt auch bloß "paramstr(0)". Der Vorteil bei letzterem ist allerdings, dass du für nonVCL- und Konsolenprogramme nicht umdenken musst, weil es da ja das TApplication-Objekt nicht gibt.

[Matze]

:duck:

Ich meinte das 2.
Ich habe hier mal gelesen, dass ParamStr(0) besser wäre, dann stimmt das wohl nicht. :oops:

Sorry

[DRPEnc]

Hmm k, ich hab einen festen Ordner nun, in dem sich die Exe befindet.
Nun will ich auch DVD2AVI durch mein app öffnen. Auch ne exe, nur öffnet sich die nicht obwohl ich den Pfad angegeben hatte...

Delphi-Quellcode:

ShellExecute(0, Nil, PChar('C:\DRPEncFiles\DVD2AVIDRPEnc.exe'), Nil, Nil, SW_NORMAL);