[Delphi] Controleren of gebruiker is ingelogd

[Donderwolk]

Op het moment ben ik bezig om een service te schrijven voor windows die automatisch de computer afsluit op tijd x:xx als er op dat moment geen gebruiker is ingelogd. Wat ik graag wil weten is hoe ik kan zien welke gebruiker er is ingelogd / of er een gebruiker is ingelogd. Hoe kan ik dit in Delphi controleren?

[Peetman]

Er is een API-call GetUserName, kijk voor meer info op Allapi.net of MSDN

[ Voor 5% gewijzigd door Peetman op 26-11-2002 13:52 ]

[Coltrui]

http://www.google.be/sear...TF-8&oe=UTF-8&hl=nl&meta=

[glrfndl]

getusername werkt niet als je een service hebt draaien. De functie geeft dan SYSTEM terug, omdat je service onder het system account werkt.

[Coltrui]

jnijboer schreef op 26 November 2002 @ 13:57:
getusername werkt niet als je een service hebt draaien. De functie geeft dan SYSTEM terug, omdat je service onder het system account werkt.

Idd, je hebt gelijk...
Heb dan ook een site gevonden waar héééél algemeen de stappen beschreven staan om vanuit een service de Interactive user op te halen, source kan je blijkbaar kopen...

[Donderwolk]

Moet er nu wel uitkomen. Bedankt voor de reacties.

[curry684]

Check eens bij de API-call OpenInputDesktop, daar kan het mee.

[glrfndl]

OpenInputDesktop lijkt het ook niet te doen als je die in een service aanroept, of ik doe iets fout, dat kan natuurlijk ook
Ik heb het op de volgende manier opgelost: ik kijk of het proces explorer.exe draait, als dat zo is dan is er iemand ingelogd. Misschien niet helemaal waterdicht, maar goed genoeg voor mijn toepassing.

[curry684]

Is nog knap waterdicht ook, maar wel een hack

Geef je bij OpenInputDesktop wel het goede WindowStation op? Ik zou ff met EnumWindowStations eroverheen loopen om te controleren of er ergens een InputDesktop beschikbaar is. Als het goed is ben je dan ook Terminal Services compliant.

[Verwijderd]

Je zal creatief moeten zijn. Maak een service die een programma opstart tijdens het starten van de service. Laat dat programma de username (SID) aan de service doorgeven, dan kom je een stuk verder denk ik.