*.bat execute!?!

[CodenameCookie]

Nabend Community ,

habe ein wenig gesucht .. entweder zu blind oder gibt nicht direkt sowas wie ich es mir vorstelle , und zwar , auf knopfdruck sollp das Programm 1.bat ausführen ! Falls ich vorhandene Beiträge übersehen habe , bitte ich vielmals um verzeihung ....

Danke im Vorraus

CC :)

[BenjaminH]

Hallo
Wie wärs mit ShellExecute?
So long Benjamin

[CodenameCookie]

Jo , das habe ich schon gefunden , aber muss gestehen das ich da ned wirklich durchblicke , wenns ned allzugroßer aufwand für dich is , kannst du mir ein EXMP geben?

Danke im Vorraus

CC :)

[DGL-luke]

[dp]shellexecute*[/dp]

mal sehen:

Delphi-Quellcode:

shellexecute(application.handle,
    'open',
    PChar( extractfilepath(paramstr(0))+'1.bat'),
    '-bla - foo -bar x',
    '',
    SW_HIDE)

wie wärs denn damit?

[leddl]

Ich bin mir nich mehr ganz sicher, aber müssen die Parameter nich auch als PChar übergeben werden? :gruebel:

[CodenameCookie]

hmm bin grad ziemlich verwirrt , google und suche spuckt überall was anderes raus :-/ ...
leddl , hast du vllt ein genaueres Beispiel?

CC :)

[BenjaminH]

Also ich würde, um auf Leddl einzugehen, sagen statt so:

Delphi-Quellcode:

shellexecute(application.handle,
    'open',
    PChar( extractfilepath(paramstr(0))+'1.bat'),
    '-bla - foo -bar x',
    '',
    SW_HIDE)

so:

Delphi-Quellcode:

shellexecute(application.handle,
    PChar('open'),
    PChar( extractfilepath(paramstr(0))+'1.bat'),
    PChar('-bla - foo -bar x'),
    nil ,//Da bin ich mir nicht sicher
    SW_HIDE)

[Edit] Alle haben extracfilepath geschrieben.. und ich hatte es einfach reinkopiert...

[leddl]

@CodenameCookie:
Warum? Was großartig anderes, als das, was Luke geschrieben hat, werde ich auch nicht machen können.
Am besten, du schaust dir ShellExecute einfach mal in der OH an, da is das eigentlich recht gut erklärt.
Also, schaus dir da mal an, und frag nochmal, falls du da was nicht verstanden hast.

@BenjaminH:
Ja, so siehts für mich jetzt auch richtiger aus. Allerdings stört mich jetzt das PChar vor 'open'. :gruebel: Ich glaube nicht, daß das da hingehört. Aber ich hab ShellExecute auch schon ne Weile nicht mehr benutzt.

[BenjaminH]

So, ich habs einfach mal ausprobiert, es wurde compiliert(wird das so dann mit k geschrieben?)

[DGL-luke]

also: bei literalen ist PChar nicht notwendig. nur so als statement ;)

[leddl]

Ah, okay. Ich hab das damals immer mit Arrays of Char gelöst. Hatte mir extra mal ne Funktion geschrieben, um den "komplizierten" Aufruf von ShellExecute zu vereinfachen. :mrgreen:

Delphi-Quellcode:

function ExecuteFile(Handle : HWND; FileName, Params : String) : Boolean;
Var Datei, Parameter : Array[0..800] of Char;
Begin
  If FileExists(FileName) Then
  Begin
      StrPCopy(Datei,FileName);
      StrPCopy(Parameter,Params);
      ShellExecute(Handle,'open',Datei,Parameter,nil,SW_NORMAL);
      Result := true;
  End
  Else
    Result := false;
End;

PS: Ja, es heißt "compilieren". ;)

[DGL-luke]

tja leddl... schlecht, wenn man nichts von PChar weiss. :mrgreen: :lol:

PChar gibt glaube ich die anfangsadresse des strings zurück, allerdings ohne den reference count zu erhöhen, was ja ideal für solche funktionsaufrufe ist.

[leddl]

Ich geb zu, daß ich von PChars nicht allzuviel weiß. Hauptsache, ich weiß, wie ich einen bekomm. :mrgreen:
Allerdings hab ich da dunkel irgendwas im Kopf, daß ich damals gezwungenermaßen auf das Array of Byte umgestiegen bin. Hab aber keine Ahnung mehr, was genau das war.

[CodenameCookie]

Ok Leute habe es nu so erstmal gelöst:

Delphi-Quellcode:

ShellExecute(Application.Handle,PChar('open'),PChar('bla.exe'),PChar(0),nil,SW_NORMAL);

So nun geht es um einen ClanBot , er muss auf dem server einen GameServer starten mit Befehlszeile in etwa so "bla.exe -pwCLANWAR" ... habe versucht es so zu lösen:

Delphi-Quellcode:

ShellExecute(Application.Handle,PChar('open'),PChar('bla.exe -pwCLANWAR'),PChar(0),nil,SW_NORMAL);

aber er öffnet die .exe nicht , denke ma die Befehlszeile muss extra "angemeldet" werden , jmd eine Idee ?!

Danke im Vorraus

CC :-D

[100nF]

hi,

vielleicht so?

Delphi-Quellcode:

ShellExecute(Application.Handle,PChar('open'),PChar('bla.exe'),PChar('-pwCLANWAR'),nil,SW_NORMAL);

[leddl]

Anscheinend haste dich nich sonderlich damit beschäftigt ;)
Denn - in deinem Fall - der 3. PChar-Parameter steht für die zu übergebenden Parameter. Daher mußt du diese eben auch genau dort übergeben, und nicht im Dateinamen.

@urbanbruhin:
Nich nur vielleicht, das sollte so klappen :mrgreen:

[DGL-luke]

DA musst du dir mein erstes bsp. noch mal ansehen ;)

Delphi-Quellcode:

shellexecute(application.handle, 
    'open', 
    PChar( extractfilepath(paramstr(0))+'1.bat'), 
    '-bla - foo -bar x', //das hier ist es - verständlich, oder? ;)
    '', 
    SW_HIDE)

[CodenameCookie]

Zitat:

Zitat von urbanbruhin

hi,

vielleicht so?

Delphi-Quellcode:

ShellExecute(Application.Handle,PChar('open'),PChar('bla.exe'),PChar('-pwCLANWAR'),nil,SW_NORMAL);

Vielen Dank so funzt.es - @Luke jo ThX , is mir ned so aufgefallen ;) .

CC :-D