-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
31. Mär 2009
Coooooool :) Also ich kann keine 100%ige Angabe geben aber erste Tests verlaufen erfolgreich!
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
31. Mär 2009
Okay ich habe eine neue Version via Subversion gedownloadet und bekomme weiterhin diesen Fehler.
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
30. Mär 2009
Moin Dezipaitor,
danke für die Antwort :)
Joar kann ich mir vorstellen!
Es ist jemand angemeldet (admin oder administrator) und ich verwende Windows XP. Und die JWSCL-Version weiß ich leider gerade nicht. Sie ist schon etwas älter (da kam gerade neu die Unterstützung von W2k raus ... nach Sep. 2007 (eher später) und vor 2009 ^^ . Meinst du ich sollte mal eine neue Version herunterladen?
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
30. Mär 2009
Hallo,
also ich verwende inzwischen folgenden Code:
function GetUserName : string;
var
Token : TJWSecurityToken;
begin
Token := TJwSecurityToken.CreateWTSQueryUserToken(TOKEN_ALL_ACCESS);
try
try
Result := Token.TokenOwner.AccountName;
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
15. Apr 2008
Also:
Es gibt verschiedene Stadien:
Offline (Computer ist ausgeschaltet)
Keiner angemeldet (Computer ist eingeschaltet)
Online (Jemand ist angemeldet und benutzt den PC)
Im ersten Fall passiert nichts :mrgreen: .
Im zweiten hingegen sucht JWSCL nach "Explorer.exe", welches es aber nicht findet bzw. finden kann, also ist die Fehlermeldung angebracht (oder geht das auch "netter"?).
Und im...
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
15. Apr 2008
Es war ganz einfach (vermute ich): Da ich die falschen Quellen genommen habe, funktionierte das auch dann nicht, wenn einer angemeldet ist. Ansonsten ist mir das egal ;)
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
15. Apr 2008
Hallo,
ich wollte gerade mal meinen Serivce wieder testen und auf Vordermann bringen, und dann habe ich das Problem, das die JWSCL meint, es gäbe die "Explorer.exe" nicht:
An Exception of type EJwsclProcessNotFound was raised.
(Data was given by programmer and can vary from actual source.)
Source method....: CreateCompatibilityQueryUserToken
Source class.....: TJwSecurityToken
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
12. Dez 2007
Ich wusste es schon immer xD Ich bin ein Ausserirdischer xD
Hehe ^^ Nagut ;)
Also es lässt sich nun kompilieren und ausführen.
Und er scheint auch einen Benutzernamen zu bekommen ;) Habe leider es nur nicht in der Aufregung getestet :oops:
Wird Freitag wahrscheinlich erst was xD
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
11. Dez 2007
Aber anscheinend tut er das nicht korrekt, oder er muss als root-Element die Explorer.exe haben, was aber sinnlos wäre (oder nicht?), weil man damit ja auch die eigenen Tokens kennt?!
Naja, aber der Benutzer ist ja angemeldetet.
Betriebssystem ist aber nicht Windows XP oder höher!
Also folgern wir daraus, dass ein installierter Dienst unter Windows 2000 mithilfe von...
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
11. Dez 2007
Das ist ja so ne besonderheit des Dienstes, dass er normalerweise immer läuft xD
Naja, aber wenn ich Dienst über /install installiere nützt mir dann diese Funktion ja wenig.
Oder könnte man die Tokens der Explorer.exe herausfinden? Weil unter Windows 2000 konnte sich ja nur ein Benutzer anmelden...
MfG
xZise
PS: Läuft die Explorer.exe eigentlich auch, wenn niemand angemeldet ist?
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
11. Dez 2007
Naja? Wenn ich das Token "lade", bekomme ich den Fehler dass keine Explorer.exe gestartet ist?
Allerdings ist dem nicht so ...
Also weiß ich nicht, warum die JWSCL einen Fehler wirft und deshalb kein Ergebnis liefert.
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
11. Dez 2007
Hmmm....
Er gibt eine Fehlermeldung aus, dass der Explorer.exe Prozess nicht gefunden wurde.
Natürlich gibt es den nicht als Starter des Dienstes, aber wenn ich das Aufrufe gibt es eine Explorer.exe ;)
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
10. Dez 2007
Okay :(
Aber er kompliert nur JwaWindows und JwaVista.
Aber ich benötige wegen den Tokens andere dcus.
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
7. Dez 2007
So... ich mache dass jetzt über das neue, aber er kann den nicht installieren:
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
6. Dez 2007
Alles klar :) Ich hatte angenommen, dass auch das andere aktualisiert wird.
Ich werde morgen mal gucken. Ggf. fällt eine Lehrerin aus, so dass ich 'ne Freistunde hätte.
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
5. Dez 2007
Und wo finde ich den Aufruf?
Ich habe mir die neueste Version gedwonloadet ohne Erflogh!
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
1. Dez 2007
Also damit wird es jedenfalls nicht gehen, da es auf Windows 2000 laufen muss.
Ich habe übrigens die Hilfe-Datei durchforstet, und alle Ergebnisse auf "logged, on, user" hängen mit den aktuellen Thread/Process zusammen... Außer WTSQueryUserToken, welches ja nicht unter W2k geht :(
MfG
xZise
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
30. Nov 2007
So... Dienst installiert, gestartet und getestet mit folgenden Code:
function GetUserName : string;
var
sl : TStringList;
Token : TJwSecurityToken;
begin
Token := TJwSecurityToken.CreateTokenEffective(TOKEN_READ);
try
Result := Token.TokenOwner.AccountName;
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
29. Nov 2007
Hatte es vergessen oben zu editieren :)
Schon mal was von Pushen gehört? Ich denke bei 4 Jahren DP Erfahrungen schon oder ;)
MfG
xZise
PS: Kann man irgendwie ein Dienst schnell testen? Also ohne die ganzen Reboots?
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
29. Nov 2007
So... Ich habe nun versucht das zu übersetzen, aber es gibt mehrere Probleme:
library logonoffdll;
const
g_szPath : array of PChar =('c:\somepath\execut.exe \"arguments\"');
uses
SysUtils,
Classes,
Windows;
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
28. Nov 2007
Leider kann ich kein C++ ;)
-
Forum: Win32/Win64 API (native code)
Delphi
by xZise,
28. Nov 2007
Hi DP,
ich habe eine Frage, und zwar wie kann ich den aktuell angemeldeten Benutzer ermitteln?
Ich habe schon im Forum gesucht, und dort wurde die Variable "username" empfohlen.
Ich habe das eingebaut, und als Anwendung funzt es, aber in einem Dienst bekomme ich nur einen Leerstring.
MfG
xZise
Titel korrigiert - Mfg, SirThornberry