Benutzerrechte

[jaenicke]

Du kannst dir auf deinem privaten PC einfach in regedit die Rechte auf dem Schlüssel geben, so dass du in den Registry Eintrag auch ohne Adminrechte schreiben kannst.

[Satyr]

Zitat von jaenicke:

Du kannst dir auf deinem privaten PC einfach in regedit die Rechte auf dem Schlüssel geben, so dass du in den Registry Eintrag auch ohne Adminrechte schreiben kannst.

Danke, probiere ich nachher oder morgen (PC ist grade mit meiner Freundin in Hogwarts )

Per Delphi kann ich da nichts machen, oder? Wegen Weitergabe von dem Tool.

[CCRDude]

Das Problem kenne ich, bin zufälligerweise heute wieder drüber gestolpert. Ich helfe mir dann meist, in dem ich einen Datei-Browser (Explorer, Total Commander) elevated (als Admin) starte und einfach nur einmal auf das Share zugreife, danach ist es ganz verfügbar. Alternative im als Admin laufenden Delphi im Datei-Öffnen-Dialog nur einmal drauf zugreifen...

Insofern wird's ziemlich sicher auch Code dafür geben, ohne dass man an Rechten rumbastelt.

(PS: UNC-Pfad soll gehen)

(PS #2: das funktioniert natürlich nur, weil Windows sich die Credentials gemerkt hat... wenn ich über Deinen Fall weiter nachdenke, müsstest Du für diesen Anwendungsfall wohl die Verbindung für beide Access Token erstellen)

[Satyr]

Zitat von CCRDude:

(PS #2: das funktioniert natürlich nur, weil Windows sich die Credentials gemerkt hat... wenn ich über Deinen Fall weiter nachdenke, müsstest Du für diesen Anwendungsfall wohl die Verbindung für beide Access Token erstellen)

Ich habe noch viel gegoogelt gestern und auch einiges gefunden gestern. Die ShellApi bietet auch Möglichkeiten, die nur teilweise Adminrechte brauchen.

Ich habe mich entschieden alles ein wenig zu umgehen.
Ich habe beschlossen das Tool nur auf Nutzer Ebene zu empfehlen und ein kleines Setup dazu gebastelt. Das Setup setzt die Rechte des Registry Key und alles unter dem, wie benötigt und gut ist.

Nicht die eleganteste "Lösung" aber die, sie für mich am besten umsetzbar ist.

[CCRDude]

Entschuldige, ich hab Dein Problen glaube ich etwas falsch wahrgenommen.

Registry-Rechte aufweichen im Installer ist irgendwie sehr unschön.

Ging es nur darum, das Icon zu setzen, während das Programm non-elevated läuft?

ShellExecute(Application.MainForm.Handle, 'runas', PChar(ParamStr(0)), PChar(ADrive), nil, SW_HIDE);

Delphi-Quellcode:

program blub;
...
begin
   if FindCmdLineSwitch('seticon') then begin
      // set icon for ParamStr(2) in registry
      Exit;
   end;
   Application.Initialize ...

Besser als sich selbst mit Parametern aufzurufen wäre natürlich eine Mini-Konsolen-Exe ohne alles, nur mit dieser Funktion, um die Elevation so klein wie möglich zu halten.

Das wäre auf jeden Fall "korrekteres" Vorgehen, denn:

* Programme sollte non-elevated laufen können (siehe auch MS-Vorgaben für Compatible with Windows &c)
* Elevaten nur für einzelne Aktionen ist immer sicherer als Programme ganz elevated laufen zu lassen
* Programme sollten keine Rechte aufweichen wo nicht unbedingt nötig (siehe AV-Heuristiken)

Ja, dann fragt das Programm jedesmal nach Admin-Rechten, wenn eine Verknüpfung erstellt wird. Würde es, wenn das Programm selber elevated läuft, ja auch, und entspricht dem, was passiert.

[Satyr]

Ja, mein Problem sitzt an mehreren Stellen und ich weiß das meine Lösung im Grunde nicht toll ist.

Das Tool um das es geht, verbindet ein NavDav als Netzlaufwerk.
Mache ich das als normaler Benutzer, sieht der Admin User das Laufwerk nicht.
Mache ich das mit dem Tool als Admin, sieht der normale Benutzer das Laufwerk nicht.

An der Stelle habe ich mich entschieden alles für den normalen Benutzer zu lassen.

Zum Schluss wollte ich dann noch "mal eben" einbauen dass das Icon des neuen Netzlaufwerk geändert wird. Was komplizierter ist als ich dachte (für mich).

Ich habe es über die Shell versucht, es hat bei mir leider nicht funktioniert.
Also habe ich die zweite Möglichkeit probiert, die Registry.
Das funktioniert an sich problemlos, benötigt aber Adminrechte. Die ich dem Programm nicht geben möchte, aus oben genannten Grund.

Ein Teufelskreis

[shebang]

Du könntest dir auch eine Registrierungsdatei bauen und diese dann mit erhöhten Privilegien ausführen, funktioniert einwandfrei.

Code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE]
"Test"="0001"

Code:

ShellExecute(Application.Handle, 'runas', 'cmd.exe', '/c test.reg', nil, SW_SHOWNORMAL)