Benutzerkennwort auslesen ??

[kuba]

Hört sich auch sehr gut an !!!

Kann mir jemand ein kleines Beispiel posten ?

KUBA

[generic]

Zitat von mkinzler:

Oder du klinckst dich in die GINA-Chain ein.

Gibt es die unter Vista noch?
Ich meine gehört zu haben, dass das alles überarbeitet wurde.

[kuba]

Beispiel hab ich schon gefunden:

Delphi-Quellcode:

uses
  Windows, SvcMgr,
  JwaWtsApi32;

...

var hToken: THandle;
  si: _STARTUPINFOA;
  pi: _PROCESS_INFORMATION;
begin
  ZeroMemory(@si, SizeOf(si));
  si.cb := SizeOf(si);
  si.lpDesktop := nil;
 
  if WTSQueryUserToken(WtsGetActiveConsoleSessionID, hToken) then
  begin
    if CreateProcessAsUser(hToken, nil, 'cmd.exe', nil, nil, False,
      CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP, nil,
      nil, si, pi) then
    begin
      // Do some stuff
    end;
  end;
  Self.DoStop;
end;

Hab mich mit den Jedi's noch nicht beschäftigt

KUBA

[christian_u]

Ich mach das einfach so, das ich in den Lokalen Anwendungsdaten des benutzerkontos eine Einstellungsdatei erzeuge. Wenn die da ist ist auch der richtige Benutzer angemeldet. Angelegt wird die einmalig durch eingabe des Passworts.

[Luckie]

Zitat von kuba:

Beispiel hab ich schon gefunden:

[..]

Hab mich mit den Jedi's noch nicht beschäftigt

Ja und jetzt? Hast du Problem mit dem Code oder was willst du uns jetzt sagen? Wenn du Probleme mit dem Code hast, wäre es sehr hilfreich das Problem mal näher zu schildern.

[Apollonius]

Zitat von christian_u:

Ich mach das einfach so, das ich in den Lokalen Anwendungsdaten des benutzerkontos eine Einstellungsdatei erzeuge. Wenn die da ist ist auch der richtige Benutzer angemeldet. Angelegt wird die einmalig durch eingabe des Passworts.

Das funktioniert nicht, wenn das Programm ein Service ist.

hToken solltest du mit CloseHandle wieder freigeben.

[kuba]

Zitat von Luckie:

Zitat von kuba:

Beispiel hab ich schon gefunden:

[..]

Hab mich mit den Jedi's noch nicht beschäftigt

Ja und jetzt? Hast du Problem mit dem Code oder was willst du uns jetzt sagen? Wenn du Probleme mit dem Code hast, wäre es sehr hilfreich das Problem mal näher zu schildern.

Hy,

habe Probleme mit den JEDI´s. Ich hab die JEDI´s nach dieser Anleitung installiert: Anleitung

Ich bekomme schon Probleme wenn ich die erzeugte JwaWindows.dcu unter "uses" einbinde.
Beim Kompilieren erhalte ich Fehlermeldungen in meinem bereits funktionierendem Code.

Gibt es bei der Verwendung der JWSCL etwas besonderes zu beachten ?

KUBA

[Dezipaitor]

Du verwendest wohl auch Windows.pas oder?
Die Reihenfolge der Units in der Uses Anweisung spielt dabei eine Rolle, welche Funktion entweder aus JwaWindows oder Windows.pas verwendet wird.
Die Reihenfolge "Windows, JwaWindows" lässt die Funktionen aus JwaWindows verwenden.

Wenn du den Funktionen jedoch den Unitname mit einem Punkt voranstellst, dann wird die Funktion direkt aus der entsprechenden Unit verwendet.

[kuba]

Zitat von Dezipaitor:

Du verwendest wohl auch Windows.pas oder?
Die Reihenfolge der Units in der Uses Anweisung spielt dabei eine Rolle, welche Funktion entweder aus JwaWindows oder Windows.pas verwendet wird.
Die Reihenfolge "Windows, JwaWindows" lässt die Funktionen aus JwaWindows verwenden.

Wenn du den Funktionen jedoch den Unitname mit einem Punkt voranstellst, dann wird die Funktion direkt aus der entsprechenden Unit verwendet.

Wie soll das aussehen, so ?

Delphi-Quellcode:

.JWAWindows function MeineFunktion;
begin
end;

KUBA

[Luckie]

Nein:
Unitname.Funktion Ich denke, du solltest du mal mit den Grundlagen auseinandersetzen.