AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Maus deaktivieren...

Ein Thema von TheMiller · begonnen am 27. Jun 2003 · letzter Beitrag vom 27. Jun 2003
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11
  Alt 27. Jun 2003, 13:01
Ein eventuell vorhandenes Hauptmenü nicht vergessen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#12
  Alt 27. Jun 2003, 13:39
Moin Hagen,

Zitat von negaH:
Egal ob Setup oder Anwendung. Windows ist ein "Multitaksing" System und ich habe mir keinen Powerrechner gekauft damit mich ein Setup blockiert.
Das hab' ich jetzt einfach mal auf meine Aussage bezogen

Mir geht's hierbei nicht um eine "normale" Installation, sondern um die Verteilung von Software in Unternehmen. Da hat der User meist nicht mitzubestimmen, ob er eine Software bekommt oder nicht.
Gerade bei kompletten Systeminstallationen kann eine Abschaltung von Keyboard und Maus die Installation ganz entschieden schützen.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#13
  Alt 27. Jun 2003, 14:03
Ok,

jetzt mal zum AusgangsThread zurück. Also, was ich mit "Maus sperren" meine ist, dass der User die Maus nicht mehr bewegen kann und auch nicht klicken kann. Dies ist für mein Programm eigentlich sehr sinnvoll...

@negaH : Keine Angst, es ist kein Setup-Programm und der User kann es selbst entscheiden, wann die Maus gesperrt werden soll und wann nicht.

@Luckie : Wozu ich die Maus sperren will, ist doch egal. Wenn du einen Code oder Tipp für mich hast, du wäre ich froh, du würdest ihn mir posten... Ich kann dir nur sagen, das macht Sinn und der User, der genauso denkt, wird diese Funktion benutzen...

Würde mich über einen Code freuen, in dem die Maus komplett "einfriert"

DJ-SPM
  Mit Zitat antworten Zitat
Benutzerbild von OrallY
OrallY

Registriert seit: 29. Apr 2003
268 Beiträge
 
#14
  Alt 27. Jun 2003, 14:27
Wenn du einen Low-Level Maushook installierst (WH_MOUSE_LL) und in der Hauptfunktion das CallNextHookEx nicht aufrufst, kannst du keine Eingabe meher tätigen. Falls du nicht weißt, wie man einen Hook in der Form einichtet, guck einfach mal hier und hier, außerdem kannst du dir noch das Tutorial von Assarbad (was er eigentlich demnächst auf Vordermann bringen wollte ) angucken, zu finden auf der www.assarbad.net unter downloads->tutorials->Hooks.
Funktioniert aber glaub ich nur ab NT, da 98 diesen Maushook gar nicht kennt.
.oO'rallY
Linux is like a tipi: no gates, no windows and a gnu-eating apache inside...
  Mit Zitat antworten Zitat
CepheidenX

Registriert seit: 11. Mär 2003
43 Beiträge
 
Delphi 6 Professional
 
#15
  Alt 27. Jun 2003, 17:36
Zitat von DJ-SPM:
@Luckie : Wozu ich die Maus sperren will, ist doch egal. Wenn du einen Code oder Tipp für mich hast, du wäre ich froh, du würdest ihn mir posten... Ich kann dir nur sagen, das macht Sinn und der User, der genauso denkt, wird diese Funktion benutzen...
Ich denke nicht das es bei solchen Funktioen völlig egal ist. Immerhin kann man damit recht "unfaire" Dinge machen. Wo soll denn die verbreitung von eventuell schädlichen Code anfangen?
Ausserdem fällt mir derzeit keine Sache ein bei der das Sinn machen würde, deshalb würd mich das deswegen schon interessieren.
Zynismus ist der geglückte Versuch, die Welt so zu sehen, wie sie wirklich ist.
  Mit Zitat antworten Zitat
OregonGhost

Registriert seit: 8. Jun 2002
Ort: Lübeck
1.216 Beiträge
 
Delphi 3 Professional
 
#16
  Alt 27. Jun 2003, 18:43
Nur um mal eine Sache zu nennen wo es Sinn machen würde / könnte: Es gibt eine Reihe Tools, die sozusagen die Arbeitsstation sperren. Sie ermöglichen keine Mauseingaben mehr (Tastatur außerhalb des Programms natürlich auch nicht), und die einzige Eingabemöglichkeit wäre die eines Passwortes zwecks Entsperrung.

Ob so ein Tool in Zeiten von Windows 2000 / XP noch Sinn macht ist allerdings wiederum eine andere Frage.

Bei Spielen glaube ich allerdings nicht, dass "Maus sperren" sinnvoll ist, da es dort meist genügt, einfach den Cursor abzuschalten.

Bei potentiell bösartigem Code bin ich daher auch dafür, das Anwendungsgebiet zu benennen, denn das ist ja meist nicht so schwer...
Oregon Ghost
---
Wenn NULL besonders groß ist, ist es fast schon wie ein bisschen eins.
  Mit Zitat antworten Zitat
Benutzerbild von APP
APP

Registriert seit: 24. Feb 2003
Ort: Graz (A)
705 Beiträge
 
Delphi 7 Enterprise
 
#17
  Alt 27. Jun 2003, 19:19
Hallo,
ich hatte vor kurzem das Problem, eine Fremdapplikation zu steuern, wo
manche Komponenten keine waren, sondern nur grafische Elemente.

Daher bestimmte ich die relative Position dieser Elemente, und schob
danach die Maus dorthin und simulierte einen Mausklick.

Damit inzwischen der User nicht den Mauscurser in eine andere Richtung
verschob, versteckte/schaltete ich die Maus aus !

Delphi-Quellcode:
ShowCursor(FALSE); // Cursor aus/ein
ShowCursor(TRUE);
Damit schaltete ich die Maus aus (WinXP)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

   function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
   { Devuelve true si la funcion _funcname esta disponible en la DLL _dllname.
    Si es asi, almacena en _p la direccion de la función.}


   var _lib: tHandle;

   begin
     Result := false;
     _p := NIL;
     if LoadLibrary(PChar(_dllname)) = 0 then exit;
     _lib := GetModuleHandle(PChar(_dllname));
     if _lib <> 0 then
       begin
         _p := GetProcAddress(_lib, PChar(_funcname));
         if _p <> NIL then Result := true;
       end;
   end;


 var
   xBlockInput : function(Block: BOOL): BOOL; stdcall;

 begin
   if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) = true then
     begin
       {Bloquear entradas/Disable input}
       xBlockInput(true);
       sleep(4000);
       {Desbloquear/Enable}
       xBlockInput(false);
     end;
 end;
Quelle:Disable mouse an keyboard in whole Windows
Armin P. Pressler

BEGIN
...real programmers are using C/C++ - smart developers Delphi;
END;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz