Einzelnen Beitrag anzeigen

berens

Registriert seit: 3. Sep 2004
433 Beiträge
 
Delphi 10.4 Sydney
 
#1

Suche "UnLockWorkstation"

  Alt 22. Jun 2007, 08:44
Hallo!

Keine Sorge, ich will hier keinen Hack der mich an der Windows Anmeldung vorbeiführt, sondern folgendes:

In Anlehnung an meinen anderen Thread der das Problem erläutert wofür ich das Programm brauche http://www.delphipraxis.net/internal...t.php?t=112639 bin ich jetzt soweit, dass ich, sobald ein neues USB-Gerät erkannt wird, die Arbeitsstation sperre mit LockWorkStation.

Ich habe schon die Suche gequält und bin u.A. bei http://www.delphipraxis.net/internal...ockworkstation gelandet und hab mich auch ein wenig über Gina.dll eingelesen. Dies greift mir aber leider zu viel ins System ein; ich versuche mein Programm so zu halten, dass es auch mit Gastrechten läuft, also kann ich keine Systemdateien des Kunden ersetzen.

Meine Idee wäre folgende:
Delphi-Quellcode:
  if Sicherheitsbedenken and not blLocked then begin
    LockWorkStation;
    blLocked := True;
  end;

  ..

  Timer1.Timer:
  if not Sicherheitsbedenken and blLocked then begin
    UnLockWorkStation;
    blLocked := False;
  end;
Den Befehl UnLockWorkStation gibt es nicht.

-den PC mit einem eigenen Programm zu Blockieren (Vollbild, alle Tasten sperren) halte ich für nicht sicher genug
-muss meine Gina.dll unbeding die von Windows ersetzen, oder kann ich die für die Dauer, solange mein Programm läuft einfach laden und bei Programmende entladen dass wieder die Windows-Eigene Anmeldung unterstützt wird?
  Mit Zitat antworten Zitat