Fenster in absoluten Vordergrund bringen

[CReber]

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;