CreateProcessAsUser + Link gegen VCLPackage = kein Application.Handle

[Memnarch]

Hi,
Ich habe gerade ein merkwürdiges Problem:
Mein Service erstellt per CreateProcessAsUser eine GUI-Applikation im Kontext des aktuell aktiven Benutzers (steht nicht zur diskussion!). Dabei habe ich festgestellt, dass ich Probleme mit Synchronize von TThread habe. Nachdem ich ein wenig nachgeforscht habe, musste ich feststellen, dass Application.Handle $0 ist. Dass dann WakeMainThread nicht geht und sich einiges weghängt ist logisch.

Aus irgendeinem grund wird TApplication.CreateHandle nicht aufgerufen, oder liefert kein Handle. Gui-Applikation ist gegen vcl und rtl packages gelinkt. Starte ich das Programm per doppelklick funktioniert alles. Andere Möglichkeit: Gegen keine Packages linken. Das geht aber aufgrund von Plugins die später geladen werden nicht (zum testen habe ich die Plugins ausgeschaltet, es ist gerade nurnoch eine nakte MainForm).

Andere Lösung, in der DPR am Anfang einfach Application.CreateHandle aufrufen. (Hab auch noch gefühlt nen anderes dutzend workarounds die tadelos gehen, ich will nur verstehen was hier passiert).

Zum aufrufen:
Nachdem der UserToken der aktiven session geholt wurde, und ein EnvironmentBlock erstellt wurde, wird folgendes aufgerufen:

Delphi-Quellcode:

CreateProceAsUser(Token, nil, CommandLine, nil, nil, False, 0, EnvironmentBlock, nil, StartupInfo, ProcessInfo)

In StartupInfo ist der Desktop entsprechend auf 'Winsta0\Default' gesetzt.

Jemand eine AHnung, was das Phänomen verursachen könnte? Innerhalb von CreateHandle wird auf not IsConsole überprüft, der auffruf von CreateHandle ist mit not IsLibrary abgedeckt. Nen Grund warum die Variablen vllt innerhalb der packages gesetzt werden?

Grüße
Memnarch

[Zacherl]

Erstell den Prozess mal suspended und häng dann den Delphi Debugger an. Da müsstest du ja dann sehen, welcher Aufruf mit welchem Fehlercode fehlschlägt.

[Memnarch]

Darauf war ich noch gar nicht gekommen, werd ich mir mal angucken.

EDIT: achja, es trat ja nur auf, wenn ich gegen VCL/RTL packages linke und wie soll ich die unter XE debuggen?

[jaenicke]

Mit Debug-DCUs ist das eigentlich kein Problem soweit ich mich erinnere. Aber es stimmt schon, bei Runtime Packages bin ich mir nicht ganz sicher, ich dachte ich hätte die auch schon drin gehabt.

[Memnarch]

Okay habs durch Zufall lösen können:
http://www.delphipraxis.net/1289428-post14.html

Zitat:

Meine Applikation linkt gegen PackageA(Was gegen RTL/VCL gelinkt ist). Allerdings linkt meine Applikation auch gegen MeineDll, welche auch gegen PackageA linkt. Was bedeutet das? Es zerrümpelt die Reihenfolge in der units initialisiert werden, den dadurch kommen erst die units aus den packages und dann die units aus Meiner Applikation (normalerweise ist das von der Reihenfolge in der Applikation abhängig). Deswegen war auch schon alles initialisiert bevor der erste initialisierungsblock meiner Applikation lief -.-

Das scheint auch zur folge zu haben, dass für die Packages IsLibrary gilt. Warum nur bei CreateProcessAsUser? Keine Ahnung. Jedenfalls war dass der Grund warum so einiges im argen lag.

Grüße
Memnarch