AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi CreateProcessAsUser + Link gegen VCLPackage = kein Application.Handle
Thema durchsuchen
Ansicht
Themen-Optionen

CreateProcessAsUser + Link gegen VCLPackage = kein Application.Handle

Ein Thema von Memnarch · begonnen am 23. Jan 2015 · letzter Beitrag vom 12. Feb 2015
 
Benutzerbild von Memnarch
Memnarch

Registriert seit: 24. Sep 2010
737 Beiträge
 
#1

CreateProcessAsUser + Link gegen VCLPackage = kein Application.Handle

  Alt 23. Jan 2015, 13:31
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:
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
Da man Trunc nicht auf einen Integer anwenden kann, muss dieser zuerst in eine Float kopiert werden
  Mit Zitat antworten Zitat
 


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 08:29 Uhr.
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 by Thomas Breitkreuz