ShellExecuteEx -> Access denied

[himitsu]

Zitat:

Delphi-Quellcode:

 parameter := format('%s',['einige Parameter']);
 if shellExecute(handle,nil,pchar('start_tool.bat'),pChar(parameter),nil,SW_SHOW) <= 32 then
   begin
     fLogger.addItem(format('start_tool.bat %s',[parameter]),0);
     fLogger.addItem(sysErrorMessage(getLastError),0);
   end;

besser so

Delphi-Quellcode:

 Parameter := Format('%s', ['einige Parameter']);
 if ShellExecute(handle, nil, PChar('start_tool.bat'), PChar(Parameter), nil, SW_SHOW) <= 32 then
   begin
     Err := GetLastError;
     fLogger.AddItem(Format('start_tool.bat %s', [Parameter]), 0);
     fLogger.AddItem(SysErrorMessage(Err), 0);
   end; 

// oder

 Parameter := Format('%s', ['einige Parameter']);
 if ShellExecute(handle, nil, PChar('start_tool.bat'), PChar(Parameter), nil, SW_SHOW) <= 32 then
   begin
     Err := SysErrorMessage(GetLastError);
     fLogger.AddItem(Format('start_tool.bat %s', [Parameter]), 0);
     fLogger.AddItem(Err, 0);
   end;

Rate mal was passiert, wenn Format oder fLogger.AddItem den Fehlercode setzen/ändern.