Einzelnen Beitrag anzeigen

waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: ShellExecute, Batch über runas starten

  Alt 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
  Mit Zitat antworten Zitat