Tasten abfangen und ersetzen?? T.T

[Puhbaehr]

Hallo!

Das Programm ist dein Programm?

Wenn ja sollte doch ein Ersetzen der Tasten reichen? (OnKeyDown)

Wenn nicht helfen dir evtl. Hooks zum Abfangen der Tasten.

Delphi-Quellcode:

type
  ...
    procedure WMHotKey (var Msg : TWMHotKey); message WM_HOTKEY;
    private
      KeysPressed : string;
      MeineZeichen : TStrings;
      ZeichenErsetzenDruch : TStrings;
  ...
...

// Ins FormCreate für z.B. Taste L:
RegisterHotKey (Form1.Handle, ord ('L'), MOD_CONTROL, ord ('L')); 
KeysPressed := '';

MeineZeichen := TStringList.Create;
ZeichenErsetzenDurch := TStringList.Create;
// Hier nun in MeineZeichen alle Zeichenketten rein die ersetzt werden sollen und in
// ZeichenErsetzenDurch das rein durch was die Zeichenkette ersetzt werden soll, z.B.:

MeineZeichen.Add ('L');
ZeichenErsetzenDurch.Add ('lol');

...
procedure TForm1.WMHotKey (var Msg : TWMHotKey); 
...
 begin  
  KeysPressed := KeysPressed + Msg.HotKey;

  // Schleife... und

  if (pos (KeysPressed, MeineZeichen.Strings[i]) = 1) then
   begin
    if (Length (KeysPressed) = MeineZeichen.Strings[i].Count) then
     begin
      // Taste ersetzen
     end;
   end;
 end;

// Im FormClose:
UnRegisterHotKey (Form1.Handle, ord ('L'));

Das auf die schnelle daher könnte es Fehler enthalten und es geht zudem sicher noch origineller zu Lösen.
Aber das soll auch nur ein Beispiel sein
Für Taste ersetzen könnte Msg.HotKey := NeueTaste(und weitere) funktionieren.

Bis dahin,
Gruß, Robert