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