*.bat execute!?!

[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.

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.

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.
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:

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:

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

[100nF]

hi,

vielleicht so?
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

[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 von urbanbruhin:

hi,

vielleicht so?
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