Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.767 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Starten einer Batch mit Shellexecute

  Alt 2. Mär 2016, 09:31
Vielleicht funktionier dies?

Delphi-Quellcode:
var
 shellExecuteInfo: TShellExecuteInfo;

filePath := 'c:\Users\TF\Delphi\Devcon\WDK7.1.0\'
parameter := '';

ZeroMemory(@shellExecuteInfo, SizeOf(TShellExecuteInfo));
shellExecuteInfo.cbSize := sizeOf(TShellExecuteInfo);
shellExecuteInfo.hwnd := 0;
shellExecuteInfo.lpVerb := 'open';
shellExecuteInfo.lpFile := pchar('DisEnPIO.bat');
shellExecuteInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
shellExecuteInfo.lpParameters := pChar(parameter);
shellExecuteInfo.lpDirectory := pChar(filePath);
shellExecuteInfo.nShow := SW_HIDE;
if not shellExecuteEx(@shellExecuteInfo) then
  showMessage(IntToStr(getLastError));
Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat