BlockInput unter Vista?

[Die Muhkuh]

Hi,

ich hab ein Programm, welches per SetCursorPos und einem mouse_event auf einem anderen Proramm rumklickt und danach eine Texteingabe simuliert. Während dieser Zeit, darf man nirgendwo anders hinklicken, sonst passieren "mysteriöse" Dinge.

Im Klartext hieße das, dass ich den kompletten Input blocken möchte (STRG+ALT+Entf und so weiter muss nicht geblockt werden (ginge ja nur durch DLL Ersetzung)). Die Hauptsache ist, dass der Benutzer nicht versehentlich irgendwo hin klickt.

Unter Vista jedoch scheint BlockInput nicht mehr zu funktionieren. Ich kann weiterhin die Maus bewegen und Tastatureingaben senden.

Delphi-Quellcode:

function BlockInput(fBlockIt: boolean): boolean; stdcall; external 'user32.dll';

Mein Aufbau vom Code ist ungefähr so:

Delphi-Quellcode:

BlockInput(true);

try
  HWND holen;
  
  Schleifenbeginn;
    Rechtsklick senden;
    Taste senden;
    Einige Tastureingaben senden;
    OK klicken;
  Schleifenende;
finally
  BlockInput(false);
end;

Hat jemand eine Idee?

[mirage228]

Hi,

Laut dem hier:
https://forums.microsoft.com/MSDN/Sh...80586&SiteID=1

scheitert es an den Benutzerrechten... musst mal schauen ob du ggf. Admin-Rechte brauchst.

mfG
mirage228

[Die Muhkuh]

Hi,

danke. Da war es jetzt. Dann werd ich wohl doch ein Manifest mitgeben müssen, damit das Programm Adminrechte fordert.

[Dezipaitor]

GetLastError gibt doch eindeutig 5 (Access denied) für BlockInput zurück.

[Die Muhkuh]

Ähem, Recht hast Du, an GetLastError hatte ich auf die schnelle gar nicht gedacht :oops:

[coollupo]

Hat jemand eine Idee, wie man nun BlockInput unter Windows Vista realisieren könnte, ohne dabei Adminrechte zu haben?

[Luckie]

Wenn du mit Gewalt das System für den Benutzer unbedienbar machen musst, damit dein Programm korrekt funktioniert, stimmt was mit deinem Design nicht.

[coollupo]

Hmm, das Problem ist folgendes:
nach einem Input in einer Eingabemaske muss ich ein paar Berechnungen inkl. Datenbankzugriffe machen.
In der Eingabemaske habe ich 8 Felder nebeneinander, in denen jeweils die oben genannte Routine aufgerufen wird.
Da die Berechnungsroutine etwas länger dauert, als der User benötigt, um isn nächste Feld zu wechseln und den gleichen Prozess nochmasl anzustoßen, möchte ich ihn daran hindern, bis ie Berechnungsroutine abgeschlossen ist. Dazu ist der Befehl BlockInput doch ganz brauchbar.
Aber ich bin für konstruktive Vorschläge natürlich offen...

[alzaimar]

Äh...

Delphi-Quellcode:

Function StarteWennNichtSchonGestartet  : Boolean;
Begin
  fMyCriticalSection.Enter;
  Try
    Result := Not fGestartet;
    fGestartet := True;
  Finally
    fMyCriticalSection.Leave;
  End;
End;

Procedure FertigMitDerArbeit;
Begin
  fMyCriticalSection.Enter;
  Try
    fGestartet := False;
  Finally
    fMyCriticalSection.Leave;
  End;
End;

Procedure StarteRoutine;
Begin
  If Not StarteWennNichtSchonGestartet Then Exit;
  Try
    MachWasDuWilst; 
  Finally
    FertigMitDerArbeit;
  End;
End;

So vielleicht? Geht auch mit einer Semaphore oder einem Mutex von Windows...

Du kannst aber auch einfach die Editfelder auf 'ReadOnly' setzen, oder das OnKeyDown-Ereignis der Form (mit KeyPreview = True) überschreiben, oder oder oder.

Ich mache es immer so:

Ich habe einen Timer, der auf 50ms eingestellt ist.
Sobald ein Ereignis eintritt, das die Neuberechnung anstößt, wird der Timer angeschaltet.
Jeder Tastendruck setzt den Timer zurück.
Wenn man nun 50ms nichts tippt, wird er ausgelöst und kann dann z.B. die Berechnungen anwerfen.

So spürt der Anwender keinerlei Verzögerung, bekommt aber trotzdem 'sofort' das Resultat zu sehen.

[Luckie]

Zitat:

Zitat von coollupo

Da die Berechnungsroutine etwas länger dauert, als der User benötigt, um isn nächste Feld zu wechseln und den gleichen Prozess nochmasl anzustoßen, möchte ich ihn daran hindern, bis ie Berechnungsroutine abgeschlossen ist.

Ach so und deswegen hinderst du ihn auch gleich daran auch mit einer anderen Anwendung weiterarbeiten zu können? Warum deaktivierst du nicht einfach die entsprechenden Steuerelemente?