Bildschirm sperren

[Tommy1988]

Hallo, kurze Frage,

wie ist es möglich, den kompletten Bildschirm mit allen HotKeys (MOD_ALT, VK_F4 usw..)
zu sperren?

Ich dachte mir ein transparentes Form über den Desktop zu setzen und dort die Maus zu deaktivieren
usw..

Was für Vorschläge habt ihr dort und wie kann man es umsetzen?

[Luckie]

Wozu soll das gut sein? Was willst du erreichen?

[Tommy1988]

ich möchte gerne einfach meinen desktop "sperren".

ein eingabefeld soll dann zum " wieder eintreten" dienen.

ich hab ein beispiel vorliegen, LEIDER aber NON-VCL.. (genau deine Welt luckie ;))

[Luckie]

Zeig mal das Beispiel. Und warum rufst du nicht einfach LockWorkStation auf? Das ist zu mindest sicher.

[Tommy1988]

Aber das ist doch c++

Code:

#include <windows.h>
#include <stdio.h>

void main()
{
    // Lock the workstation.

    if( !LockWorkStation() )
        printf ("LockWorkStation failed with %d\n", GetLastError());
}

[Luckie]

Ja und? Das ist eine ganz normale API-Funktion. Und wenn man API-Funktionen nicht mit Delphi aufrufen könnte, könnte man mit Delphi nicht für Windows programmieren. ;)

[Tommy1988]

Achso, wenn der Benutzer dadurch abgemeldet wird (Win-Taste+L)..

Das suche ich nicht, denn ich wollte das ja selber so gucken wie es möglich ist.

[Matze]

Selbst ist es eigentlich gar nicht möglich. Per Strg + Alt + Entf kann man dein Programm eh beenden. Nutze wie genannt LockWorkstation Klick, dann hast du eine vernünftige Lösung. Alles andere ergibt keinen Sinn.

[Tommy1988]

man kann es daruch eben nicht beenden. siehe dir das beispiel an.

mich nervt es nur, dass das non-vcl ist.. deswegen blicke ich da null durch

[Tommy1988]

Ok, wie man einen Desktop erstell weis ich nun:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    odeskt, ndeskt:hdesk;
    ninit:boolean;
    coml:string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  thr:longint;
begin
  thr:= getcurrentthreadid;
  label1.Caption:= inttostr(thr);
  odeskt:= getthreaddesktop(thr);
  label2.Caption:= inttostr(odeskt);
  ninit:= false;
  ndeskt:= 0;
  if paramcount = 0
  then coml:= inttostr(odeskt)
  else begin
    coml:= '';
    odeskt:= strtoint(paramstr(1))
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
switchdesktop(odeskt);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sab:_SECURITY_ATTRIBUTES;
  pri:_PROCESS_INFORMATION;
  sti:STARTUPINFO;
  yes:boolean;
begin
  if not(ninit)
  then begin
    sab.nLength:= sizeof(sab);
    sab.lpSecurityDescriptor:= nil;
    sab.bInheritHandle:= true;
    ndeskt:= createdesktop(pchar('pokus'),
                           nil,
                           nil,
//                           DF_ALLOWOTHERACCOUNTHOOK,
                           0,
                           (DESKTOP_CREATEMENU
                            + DESKTOP_CREATEWINDOW
                            + DESKTOP_ENUMERATE
                            + DESKTOP_HOOKCONTROL
                            + DESKTOP_JOURNALPLAYBACK
                            + DESKTOP_JOURNALRECORD
                            + DESKTOP_READOBJECTS
                            + DESKTOP_SWITCHDESKTOP
                            + DESKTOP_WRITEOBJECTS),
                           @sab);
    ninit:= (ndeskt <> 0);
    if ninit
    then begin
      sti.cb:= sizeof(sti);
      sti.lpReserved:= nil;
      sti.lpDesktop:= pchar('pokus');
      sti.lpTitle:= nil;
      sti.dwX:= 0;
      sti.dwY:= 0;
      sti.dwXSize:= 0;
      sti.dwYSize:= 0;
      sti.dwXCountChars:= 0;
      sti.dwYCountChars:= 0;
      sti.dwFillAttribute:= FOREGROUND_BLUE;
      sti.dwFlags:= 0;
      sti.wShowWindow:= 0;
      sti.cbReserved2:= 0;
      sti.lpReserved2:= nil;
      sti.hStdInput:= 0;
      sti.hStdOutput:= 0;
      sti.hStdError:= 0;
      yes:= createprocess(pchar('C:\Desk.com'),
                          pchar(coml),
                          @sab,
                          @sab,
                          true,
                          (CREATE_SEPARATE_WOW_VDM),
                          nil,
                          nil,
                          sti,
                          pri);
      switchdesktop(ndeskt);
    end;
  end
  else switchdesktop(ndeskt);
end;
end.

Wenn der Code schlecht ist, sagt es mir bitte.

Nur wie stelle ich ein EditFeld dort rein (CreateWindow vielleicht) und frage ein Passwort ab?

Edit:

Ich kriegs nicht hin mit dem EditFeld

[delphis spassbremse]

Also das mit Desktops ist so ne Sache...
habe es auch probiert, da ich meinen Internetcafe Client noch
zusätzlich absichern wollte....
Gab nur Probleme damit...

Ich würds so machen:

1. Strg + Alt + Entf (Taskmanager) mit dem Regitrywert LockTaskMgr auf 1 in
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer
sperren.
2. Dein Programm mit SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, 0);
immer im Vordergrund halten.
3. Evtl noch nen Timer setzen, der Form1.Show / Form1.Brinttofront / Application.restore
aufruft.
4. Evtl noch die WIndows Tasten Hooken.

MFG

Björn

[Luckie]

Das ist ein Desktop und Kein Fenster auf dem man ein Edit erzeugen könnte. Er erzeugt einen neuen Desktop und startet uaf diesem eine Anwendung, die den Desktop wieder zerstört und so den Rechner wieder frei gibt.

Und das hat übrigens den gleichen Effekt wie LockWorkStation. ;?

@delphis spassbremse: DAuf dn Registryschlüssel: HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer
kann man nur asl Administrator zugreifen.

[delphis spassbremse]

jo stimmt... hab ich vergessen dazuzuschreiben...
Das gleiche Problem hatte ich auch bei meiner Clientverson^^

Ich bin grad dabei eine neue zu bauen und
da kam mir in den Sinn, das Aktuelle Fenster
auf den Titel zu Überprüfen und dann ggf. den
Taskmanager / Regeditor und den Windows Ordner dann
schließen... Soweit bin ich aber noch net *g*

[Luckie]

Es gibt nicht nur den Taskamanger, um Prozesse zu beenden. ;)

[DGL-luke]

Hallo,

Vorteile von Lockworkstation:

- so sicher wies geht
- nicht dein code - eventuelle bugs muss Microsoft ausbügeln
- man machts einfach so.

Niemand hat etwas dagegen, wenn du Tools entwickelst, die einfacher, schneller, zuverlässiger als eingebaute Windows-Tools Aufgaben wie Registry-Edits, Sofwaredeinstallation etc. erledigen.
Aber das Sichern des PCs ist das falsche Rad um es neu zu erfinden.

PS: Wenn du so tief in die Innereien von Windows greifst (Desktops, Prozesse, etc.), kann es sein, dass du unter neueren Windows-Versionen (Vista!) massive Probleme bekommst, weil Sachen einfach nicht mehr funktionieren.