Progamm im ersten Programm starten

[Luke23]

Hallo!!

ja okay sorry das habe ich dann wohl doch falsch verstanden!!

also ich habe xp und öffne mit meinem schalter die cmd.exe danch soll er das spiel starten mit parameter!!ja das öffnen macht er schon aber das spiel startet er nicht!!ich habe in einer dslibrary.chm gelesen das es so gehen soll aber irgentwie macht er das leider nicht!!
ich hoffe das ihr nen tip habt!!

Mfg Luke23

[scp]

Also im Fall der cmd.exe ginge es so:

Delphi-Quellcode:

ShellExecute(0, nil, PChar('cmd.exe'), Pchar('/K C:\Game\volly.exe C:\Game\map1.pk3'), nil, SW_NORMAL);

Wenn du statt /K die Option /C verwendest, wird das "DOS-Fenster" nach dem ausführen des Spiels/Emulators oder was auch immer beendet.

[Luke23]

Hallo!!

also ich habe es jett so das mein teil startet wie kann ich aber in den parametern noch was verändern?? könnte mir da vieleicht noch einer einen tip zu geben?? ich wolte das so machen das ich die parameter in 2editfenstern angeben kann aber wie??

ShellExecute(0, nil, PChar('cmd.exe'), Pchar('/K C:\Game\volly.exe C:\Game\map1.pk3'), nil, SW_NORMAL);

also so geht das ganze schonmal recht gut nun habe ich versucht edit fenster zu setzen aber dann startet er zwar aber mit den falschen parametern wie kann ich das jetzt lösen??

PChar('/K C:\Game\volly.exe'), PChar(ParamterList), SW_NORMAL); und im paramter dann halt so
ParamterList := 'Edit1.Text ' + 'Edit2.Text';

ja das geht aber leider nicht so ganz könnte mir da vieleicht einer noch nen tip zu geben??

[MathiasSimmack]

Bitte benutze künftig das [delphi]-Tag für deinen Quellcode. Das liest sich besser.

Und dann schau dir mal die Syntax des Befehls "ShellExecute" an. Das zu startende Programm ist die "cmd.exe". Dein Spiel und seine Parameter sind nur die Parameter für das zu startende Programm. Du benutzt im Moment die Angabe des Arbeisverzeichnisses für die Parameter des Spiels, und das kann nicht gehen.

[Spezi1980]

Hallo ne etwas andere Idee:

Delphi-Quellcode:

procedure Starte Programm;
 var Strings : TStrings;
begin
    //wir nehmen eine Batchdatei,
    //da kannst du soviel reinpacken mit nochsoviel
    //Parametern wie du willst
    Strings := TStringlist.create;
    try
        Strings.add('@echo off'); //schaltet die Anzeige ab
        Strings.add('test.exe /bla /bla /blabla'); //Dein Programm mit Parametern
        Strings.add('del %0'); //löscht die batchdatei nach der ausführung
        //Datei speichern (Ich hasse es, wenn ein Programm etwas irgendwohin speichert.)
        Strings.savetofile(IncludetrailingBackslash(extractfilepath(Paramstr(0)))+'Test.bat');
    finally
       Strings .free;
    end;
    //Batchdatei starten
    ShellExecute(Application.Handle, 'open',
                 IncludetrailingBackslash(extractfilepath(Paramstr(0)))+'Test.bat',
                 nil, nil, SW_SHOW);
end;

Kann das leider nicht so testen weil ich hier kein Delphi hab. Müsste aber funktionieren.

[roderich]

@Luke23
wieso nimmst Du dir nicht einfach die Zeit, Dein Anliegen knapp und präzise zu beschreiben ? Dann ist die Chance relativ hoch, daß dir geholfen werden kann. Btw. ich habs auch mit Studium nicht verstanden, was dein Problem ist.

@shmia
wenn du einfach nach Leerzeichen suchst, kannst Du m.E. auf die Nase fallen. Sowohl der erste Parameter (Programmname) als auch die eigentlichen Parameter können Leerzeichen enthalten. Wieso baust du den Parameter-String für die Weitergabe nicht einfach per ParamCount und ParamStr zusammen ?

Gruß
Roderich

[scp]

@Luke23
Ganz einfach, machs mit nem + Operator:

Delphi-Quellcode:

var
  ParamterList : String;
begin
  ParamterList := Edit1.Text + ' ' + Edit2.Text;
  ShellExecute(0, nil, PChar('cmd.exe'), Pchar('/K ' + 'C:\Game\volly.exe' + ' ' + ParameterList), nil, SW_NORMAL);

PS: Edit1.Text usw. sollte man nie zwischen '' setzen, wie dus oben gemacht hast, dann über gibt er nämlich einfach "Edit1.Text Edit2.Text" statt den Inhalt der Edits.