AGB  ·  Datenschutz  ·  Impressum  







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

Alle Systemweiten Eingaben abfragen

Ein Thema von Destroyer446 · begonnen am 23. Jun 2012 · letzter Beitrag vom 25. Jun 2012
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.877 Beiträge
 
Delphi 12 Athens
 
#1

AW: Alle Systemweiten Eingaben abfragen

  Alt 23. Jun 2012, 23:30
Garnicht?

Diese Code muß in jeden Prozess injiziert werden, darum ja auch die DLL.


OK, wenn dem nicht so ist.

Es gibt 2 große Gründe für DLLs:
- entweder wird der Hook in jeden Prozess injiziert
- oder er wird wo anders im System geladen

Alles was nicht innerhalb deiner Anwendung läuft, muß aber in eine DLL, da es sonst drüben nicht geladen werden kann.
Oder man reserviert selber drüben Speicher, kopiert den Code rüber, paßt noch ein paar Handles/Pointer an und startet z.B. bei diesem Code einen Remote-Thread.


Komisch, vorhin sah es irgendwie nach der ersten Variante aus.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (24. Jun 2012 um 17:16 Uhr)
  Mit Zitat antworten Zitat
Destroyer446

Registriert seit: 17. Jan 2011
67 Beiträge
 
#2

AW: Alle Systemweiten Eingaben abfragen

  Alt 24. Jun 2012, 09:17
Und... wie injiziere ich den in jeden Prozess?
Außerdem - Wenn ich das Handle von nem anderen Fenster nehme wie Skype, funktioniert das auch nicht...

Mfg
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
10.203 Beiträge
 
Delphi 13 Florence
 
#3

AW: Alle Systemweiten Eingaben abfragen

  Alt 24. Jun 2012, 09:42
Garnicht?

Diese Code muß in jeden Prozess injiziert werden, darum ja auch die DLL.
Davon, dass man Blödsinn wiederholt, wird er auch nicht wahrer...
Ich habe oben ja schon geschrieben, dass das was globale Maus- und Tastaturhooks betrifft nur oft fälschlicherweise behauptet wird. Dass du dann trotzdem wieder anfängst solche Gerüchte zu verbreiten...

Das stimmt für die meisten Hooks, auch der Maus- und Tastaturhooks, die im Desktop Window Manager ansässig sind. So auch der oben genannte WH_KEYBOARD. Denn da dieser im Desktop Window Manager läuft, kann dieser keinen Code einer anderen Anwendung ausführen.

Es stimmt aber nicht generell für globale Maus- und Tastaturhooks. Die Lowlevel Maus- und Tastaturhooks arbeiten im System und nicht in einem externen Prozess. Und deshalb können die auch auf Code in einer Anwendung direkt zugreifen und es wird keine DLL benötigt.

Und wer es immer noch nicht glaubt, ein schnell gestricktes Beispiel liegt im Anhang. Die Umwandlung von Tasten wie ! oder so fehlt noch.

// EDIT:
Und injiziert werden muss schonmal gleich gar nix. Die Hook-Prozedur wird vom System oder vom DWM aufgerufen, mehr nicht...
Angehängte Dateien
Dateityp: zip Tastaturhook.zip (530,0 KB, 83x aufgerufen)
Sebastian Jänicke
AppCentral

Geändert von jaenicke (24. Jun 2012 um 13:51 Uhr)
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#4

AW: Alle Systemweiten Eingaben abfragen

  Alt 24. Jun 2012, 16:59
Davon, dass man Blödsinn wiederholt, wird er auch nicht wahrer...
Ein wenig arrogant heute, wie? Und was für ein Benehmen... Shocking.
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
10.203 Beiträge
 
Delphi 13 Florence
 
#5

AW: Alle Systemweiten Eingaben abfragen

  Alt 24. Jun 2012, 17:26
Wenn ich extra schreibe, dass das nur immer wieder falsch irgendwo behauptet wird und das dann genau wieder kommt, dann finde ich das halt nicht wirklich schön...
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Destroyer446

