Einzelnen Beitrag anzeigen

Benutzerbild von CReber
CReber

Registriert seit: 26. Nov 2003
Ort: Berlin
343 Beiträge
 
Delphi 2006 Professional
 
#1

Fenster in absoluten Vordergrund bringen

  Alt 22. Jul 2004, 16:19
Ich möchte durch einen Sperrbildschirm verhindern, dass jemand an den Rechner gelangt ! Momentan verwende ich dazu eine Form die in einem Timer in der Vordergrund gerückt wird...

Es handelt sich dabei um das Programm USB-Access woran ich schon eine Weile arbeite ! Nun habe ich das Problem das manche Programme diesen Sperrbildschirm trotzdem überdecken (Beispiel Trillian)

Hat jemand Vorschläge wie ich das verhindern kann? Also den ABSOLUTEN Vordergrund erzwingen kann... Ich wäre sehr dankbar!



Delphi-Quellcode:
procedure TUSBEngine.tmrHandleTimer(Sender: TObject);
begin
  case (USBSperrScreen.Showing) of
    True:
      begin
        if (InputPwd.Showing) then
          begin
            if not (GetForegroundWindow=InputPwd.Handle) then
              SetForegroundWindow(InputPwd.Handle);
          end
        else
          if not (GetForegroundWindow=USBSperrScreen.Handle) then
            SetForegroundWindow(USBSperrScreen.Handle);
      end;
  end;
end;
Christian Reber
  Mit Zitat antworten Zitat