Externe Anwendung unter XP & Vista öffnen

[AlexII]

Hallo

Ich möchte mit diesem Code eine externe Anwendung bzw. den WindowsTaschenrechner öffnen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ShellExecute(Application.Handle,
                 'open',
                 PChar('C:\WINDOWS\system32\calc.exe'),
                 Nil, Nil, SW_NORMAL) <= 32 then
    ShowMessage('Es ist ein Fehler aufgetreten');
end;

jetzt die Frage: wie muss ich diesen Code anpassen, dass der Taschenrechner unter XP und Vista geöffnet wird?

[mkinzler]

Lass mal den Pfad zur Exe weg? Welcher Statuscode wird zurückgegeben?

[AlexII]

Unter XP kann ich denn Pfad weglassen. Und unter Vista weiß ich nicht, hab das BS nicht, kann das vllt jemand für mich testen? Hab die exe als Anlage hoch geladen.

[Bbommel]

Hier läufts (Vista Home mit SP1). Allerdings habe ich die UAC deaktiviert, aber ich schätze mal nicht, dass das woanders zu Problemen führen würde.

[mkinzler]

Sag uns doch einfach, was ShellExecute zurückliefert oder schau selber nach!

[AlexII]

Wie "was wird zurückgeliefert"? Der Calc wird geöffnet, mehr nix... Verstehe die Frage nicht.

[Bbommel]

Zitat von mkinzler:

Sag uns doch einfach, was ShellExecute zurückliefert oder schau selber nach!

Er hatte das Problem mit deinem Tipp (Pfad weglassen) doch gelöst. Alles gut.

[AlexII]

Hab vllt noch jemand freundlicherweise unter Vista das Zeug getestet?

[Bbommel]

Zitat von AlexII:

Hab vllt noch jemand freundlicherweise unter Vista das Zeug getestet?

Hab ich doch. Siehe meine Antwort oben.

[DeddyH]

Er fragte ja nach noch jemandem. Einer alleine ist ja nicht besonders repräsentativ