Registriert seit: 17. Jan 2011
67 Beiträge
 
#6

AW: Alle Systemweiten Eingaben abfragen

  Alt 25. Jun 2012, 12:59
So, ich habs jetzt mal auf einem anderen Weg versucht, nur bekomme ich hier immer EStackOverflow Error (nach 10s).
Mein Code (eigene Unit):
Delphi-Quellcode:
unit GlobalPressedKey;

interface

uses Windows, ExtCtrls, Classes;

type
  TGlobalPressedKey = class(TObject)
  private
    KeyTimer: TTimer;
    procedure KeyTimerOnTimer(Sender: TObject);
    function GetPressedKey: Integer;
    procedure SetPressedKey(Key: Integer);
  public
    constructor Create(AOwner: TComponent; AIntervalKeyCheck: Integer = 10);
    property PressedKey: Integer read GetPressedKey write SetPressedKey default 0;
    destructor Free;
  end;

implementation

constructor TGlobalPressedKey.Create(AOwner: TComponent; AIntervalKeyCheck: Integer = 10);
begin
 KeyTimer := TTimer.Create(AOwner);
 KeyTimer.Interval := AIntervalKeyCheck;
 KeyTimer.OnTimer := KeyTimerOnTimer;
end;

procedure TGlobalPressedKey.KeyTimerOnTimer(Sender: TObject);
var
 i: Integer;
begin
 For i := 1 to 300 do
  If GetAsyncKeyState(i) and 1 <> 0 then
  begin
   SetPressedKey(i);
   Exit;
  end;
 SetPressedKey(0);
end;

procedure TGlobalPressedKey.SetPressedKey(Key: Integer);
begin
 PressedKey := Key; // Markiert wird immer diese Zeile aber naja.... es liegt doch irgendwie am Timer oder?
end;

function TGlobalPressedKey.GetPressedKey: Integer;
begin
 Result := PressedKey;
end;

destructor TGlobalPressedKey.Free;
begin
 KeyTimer.Free;
end;

end.
Mfg
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.678 Beiträge
 
Delphi 12 Athens
 
#7

AW: Alle Systemweiten Eingaben abfragen

  Alt 25. Jun 2012, 13:02
Zitat:
Delphi-Quellcode:
function TGlobalPressedKey.GetPressedKey: Integer;
begin
 Result := PressedKey;
end;
Du weist im Getter den Wert der zugehörigen Property zu, welche über den Getter ermittelt wird, der auf die Property zugreift...
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.922 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Alle Systemweiten Eingaben abfragen

  Alt 25. Jun 2012, 13:02
Passt doch mit der markierten Zeile: "PressedKey" ist eine Eigenschaft der Klasse "TGlobalPressedKey", deren Setter "SetPressedKey" immer dann aufgerufen wird, wenn Du ihr einen Wert zuweist. Und wenn wir mal schauen, was in diesem Setter passiert, dann ... huch .. sehen wir, dass Du genau der Eigenschaft etwas zuweist, in deren Setter Du gerade bist. Das Programm läuft im Kreis und nach einer gewissen Zeit wird ihm schlecht.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Destroyer446

Registriert seit: 17. Jan 2011
67 Beiträge
 
#9

AW: Alle Systemweiten Eingaben abfragen

  Alt 25. Jun 2012, 13:15
Aber ich brauch den Getter doch um aus PressedKey zu lesen?!
Wie soll ich das dann machen?

Hab sowas noch nicht oft gemacht^^

Mfg
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

AW: Alle Systemweiten Eingaben abfragen

  Alt 24. Jun 2012, 18:32
Davon, dass man Blödsinn wiederholt, wird er auch nicht wahrer...
Ein wenig arrogant heute, wie? Und was für ein Benehmen... Shocking.
Was ist daran arrogant, wenn etwas richtig gestellt wird?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 04:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz