BlockInput (USER32.DLL) in APPTYPE CONSOLE keine Wirkung

[taveuni]

Hallo Leute,

Ich habe ein eigenartiges Problem mit einer Konsolenapplikation.
Ich habe folgendes deklariert:

Delphi-Quellcode:

function BlockInput(fBlockInput: Boolean): DWORD; stdcall;
  external 'user32.dll';

Der Aufruf der Funktion dann:

Delphi-Quellcode:

  if GetCmdLineSwitch('freeze') then
    Writeln(Format('BlockCursor. Result:%d',[BlockInput(True)]));

Starte ich die Anwendung via IDE mit dem Parameter der diese Funktion aufruft
funkioniert alles wie gewünscht. Der Rückgabewert ist 1 und es können keine Eingaben
mehr gemacht werden (Vorsicht beim testen).
Starte ich die Anwendung ausserhalb mit dem Parameter -freeze wird ebenfalls
"BlockCursor. Result:1" ausgegeben. Aber der Input wird nicht geblockt.

Auch die MSDN hat mich nicht weitergebracht.
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Dies alles auf Windows XP SP3/ Delphi 2007

Hat da jemand eine Idee?

Edit: Crosspost Delphi-Treff
http://forum.delphi-treff.de/showthread.php?t=27641

[Luckie]

Was willst du damit bezwecken? Warum willst du die Eingaben sperren?

[taveuni]

Hallo,

Das ganze ist für eine Industrieapplikation.
Es sind 300 Windows XP Embedded Clients welche via Browser etwas darstellen.
Beim Start müssen via einem kleinen Konsolenprogramm u.a. die Zeit synchronisiert
und der Mauscursor versteckt und geblockt werden. Die PC's haben keine Peripherie.
Aber von Zeit zu Zeit können sich die Administratoren die Bildschirmausgabe via
Remoteaccess anzeigen lassen. Wenn die Eingabe nicht geblockt wird steht der
Mousecursor nach dem verlassen irgendwo im Screen. Mit der Funktion soll dies verhindert werden.

Danke für weitere Tips.

[hathor]

Delphi-Quellcode:

ShowCursor(false); //Cursor NICHT sichtbar
ShowCursor(true); //Cursor sichtbar

[taveuni]

Leider nein.

ShowCursor() gilt nur für die eigene Applikation.
Danke.

[taveuni]

O.K. Leute,

Der Fehler sass mal wieder vorm Schirm.
Siehe hier: http://forum.delphi-treff.de/showthread.php?t=27641

Danke