ShellExecute, Batch über runas starten

[waldforest]

Hallo,

Code:

batch_ruf := Auc.data_verzeichnis + 'updates\AucUpd.bat';
batch_par := ExtractFilePath(Application.ExeName);

ShellExecute(handle, 'runas', PCHAR(batch_ruf), PCHAR(batch_par),
             PCHAR(Auc.data_verzeichnis + 'Updates'), SW_HIDE);

Die Batch sieht wie folgt aus

Code:

@echo off 

:s 
del %1AucTool.exe
if exist %1AucTool.exe goto s 

copy AucTool.exe %1AucTool.exe 
copy Auc1.dll %1Auc1.dll 
copy Auc2.dll %1Auc2.dll

del AucTool.exe

cd %1
AucTool.exe
exit

[Dalai]

Was gibt denn das ShellExecute zurück? Und was tut das Batchfile, wenn du ans Ende (vor das exit) mal ein "pause" setzt und es nicht versteckt ausführen lässt?

Davon abgesehen ist die Batch fehleranfällig. Ich korrigiere mal etwas:

Code:

@echo off

if "%~1"=="" goto :EOF

set "at=%~1AucTool.exe"

:s
del "%at%"
if exist "%at%" goto s

copy "%~dp0AucTool.exe" "%at%"
copy "%~dp0Auc1.dll" "%~1Auc1.dll"
copy "%~dp0Auc2.dll" "%~1Auc2.dll"

del "%~dp0AucTool.exe"

call "%at%"
exit

Sich darauf zu verlassen, dass

• in den Pfaden keine Leerzeichen vorkommen
• die relativen Pfade bzw. das Arbeitsverzeichnis stimmen/stimmt

ist fahrlässig, wenigstens aber leichtsinnig. Daher immer Anführungszeichen bei der Verwendung von Variablen, die Pfade enthalten, benutzen. Und immer absolute Pfade angeben, dann gibt es keinerlei Missverständnisse. Eigentlich fehlt da sogar noch eine Prüfung auf Existenz der DLL-Dateien oder der Schalter /Y um sie zu überschreiben. Denn wenn es mindestens eine davon gibt, bleibt die Batch mit einer Nachfrage stehen.

MfG Dalai

[waldforest]

Hallo,
danke für die Anpassungsempfehlung.

Ich bekomm es trotzdem nicht nicht hin. Sobald RunAs gesetzt ist wird die Batch nicht mehr aufgerufen.

[Dalai]

Zitat von waldforest:

Sobald RunAs gesetzt ist wird die Batch nicht mehr aufgerufen.

Das heißt, die Batch wird gar nicht ausgeführt, selbst wenn du das SW_HIDE durch SW_SHOW ersetzt? Dann wirst du wohl stattdessen die cmd.exe starten müssen mit der Batch als Parameter, nach diesem Schema:

Code:

cmd.exe /c "x:\pfad\zur\batch"

Sinnvollerweise gibt man auch hier den vollen Pfad zur cmd.exe und zur Batch an.

MfG Dalai

[waldforest]

Hmmm,
keine Ahnung warum aber cmd ruft er, auch mit komplettem Pfad nicht auf...
Dennoch Danke ..

Ich glaube ich muss mir unter Win >=7 ne neue Strategie zum Austausch der Dateien ausdenken.

[Dalai]

Zitat von waldforest:

keine Ahnung warum aber cmd ruft er, auch mit komplettem Pfad nicht auf...

Das kann nicht sein. Warum das so ist, sagt dir ShellExecute mit seinem Rückgabewert.

MfG Dalai

[waldforest]

Hallo,
OK, ich hab's jetzt doch noch mit einigen Anpassungen hinbekommen.
Eine Ursache war, dass ich den Parameter /C im 3 Parameter mit dabei hatte, also PChar('cmd.exe /C') hieß. Shellexecute lief dann mit Error 2 (kann Datei nicht finden) auf Fehler.
Wichtig sind auch die entsprechenden "" weil auf diese Weise die Parameter getrennt werden müssen (Langer Dateiname mit eventuellen Leerzeichen).
Ein weiterer Fehler war, dass beim Aufruf der Batch mit CMD, das aktuelle Verzeichnis auf c:\windows\system32 verweist.
Übergebe hier das richtige Verzeichnis als 2ten CMD-Parameter, könnte man sicher auch in der Batch abfangen ....


Mit anliegendem Aufruf funktioniert es.

Code:

    
Temp_Vz := 'c:\tmp\Update\'

   
ShellExecute(handle, 'runas', PCHAR('cmd.exe'), 
                              PCHAR('/C ""'+Temp_Vz+'A_Upd.bat" '+batch_par+' "'+Temp_Vz+'""' ),
                              PCHAR('"'+Temp_Vz+'"'), SW_HIDE);

lässt sich sicher optisch noch verbessern, aber es funktioniert. Nochmals Danke für die Impulse.

ergänzende Info über http://ss64.com/nt/cmd.html