MSI ausführen

[Boneless]

Hallo liebes Forum,

ich bin auf ein Problem gestoßen, was mich etwas wundert.. Nämlich:
Wenn ich ein Befehl in einem ButtonClick-Event namens

Code: Alles auswählen

SysUtils.ExecuteProcess( UTF8ToSys( 'MSInstaller.msi'), '''' , []);
 

eingebe, ich das Programm dann kompiliere und ausführe, erscheint die Meldung "Failed to Execute" (das Übliche). Diese msi-Datei ist 100%ig im selben Ordner.
Gibt es also für MSI's ein anderen Befehl / andere Befehle ?

LG Boneless

[theo]

Gibt es also für MSI's ein anderen Befehl / andere Befehle ?

Google fagen! Das hat ja nichts mit Lazarus zu tun.
https://www.google.ch/search?q=execute+msi+file

P.S. Alternativ geht es vllt. auch mit ShellExecute unter Windows.

[Boneless]

Habs mit ShellExecute ausprobiert.

Passiert rein gar nichts

Code: Alles auswählen

ShellExecute(0,'open',PChar('MSInstaller.msi'),nil,nil,sw_show);

Oder ist dort was falsch??

[theo]

Und die Links in Google hast du gelesen? Was hast du damit gemacht?

[Boneless]

Ja, habe ich. Habe auch noch nach weiterem gesucht.
Aber die msi datei kann ich so auch ganz normal öffnen, per Doppelklick, als Administrator usw. Das ist alles in Ordnung. Meine Frage ist nur, kann ich dies auch irgendwie über Lazarus öffnen, in dem Programm, was ich schreibe?

[theo]

Ja, habe ich.

Wenn du den ersten Link liest, fällt dir wirklich nichts auf?
Ich habe davon keine Ahnung, habe nur mal für dich gegoogelt.
Dort steht doch eindeutig, dass man nicht das ".msi ausführt sondern die Anwendung msiexec.exe mit dem Parameter des msi Dateinamens startet.
Siehst du das denn nicht?

[Michl]

Geht schon zu starten, aber nicht direkt von einem TProcess aus.

Eine Möglichkeit wäre z.B. eine "Start.bat" zu erstellen, die einfach den Inhalt "MSInstaller.msi" hat und diese per Process starten (funktioniert, eben probiert!).

Nächste Möglichkeit wäre über starten von "cmd":

Code: Alles auswählen

uses ..., Process;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  P:TProcess;
begin
  P:=TProcess.Create(Nil);
//  P.Executable:='Start.bat';
  P.Executable:='cmd';
  P.Parameters.Add('/C');                 //Parameter /C bedeutet dass cmd die nachfolgende Codezeile ausführen soll
  P.Parameters.Add('MSInstaller.msi');    //auszuführende Codezeile
//  P.Parameters.Add('/k');               //Falls nicht gestartet wird bleibt mit /k das Konsolefenster sichtbar
  P.Execute;
  P.Free;
end;  

Achtung: Immer Ärger machen Leerzeichen im Pfad, man kann probieren ob Hochklammern helfen...

Teste noch die anderen Möglichkeiten...

[m.fuchs]

Und da die *.msi mit der Anwendung verknüpft ist unter Windows, hilft dir sicherlich die Prozedur OpenDocument aus der Unit LCLIntf. Damit ist das Ganze dann gaaaanz einfach.

Frohe Weihnachten

[theo]

Und da die *.msi mit der Anwendung verknüpft ist unter Windows, hilft dir sicherlich die Prozedur OpenDocument aus der Unit LCLIntf. Damit ist das Ganze dann gaaaanz einfach.

Dann müsste aber mMn ShellExecute auch funzen unter Win, oder nicht?

[Michl]

Ja die kürzeste und einfachste Möglichkeit ist wohl die von M.Fuchs:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDocument('MSInstaller.msi');
end; 

funktioniert auch

[Michl]

Dann müsste aber mMn ShellExecute auch funzen unter Win, oder nicht?

Ja funktioniert ebenfalls! Ich tippe auf Leerzeichen im Pfad, die machen immer Ärger!!!

Mein persönlicher Favorit ist immer noch TProcess und cmd siehe oben, da hat man immer noch die Chance mit /k zu erfahren, warum die Ausführung scheitert.

[theo]

Mein persönlicher Favorit ist immer noch TProcess und cmd siehe oben, da hat man immer noch die Chance mit /k zu erfahren, warum die Ausführung scheitert.

Wenn du schon am Varianten durchtesten bist (habe momentan kein Windows zur Hand), warum geht's so in der Art nicht, mit ExecuteProcess oder TProcess?

Code: Alles auswählen

C:\Windows\System32\msiexec.exe -i C:\<pfad>\<filename>.msi

[Michl]

Hab ja nicht behauptet, dass das so nicht gänge (nur eben nicht *.msi direkt), eben getestet:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  P:TProcess;
begin
  P:=TProcess.Create(Nil);
  P.Executable:='C:\Windows\System32\msiexec.exe';
  P.Parameters.Add('-i');       
  P.Parameters.Add('MSInstaller.msi'); 
  P.Execute;
  P.Free;
end;

funktioniert ebenfalls

[theo]

funktioniert ebenfalls

Siehste.
Auf diese Lösung wollte ich Boneless eigentlich bringen, nachdem er sagte ShellExecute läuft nicht.
Das benötigt die Umleitung über cmd nicht, aber man müsste natürlich die Exe finden. Muss ja nicht auf C: sein. Pfad wird benötigt, oder?

[Michl]

Nö, sollte immer schon im Win-System-Pfad (bei mir der 1.Eintrag) vorhanden sein (cmd . exe ist ja im selben Verzeichnis)!