Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Prüfen ob Programm mit "runas" gestartet worden ist. (https://www.delphipraxis.net/206114-pruefen-ob-programm-mit-runas-gestartet-worden-ist.html)

Jasocul 20. Nov 2020 09:39

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Zitat:

Zitat von venice2 (Beitrag 1477610)
Zitat:

Zitat von Jasocul (Beitrag 1477609)
Beide Programme sind von dir, also kannst du die selbst anpassen.

Übergib beim runas doch einfach einen Parameter an das aufzurufende Programm. Diesen Parameter kannst du prüfen und weißt dann, ob es mit runas gestartet wurde.

Danke ;)
Sagte ich ihm schon.

Ich finde das nicht. In deinen Beispielen schickst du Messages. Bei meinem Vorschlag wird beim Aufruf schon ein Parameter übergeben, der im Programm geprüft werden kann.
Falls du das doch irgendwo so vorgeschlagen hast, dann Asche auf mein Haupt und ich gehe meine Brille putzen. 8-)

venice2 20. Nov 2020 09:45

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Zitat:

Bei meinem Vorschlag wird beim Aufruf schon ein Parameter übergeben
Da muss ich mich jetzt nicht drum streiten habe ihm eine Lösung aufgezeigt was oder wie er es nun umsetzt kann mir egal sein.
Asche auf mein Haupt ;)

himitsu 20. Nov 2020 11:08

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Man kann sich auch bei den tausenden "IsAdmin"-Funktionen was raussuchen, die man überall findet.

Aber wichtig: Nicht auf den Namen/Konto "Administrator" prüfen, sondern auf die Rechte.

"Ist Administrator" kann ja Vieles bedeuten:
* Benutzer ist der, mit dem Namen "Administrator", bzw. er hat die SID des StandardAdmins vom Windows.
* Benutzer ist in der Gruppe der Administratoren
* Benutzer hat eines der Rechte, welches Administratoren so im Allgemeinen haben

Bzw. du kannst/solltest auch gezielt die Berechtigung/Funktion prüfen, für Welche du unbedingt "Admin" brauchst.
Nicht jeder "Admin" darf alles. Wir haben hier z.B. einen ServiceAdmin, der darf nur Dienste starten und beenden. Und wenn man einen Dienst beenden will, dann reicht es auch zu, wenn man "nur" genau dieses Recht besitzt.

jaenicke 20. Nov 2020 11:09

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Trotzdem ist wichtig auch zu beachten, was ich oben zur Lösung mit einem Parameter geschrieben habe:
Zitat:

Zitat von jaenicke (Beitrag 1477606)
Du kannst natürlich einen speziellen Parameter übergeben und auf den prüfen (ParamStr). Aber das heißt noch lange nicht, dass die Rechte, die du brauchst, vorhanden sind. Auch runas ist dafür keine Garantie!

Das gilt natürlich für die anderen genannten Lösungen genauso (nur dass Messages oder temporäre Dateien unnötiger Mehraufwand sind, weil sie keinen Vorteil gegenüber einem Parameter haben).

venice2 20. Nov 2020 11:16

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Zitat:

Du kannst natürlich einen speziellen Parameter übergeben
Wann?
Mit shellexecute?

Zeig ihm doch ein Beispiel.

Und ich behaupte! Ob ich nun einen Parameter oder einen Message schicke ist gehüpft wie gesprungen.
Es muss nur in der 2 Anwendung ankommen.

Zitat:

weil sie keinen Vorteil gegenüber einem Parameter haben
Und ein Parameter keinen vorteil gegenüber SendMessage

Delphi.Narium 20. Nov 2020 11:22

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Zitat:

Zitat von jaenicke (Beitrag 1477622)
Trotzdem ist wichtig auch zu beachten, was ich oben zur Lösung mit einem Parameter geschrieben habe:
Zitat:

Zitat von jaenicke (Beitrag 1477606)
Du kannst natürlich einen speziellen Parameter übergeben und auf den prüfen (ParamStr). Aber das heißt noch lange nicht, dass die Rechte, die du brauchst, vorhanden sind. Auch runas ist dafür keine Garantie!

Das gilt natürlich für die anderen genannten Lösungen genauso (nur dass Messages oder temporäre Dateien unnötiger Mehraufwand sind, weil sie keinen Vorteil gegenüber einem Parameter haben).

Die Methode hat aber den Charme, dass man über den Parameter gesagt bekommt: Ich habe Dich mit RunAs aufgerüfen, Du müsstest jetzt Adminrechte haben.
Und das aufgerufene Programm kann dann prüfen, ob es mit RunAs aufgerufen wurde und die entsprechenden Rechte hat.
Delphi-Quellcode:
function IsStartedWithRunas():Boolean;
begin
  Result := ParamStr(1) = 'runas';
end;
Liefert diese Funktion true und man hat trotzdem keine Adminrechte, scheint was mit dem Aufruf nicht zu funktionieren. Für eine Protokollierung sollte das ausreichen und darum scheint es hier ja zu gehen.

'nen Parameter bekommt man auf der Kommandozeile mit und hat ihn garantiert in ParamStr. Bei 'ner Message kann man sich dusselg anstellen und sie nicht mitbekommen ;-)

jaenicke 20. Nov 2020 12:31

AW: Prüfen ob Programm mit "runas" gestartet worden ist.
 
Zitat:

Zitat von venice2 (Beitrag 1477626)
Zitat:

weil sie keinen Vorteil gegenüber einem Parameter haben
Und ein Parameter keinen vorteil gegenüber SendMessage

Haben Parameter z.B. auch bei einer Kommandozeilenanwendung keinen Vorteil? :wink:

Um eine Nachricht zu senden musst du ein passendes Handle ermitteln und diese Nachricht dort dann auch empfangen und verarbeiten. Und die Nachricht darf nicht geschickt werden bevor das zweite Programm sie empfangen kann usw.
Einen Parameter kannst du mit einer Zeile abfragen und kannst ihn einfach mitgeben, das sind nur eine geänderte und eine neue Zeile Code und es funktioniert unabhängig von den sonstigen Gegebenheiten...


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:04 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz