Formfenster soll wenn es inaktiv ist auf eingabe reagieren

[Axxus]

Hi Delphianer :hi:

Gesucht hab ich schon aber nix gefunden

Also folgendes

Ich hab ein Programm das auf Eingaben reagieren soll selbst wenn es inaktiv ist

Blödes Beispiel jetzt aber zum Beispiel soll

das Programm im hintergrund laufen und ich zocke ien PC spiel und wenn ich auf 1 drücke macht es einen screenshot, wenn ich auf 2 drücke spielt es Musik ab wenn ich auf 3 drücke hält es die Musik auf ...

eben das ich nicht immer das Fenster wechseln muss wenn ich was außerhalb meines Spiels machen will

:dancer: Axxus :dancer2:

[Thanatos81]

Was du suchst ist Hooking. Eine Suche nach Hook, Hooks oder eben Hooking sollte dir schon weiterhelfen. Würde dir ja nen genaueren Hinweis geben, aber ich hab mich mit Hooking bisher selbst noch nicht beschäftigt ,-)

[EWeiss]

Hier damit du siehst auf was du dich da einläßt!

Delphi-Quellcode:

library HookDLL; 

uses 
  Windows, 
  Messages, 
  SysUtils, 
  Classes; 

{$R *.res} 

var 
  G_hHook      : THandle; 

//------------------------------------------------------------------------------ 
function MessageHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; 
var 
  aMsg: ^tagMSG; 
  aCDS: TCopyDataStruct; 
  hWnd: THandle; 
begin 
  if (nCode < 0) then 
    Result := CallNextHookEx(G_hHook, nCode, wParam, lParam) 
  else 
  begin 
    aMsg := pointer(lParam); 

    aCDS.dwData := 0; 
    aCDS.cbData := SizeOf(tagMsg); 
    aCDS.lpData := aMsg; 

    if aMsg^.message = WM_MOUSEWHEEL then // !!! 
    begin 
      hWnd := FindWindow(nil, 'Form1'); 
      SendMessage(hWnd, WM_COPYDATA, 0, integer(@aCDS)); 
    end; 
    if aMsg^.message = WM_LBUTTONDBLCLK then // !!!
    begin 
      hWnd := FindWindow(nil, 'Form1'); 
      SendMessage(hWnd, WM_COPYDATA, 0, integer(@aCDS)); 
    end;
    Result := CallNextHookEx(G_hHook, nCode, wParam, lParam); 
  end;
end; 
//------------------------------------------------------------------------------ 

//------------------------------------------------------------------------------ 
function InstallHook(DWThreadID: DWORD): boolean; stdcall; 
begin 
  Result := False; 

  if (G_hHook <> 0) then 
  begin 
    MessageBox(0, 'Hook already installed!', '', 0); 
    Exit; 
  end; 

  G_hHook := SetWindowsHookEx(WH_GETMESSAGE, @MessageHookProc, GetModuleHandle('HookDLL.dll'), DWThreadID); 

  Result := G_hHook <> 0; 

  if Result then 
     MessageBox(0, 'Hook successfully installed.', 'InstallHook', MB_ICONINFORMATION); 
end; 
//------------------------------------------------------------------------------ 

//------------------------------------------------------------------------------ 
procedure UnInstallHook; stdcall; 
begin 
  if (G_hHook <> 0) then 
     UnhookWindowsHookEx(G_hHook); 
end; 
//------------------------------------------------------------------------------ 

exports 
  InstallHook, 
  UnInstallHook; 

begin 
  G_hHook := 0; 
end.

Mußt du halt selber umstricken auf Tastatur Befehle.

Gruß

[Axxus]

ach du sch...e

OK ich schau aml ob ich damit was anfangen kann

Vielen Dank :!: :!: :!:

Axxus

[EWeiss]

Hier noch ein Beispiel!

Copy/Paste

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    btnHook: TButton;
    edWndToHook: TEdit;
    lvMain: TListView;
    procedure btnHookClick(Sender: TObject);
  private
    { Private declarations }

  protected
    procedure _WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  function InstallHook(DWThreadID: DWORD): boolean; stdcall external 'HookDLL.dll';

implementation

{$R *.dfm}

procedure TForm1.btnHookClick(Sender: TObject);


begin
  if not InstallHook(0) then // nicht dwThreadID übergeben, sondern 0, weil ALLE Applikationen gehookt werden sollen.
     raise Exception.Create('Error installing hook');

end;


procedure TForm1._WMCopyData(var Msg: TWMCopyData);
var 
  aMsg: ^tagMsg;
begin 
  aMsg := Msg.CopyDataStruct.lpData; 

  with lvMain.Items.Add do 
  begin
    Caption := IntToStr(aMsg^.time);
    SubItems.Add(IntToStr(aMsg^.message));
    SubItems.Add(IntToStr(aMsg^.wParam));
    SubItems.Add(IntToStr(aMsg^.lParam));
  end;
end;

end.

Unit1.dfm

Delphi-Quellcode:

object Form1: TForm1
  Left = 342
  Top = 107
  Width = 585
  Height = 263
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btnHook: TButton
    Left = 8
    Top = 8
    Width = 97
    Height = 25
    Caption = 'Hook this window'
    TabOrder = 0
    OnClick = btnHookClick
  end
  object edWndToHook: TEdit
    Left = 112
    Top = 10
    Width = 321
    Height = 21
    TabOrder = 1
    Text = 'notepad'
  end
  object lvMain: TListView
    Left = 8
    Top = 40
    Width = 417
    Height = 177
    Columns = <
      item
        Caption = 'Time'
      end
      item
        Caption = 'Message'
        Width = 100
      end
      item
        Caption = 'wParam'
        Width = 100
      end
      item
        Caption = 'lParam'
        Width = 100
      end>
    TabOrder = 2
    ViewStyle = vsReport
  end
end

Gruß

[EWeiss]

Noch eins !
das dürfte aber reichen...

http://assarbad.net/stuff/tutorials/hooks/
In Deutsch

Google läßt grüßen! ;)

Achtung ! Du darfst aber Hooks nicht benutzen...
Könnte ja sein das du dem User etwas aufzwingst was er nicht möchte.
Hooks sollte man eigenlich nicht verwenden.
Verstehst du ?

gruß

[Sunlight7]

Wenn Dein Programm nur kleinigkeiten wie nen Schnappschuß machen soll, wären Hot-Keys der einfachere Weg!
Ich habe zB. auf dem Pause/Break nen Hot-Key, damit mein Player beginnt oder anhält, mit der Druck Taste sofortaufnahme vom TV, ...

Meinst Du so was?

[Axxus]

So was mein ich gesucxht hab ich ja aber nix gefunden da ich nicht mehr usste wie so was heißt das mit dem Hock is glaub ich ziemlich kompliziert für mich ich versteh fa noch net mal wieso das eien beispielprogramm läuft obwohl in dem mian Quelltext überhaupt kein implenatiion und interfaceteil ist das mit dem HotKey müsste besser sein.

Das brauch ich aber nur wenn das Fenster auch inaktiv sein kann und trotzdem auf den Tastendruck reagiert und wenn ich in nem spiel drin bin und da was mit der Taste gemacht werden kann z.B. Empire Earth Kapitol C Bürger bauen trotzdem muss mein Programm im Hintergrund den Befehl ausführen

Edit// Ist es das???

Mist find wieder nix man bin ich unfähig kann mir einer mal en tut zum ertstellen eines HOtkeys geben :wall:

Axxus

[inherited]

:shock: BEUIÖÄÜ?
Könntest du dir angewöhnen, mit Punkt (.) und Komma (,) zu schreiben, ich musste deinen Beitrag 3 mal lesen, bevor ich ihn verstanden habe...
Schau dir mal

Delphi-Quellcode:

uses keyboard;
//[...]
if Keyboard.IsKeyDown(VK_UP) then
  beep;

an. Dann Piept der PC immer, wenn jemand Die Nach-oben-taste drückt^^

[Axxus]

Sorry für die Räschtchaipund ^^
Aber du verstehst mein Problem nicht denn

Die Aktion die ausgeführt werden soll soll auch eintreten wenn das fenster nicht den Fokus hat und das geht ja nicht

Kann mir jmn helfen

Axxus

[SirThornberry]

doch, du könntest ja die Abfrage in einen Timer packen. Oder du schaust dir mal die Funktion RegisterHotKey an.

[Axxus]

JUHU LEUTE ICH HABS

Das erste mal das ich bei der suche was gefunden hab hab nämlich folgenden Fehler gemacht:

Nachdem ich den Suchbegriff eingegeben hab hab ich gedacht die suche wäre in sparten aufgeteilt also hab ich auf die sparte für VCL geklickt und gedacht da stehen die suchbegriffe drinn, dabei standen da alle posts drin. Hab mich schon gewundert und geärgert denn niergens war das zu suchende Wort makeirt da es nicht vorhanden war hab gedacht es wird generell net angezeit deshalb hab ich nix gefunden gehabt als ich immer und immer wiedert gesucht hab und deshalb hab ich euch (hoffentlich nicht) mit Fragen genervt die schon zich mal beantwortet wworden sind :wall: :wall: :wall: :wall: :wall:

Sorry Leute

Jedenfalls is hier die lösung

http://www.swissdelphicenter.ch/de/showcode.php?id=147

danke für die Hilfe

:chat: Axxus :chat:

[inherited]

Nochmal zur anmerkung:
Die abfrage mit Keyboard.IsKeyDown funktioniert auch, wenn dein programm nicht den Focus hat. Allerdings musst du die abfrage in eine schleife packen, zb in einen Timer der alle 100 ms Den status der taste abfragt.

[Axxus]

timer finde ich aber ehrlich gesagt für so was nicht so gut da so der PC langsmer wird wenn jede milisek abgefragt wird ob was passiert überleg mal wenn ich in mienem Programm für jede Taste einen Hotkey anbieten will dann hat der Pc damit schon mal viel zu tun und es soll ja auch nur im hintergrund laufen

dei einzige Tastenkombination für die es was bringt ist Strg-Alt-Entf (so kann man den taskmanager wegsperren^^)

Jedenfalls sind hotkey für so was besser denk ich

Axxus

[inherited]

1ms ist auch uebertrieben^^
Nein, ist schon klar, nur weil du oben geschrieben hattest, dass du so nicht global tasten abfragen kannst.

[EWeiss]

Delphi-Quellcode:

Jedenfalls is hier die lösung

Das problem dabei ist nur .. wurde der HotKey schon von einer anderen
Anwendung registriert dann kann es zu erheblichen störungen kommen.

gruß

[Axxus]

Inwiefern also was passiert dann und wie kann man das beheben

Axxus

[Sunlight7]

Das schlimmste was Dir passieren kann, ist das Windows bei RegisterHotKey nen FehlerCode zurückgibt.
Das sollte Dein Programm beachten, ob die Heiße Taste angenommen wurde oder nicht.
Sonnst könnte sich Dein Programm an den Heißen Tasten die Finger verbrennen :mrgreen:

[Axxus]

Könnt ihr mir sagen wie ich übewrprüfen kann ob der hot key angenommen wurde (am besten mit Quelltext) und mir sagen wie ich störungen wie EWeiß beschrieben hat verhindern kann

Axxus

[Sunlight7]

Das geht einfach mit:

Delphi-Quellcode:

// Leertaste als Hot-Key setzen
// Zwar nicht sehr Sinnvoll, aber auch nur ein Beispiel ^^
const
  HotKeyID=1;
 
var
  HotKey1Set:Boolean;

procedure TForm1.FormCreate(Sender:TObject);
begin
   HotKey1Set:=RegisterHotKey(Form.Handle, HotKeyID, 0, VK_Space);
   If not HotKey1Set then ShowMessage('Die Leertaste ist bereits eine heiße Taste');
end;

... // Nur UnregisterHotKey aufrufen wenn HotKey1Set True ist!