System anhalten bis Form geschlossen ist.

[Interritor]

Hi zusammen,

ich hab mal wieder eine Frage und zwar will ich einen Login-Programm für Windows schreiben. Nur wie schaff ich es das man "Windows" erst wieder benutzen kann wenn man sich erfolgreich eingeloggt hat sprich die Form geschlossen/ beendet wurde?

Ich hoffe hier versteht was ich meine.



Schonmal viel Dank im vorraus!


mfg
Interritor

[neolithos]

Für welches System Win9x oder NT,2k,XP

da gibt es empfindliche Unterschiede...

[Interritor]

Für Win 2k.

[Illuminator-23-5]

du könntest folgendes machen:
form1.FormStyle := fsStayOnTop;
die Taskbar verstecken (geht so:

Delphi-Quellcode:

var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE);

, mit SW_RESTORE wieder sichtbar machen)
dann irgendwie Alt+Tab und ähnliche systemroutinen abfangen,

bis er eben wieder das Passwort eingegeben hat oder so
ist ziemlich umständlich und wahrscheinlich (sicherlich) nicht DIE Lösung, es wär aber 'ne (aufwendige) möglichkeit

[sakura]

Da musst Du Dich mit der "GINA.DLL" befassen. Am besten mal googeln oder bei MDSN vorbeischauen.

gina.dll

......

[Luckie]

Öhm, falls du es noch nichtbemerkt hast, Windows2000 hat schon ein "Login-System". Wozu soll deines jetzt noch gut sein?

[Interritor]

Schonmal Danke!!!

Das Windows ein Login System hat weiss ich auch, ich will aber ein Chipkarten-Login-System schreiben. Wo halt die Informationen auf einer Chipkarte gelesen und überprüft werden.

[Frank2269]

Hallo Interritor,

Um das System einzuschließen kannst du folgendes versuchen ...
Bei Windows 2000, NT 4 funktioniert das super.

Delphi-Quellcode:

Function LockWS: Boolean;
type
  TLockWorkStation = function: Boolean;
var
  hUser32: HMODULE;
  LockWorkStation: TLockWorkStation;
begin
  hUser32 := GetModuleHandle('USER32.DLL');
  if hUser32 <> 0 then
  begin
    @LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
    if @LockWorkStation <> nil then
    begin
      LockWorkStation;
      Result := True;
    end;
  end;
end;

Der Aufruf der Function ist ...

Delphi-Quellcode:

procedure TForm1.SytemEinschlieen1Click(Sender: TObject);
begin


if  not LockWorkStation then MessageDlg('Vorgang fehlgeschlagen !', mtError,[mbOk], 0);



end;

[neolithos]

@Frank: Wie verhält sich LockWorkStation?

Für den Dialog:

@Illuminator
Der sicherste weg ist über CreateDesktop eine Login-Session erstellen!
So machst jedenfalls Microsoft.

Oder


via Hook alles Unterdrücken was WM_CREATE abfeuert.
Und was schon da ist Hidden.

[negaH]

Win2k unterstürzt doch schon SmartCard Login's ?
Es müssen halt richtige SmartCard's sein, und keine Speicherkarten von Towikoto.

Gruß Hagen