Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg
Online

Registriert seit: 1. Feb 2018
2.464 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Programm als Benutzer starten, wenn eigene Anwendung als Admin läuft

  Alt 30. Jun 2020, 09:32
So könntest Du es abändern um Windows-Fehlermeldungen zu schlucken.
Nur hier im Editor geändert, ungetestet, aber das Prinzip sollte einem dadurch klar werden.
Delphi-Quellcode:
function ShellExecuteFromExplorer(lpVerb, lpFile, lpParameters, lpDirectory : PChar;
                                   nShow : Integer) : HRESULT;
var
  FolderView: IShellFolderViewDual;
  DispShell: IDispatch;
  ShellDispatch: IShellDispatch2;
begin
  Result := E_NOTIMPL;
  GetDesktopAutomationObject(IShellFolderViewDual, FolderView);
  if Succeeded(FolderView.get_Application(DispShell)) then
    if Succeeded(DispShell.QueryInterface(IShellDispatch2, ShellDispatch)) then
      Result := ShellDispatch.ShellExecute(lpFile, String(lpParameters), String(lpDirectory), String(lpVerb), nShow);
end;
Gruß vom KodeZwerg
Wenn ein unerwarteter Fehler aufgetreten ist, frage ich mich immer, welche Fehler erwartet wurden...
  Mit Zitat antworten Zitat