Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#4

AW: ShellExecuteEx -> Access denied

  Alt 20. Mär 2014, 16:16
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat