ShellExecute: Programm startet und schmiert ab

[Nils_13]

Hi,

ich möchte mit folgendem Code ein anderes Programm starten. Dieses schmiert jedoch sofort ab. Habt ihr eine Idee warum ? In manchen Projekten funktioniert der Code, in diesem und dem Standardprojekt von Delphi7 allerdings nicht.
ShellExecute(0, 'open', PChar(s), '', nil, SW_SHOWNORMAL);

[Die Muhkuh]

Hi,

das gestartete Programm schmiert ab?

Welchen Rückgabewert hat ShellExecute? Bringt das andere Programm eine Fehlermeldung?

[Nils_13]

Es gibt keine Fehlermeldung von ShellExecute (Rückgabewert 42). Bei bestimmten Programmen gibt es eine Fehlermeldung, bei anderen wiederum nicht.

Edit: Bei meinen eigenen Programmen tritt der Fehler teilweise auf. Ich sehe allerdings keinen Grund dafür. Es werden zumindest Meldungen ausgegeben, die zeigen, dass es am ShellExecute liegen muss.

[DeddyH]

Mal den Rechner neu gestartet? Ich kann an der einen Zeile Source nichts Fehlerträchtiges entdecken.

[littleDave]

Vielleicht hat das Programm ein Problem damit, dass du den aktuellen Ordner für die Instanz nicht setzt (nil-Parameter). Wenn ich ShellExecute aufrufe, mach ich es eigentlich immer gleich:

Delphi-Quellcode:

function ExecuteFile(aFileName, aParameters: string; aDirectory: string = ''; aExecMode: string = 'open'): integer;
var Folder: string;
begin
  Folder := aDirectory;
  if Folder = '' then
     Folder := ExtractFileDir(aFileName);
  result := ShellExecute(0, PChar(aExecMode), PChar(aFileName), PChar(aParameters), PChar(Folder), SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject)
var ExecResult : integer;
begin
  ExecResult := ExecuteFile(Edit1.Text, '');
  if ExecResult < 32 then
     // Fehlerbehandlung
end;

[SirThornberry]

ob nil oder ein Leerstring spielt keine Rolle. Vielmehr könnte es daran liege das einige Programmierer mit relativen Pfadangaben arbeiten und somit bei falschem Arbeitsverzeichnis (also Arbeitsverzeichnis <> Exe-Programmverzeichnis) bestimmte Dateien nicht gefunden werden.

Warum schenierst du dich eigentlich uns die genaue Fehlermeldung mitzuteilen? Willst du nicht das wir dir bei der Problemlösung helfen?

[Nils_13]

Danke littleDave, der Code ist nicht nur schön, sondern funktioniert auch. Dass es irgendetwas mit den Parametern zu tun hat, dachte ich mir bereits, aber daran nicht.
SirThornberry, ich habe oben gesagt, es gäbe keine direkte Fehlermeldung, es unterscheide sich von Programm zu Programm. Der Code war 42, was umgewandelt mit SysErrorMessage einen Leerstring ergibt.
Dann danke an den Rest für die Hilfsversuche!

[Luckie]

Zitat von Nils_13:

Bei bestimmten Programmen gibt es eine Fehlermeldung,

Und warum verschweigst du uns die?

[Nils_13]

Wen juckt bitteschön eine Fehlermeldung aus einem meiner eigenen Programme, wenn ich nicht mal selbst weiß, was diese zu bedeuten haben ? geht zurück dafür, dass du dieses Thema ausgegraben hast und dadurch ein ungelöstes weiter abgerutscht ist.

[Luckie]

Zitat von Nils_13:

Wen juckt bitteschön eine Fehlermeldung aus einem meiner eigenen Programme, wenn ich nicht mal selbst weiß, was diese zu bedeuten haben ?

Weil vielleicht wir es wissen könnten? Wenn sich das gestartet Programm zum Beispiel beschwert, dass es seine Dateien nicht findet, könnte das ein Hinweis sein, dass das Arbeitsverzeichnis nicht stimmt.

Zitat:

geht zurück dafür, dass du dieses Thema ausgegraben hast und dadurch ein ungelöstes weiter abgerutscht ist.

Wieso ausgegraben? Des war ein aktueller Thread.