Registriert seit: 8. Mai 2005
366 Beiträge
Delphi XE3 Enterprise
|
AW: ShellExecute, Batch über runas starten
27. Apr 2016, 00:11
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
mfg wf
|
|
Zitat
|