AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Programm als Benutzer starten, wenn eigene Anwendung als Admin läuft

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

Ein Thema von ringli · begonnen am 29. Jun 2020 · letzter Beitrag vom 30. Jun 2020
Antwort Antwort
ringli

Registriert seit: 7. Okt 2004
461 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

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

  Alt 29. Jun 2020, 20:51
Um ein Programm als normaler Benutzer zu starten wenn meine eigene Anwendung als Administrator läuft, würde ich gerne den Quelltext verwenden den ich hier gefunden habe: https://pastebin.com/S9WLMDhB

Der Code funktioniert, allerdings würde ich gerne auf möglicherweise auftretende Fehler reagieren können. Dazu habe ich die original Prozedur ShellExecuteFromExplorer zum Test folgendermassen umgeschrieben:
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);
  OleCheck(FolderView.get_Application(DispShell));
  OleCheck(DispShell.QueryInterface(IShellDispatch2, ShellDispatch));
  Result := ShellDispatch.ShellExecute(lpFile, String(lpParameters), String(lpDirectory), String(lpVerb), nShow);
end;
Übergebe ich jetzt bspw. absichtlich einen ungültigen Pfad an die Funktion, erhalte ich eine Fehlermeldung obwohl ich kein ShowMessage o.ä. in meinem Quelltext habe:
Code:
"%systemroot%\System32\cmd.exe" konnte nicht gefunden werden. Stellen Sie sicher, dass Sie den Namen richtig eingegeben haben und wiederholen Sie den Vorgang.
Desweiteren habe ich es auch mal mit einem try..except-Block versucht:
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);
  OleCheck(FolderView.get_Application(DispShell));
  OleCheck(DispShell.QueryInterface(IShellDispatch2, ShellDispatch));
  try
    Result := ShellDispatch.ShellExecute(lpFile, String(lpParameters), String(lpDirectory), String(lpVerb), nShow);
  except
    showmessage('Meine eigene Fehlermeldung');
  end;
end;
Die Fehlermeldung bleibt leider die gleiche. Was muss ich ändern damit ich eigene Fehlermeldungen verwenden kann?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.344 Beiträge
 
Delphi 10.4 Sydney
 
#2

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

  Alt 29. Jun 2020, 21:23
Wenn das andere Programm (der Explorer) den Fehler anzeigt und in der Funktion nicht als Exception oder Error-Code durchreicht, dann hast du ein Problem.

Bei uns kam jemand auf die saudämlihe Idee im Programm an einer zentralen Stelle quasi sowas zu machen

Delphi-Quellcode:
// hier wurde der Code misshandelt
procedure MachWas;
begin
  try
    ...
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

// und das hier war mein Code, der jetzt nicht mehr geht
try
  MachWas;
except
  ...
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (29. Jun 2020 um 21:26 Uhr)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
7.751 Beiträge
 
Delphi XE4 Professional
 
#3

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

  Alt 30. Jun 2020, 03:47
Hallo,
vielleicht hilft ja SetErrorMode?
Hier mit dem failcritical Parameter.
Heiko
  Mit Zitat antworten Zitat
ringli

Registriert seit: 7. Okt 2004
461 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

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

  Alt 30. Jun 2020, 06:12
vielleicht hilft ja SetErrorMode?
Hatte ich auch schon versucht, aber leider ohne Erfolg.


Wenn das andere Programm (der Explorer) den Fehler anzeigt und in der Funktion nicht als Exception oder Error-Code durchreicht, dann hast du ein Problem.
Ich befürchte das du damit recht haben könntest...
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
2.467 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
ringli

Registriert seit: 7. Okt 2004
461 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

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

  Alt 30. Jun 2020, 16:13
So könntest Du es abändern um Windows-Fehlermeldungen zu schlucken.
Funktioniert leider auch nicht, sprich die Windows-Fehlermeldung wird trotzdem angezeigt.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.344 Beiträge
 
Delphi 10.4 Sydney
 
#7

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

  Alt 30. Jun 2020, 18:00
So als Idee:

Vom andemeldeten Benutzer (bzw. vom Desktop) das Token oder besser Elevated-Token besorgen
und dann damit via CreateProcessAsUser oder CreateProcessWithLogonW das Programm starten.


Oder du startest vorher dir ein zweites eigenes Programm (als Benutzer), redest dann via IPC mit dem und lässt dir von ihm das Programm starten.



Also wie in den vielen "Programm als Administrator starten"-Fragen/Beispielen/Tutorials, nur andersrum.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (30. Jun 2020 um 18:03 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf