CodeSite Studio 5.3.2 funktioniert plötzlich nur mehr mit Administrator privileges!

[PeterPanino]

CodeSite Controller Settings:

uno.png

due.png

tre.png

quattro.png

cinque.png

[PeterPanino]

Habe jetzt noch versucht:

- Zwischen 32-bit und 64-bit umzuschalten.

- CodeSiteLogging an anderen Stellen in der uses-Klausel.

Funktioniert immer noch nicht. Sieht aus, als ob der Dispatcher den Live Viewer nicht erreicht.

[PeterPanino]

Heureka!

CodeSite Studio 5.3.2 neu installiert: Funktioniert wieder!

Jetzt ist nur die Frage: War etwas bei den CodeSite-Programmdateien kaputt oder hat die Installation eines Komponenten-Packages gestern Abend etwas in der IDE verändert, was den Fehler in CodeSite verursachte?

[PeterPanino]

Fehlanzeige! Das wirkliche Problem hat sich jetzt mit Ray's Hilfe herauskristallisiert:

Wenn ein Programm, welches das erste Mal (in einer Windows Session) CodeSite messages sendet und damit den CSDispatcher startet, mit erhöhten Rechten läuft so wird auch der CSDispatcher mit erhöhten Rechten gestartet. Das blockiert aber jene CodeSite Messages, welche von einem Programm mit normalen USER-Rechten kommen. Deshalb wurden nur jene CodeSite messages im LiveViewer angezeigt, die von einem Programm mit erhöhten Rechten kommen, etwa wenn die IDE im Administrator-Modus gestartet wurde und die IDE dann wiederum ein Programm startet. (Übrigens funktioniert OLE Drag&Drop nicht bei einem Programm, das mit erhöhten Rechten läuft).

Das Ganze passierte deswegen, weil ich einen WinLogon TaskScheduler Task mit erhöhten Rechten erstellt hatte, der meine App ebenso mit erhöhten Rechten startete und diese App dann CodeSite messages sendete, die wiederum den CSDispatcher mit erhöhten Rechten starteten.

Zusammengefasst: Man muss nur darauf achten, dass der CSDispatcher NICHT mit erhöhten Rechten gestartet wird. Das kann man auf verschiedene Arten erreichen. Noch besser wäre es, wenn CodeSite selbst mit internen Maßnahmen dafür sorgen würde.

Auf jeden Fall ist jetzt die Ursache des Problem gefunden und das Problem kann umgangen werden.

[PeterPanino]

Hinzu kommt noch erschwerend der Umstand, dass man von einem Programm mit erhöhten Rechten nicht ein Programm (etwa sich selbst) ohne erhöhte Rechte starten kann, was m.E. ein Konzeptfehler von Windows ist, weil eine solche Möglichkeit keine Sicherheitsaspekte von Windows verletzen würde.

Um von einem Programm mit erhöhten Rechten ein Programm ohne erhöhte Rechte (etwa sich selbst) zu starten, musste ich deshalb in einem anderen Zusammenhang zu einem Trick greifen: Eine Windows-Nachricht an ein bereits laufendes Programm senden, das ohne erhöhte Rechte läuft, worauf dieses das gewünschte Programm ohne erhöhte Rechte startet.

Oder kennt jemand einen Trick, mit dem man das auf eine andere einfachere Weise erreichen könnte?

[KodeZwerg]

Zitat von PeterPanino:

Oder kennt jemand einen Trick, mit dem man das auf eine andere einfachere Weise erreichen könnte?

Per Commandline Aufruf sollte das möglich sein, hier ein Batch Auszug:
cmd /min /C "set __COMPAT_LAYER=RUNASINVOKER && start "" %1"

[PeterPanino]

Zitat von KodeZwerg:

Per Commandline Aufruf sollte das möglich sein, hier ein Batch Auszug:
cmd /min /C "set __COMPAT_LAYER=RUNASINVOKER && start "" %1"

Hallo KodeZwerg,

vielen Dank für deinen genialen Gedanken!

Leider funktioniert es nicht so, wie ich es mir gewünscht habe.

Also, ich habe eine Batch-Datei "test.bat" mit diesem Inhalt erstellt:

Code:

cmd /min /C "set __COMPAT_LAYER=RUNASINVOKER && start "" F:\delphi\_test\StartUnelevatedProgramFromElevatedProgram\Win32\Debug\StartUnelevatedProgramFromElevatedProgram.exe"

Wenn ich diese Batch-Datei doppelklicke, wird wie gewünscht mein Programm gestartet. So weit so gut.

Nun versuche ich mal, das Ganze von meinem elevated Programm aus zu starten:

Delphi-Quellcode:

procedure TForm3.btnRestartNotElevatedClick(Sender: TObject);
begin
  JclShell.ShellExecEx('F:\delphi\_test\StartUnelevatedProgramFromElevatedProgram\Win32\Debug\test.bat');
  Close;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  // wer MiTeC nicht hat, einfach einen anderen Code verwenden oder auskommentieren:
  if MiTeC_Routines.IsElevated then
    Self.Caption := 'Elevated'
  else
    Self.Caption := 'NOT Elevated';
end;

Ich starte also meine App mit höheren Rechten: KontextMenü im Windows-Explorer -> "Run as Administrator". Nach dem UAC prompt started dann die App elevated.

Dann klicke ich auf den Button: Das Programm startet die Batch-Datei, schließt sich selbst, und die App wird neu gestartet. Aber leider wieder elevated!

Im Anhang ist der Source-Code:

StartUnelevatedProgramFromElevatedProgram.zip