Tastendruck simluieren mit variable ?

[k4ni]

Hallo,

Ich hab ein problem, und zwar:
Ich möchte tastendrücke simluieren, hab danach gesaucht und z.B. das hier gefunen:

Delphi-Quellcode:

  keybd_event(Ord('C'), 0, 0, 0);

also schreibt es ein C, doch wie könnte ich es machen damit es schreibt was in der variable "a" steht ?

So hab ich es versucht:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var a: Integer;
begin
Timer1.Enabled := false;
a := StrToInt('2');
  keybd_event(Ord(a), 0, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

Kommt zwar kein fehler aber es schreibt ganz einfach nichts. Was nun?

[Chemiker]

Hallo k4ni,

die Funktion ord () erwartet als Parameter ein Char.

Delphi-Quellcode:

var a: Char; 
begin 
Timer1.Enabled := false; 
a := '2'; 
  keybd_event(Ord(a), 0, 0, 0);
end;

nicht getestet, aber so sollte es funktionieren.

[k4ni]

Niceeee :) Danke!!! Es geht.

[k4ni]

Da ich jetzt schon einen thread aufhabe, und diese frage wahrscheinlich sowieso leicht zu beantworten ist:
Da jetzt die variable kein integer wert mehr ist sondern ein Char ist kann ich ja keine funktionen wie </>/= oder +/-, wie kann ich ein Char zu einem Integer machen?
Also z.B irgendwie so CharToInt ?

[DeddyH]

Ord()

[k4ni]

also dann sollte das hier:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var current2: Char;
begin
current2 :=  char(Ord(current));
if current > 999 then begin
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end
else
if current > 99 then begin
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end
else
if current > 9 then begin
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end
else
if current >= 0 then
begin
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end;
end;

eigentlich so aufzählen:
0001
0002
0003
0004
..
0010
0011
...bis unendlich (bis jetzt)

Doch irgendwie tut es das nicht xD, wieso?

[SirThornberry]

Dein Problem ist das keybd_event einen Tastecode erwartet und nicht den Ascii-Wert eines Zeichens.
keybd_event will also nicht den OrdinalWert eines großen 'A' haben wenn du ein große A Tippen willst sondern du musst erst die Schifttaste "betätigen" und dann die Taste "a" drücken:
http://www.delphipraxis.net/internal...=562719#562719

[DeddyH]

Außerdem werden die Tasten anscheinend nie losgelassen.

[SirThornberry]

Zitat:

Zitat von DeddyH

Außerdem werden die Tasten anscheinend nie losgelassen.

:shock: du hast recht. Dann lege ich dem Fragesteller mal folgende Hilfeseite ans Herz
keybd_event

[k4ni]

Ok. Danke.
GIbt es keine möglichkeit es in dieser weise zu machen ?
Sonst wirds ziemlich kompliziert denn es soll in dieser weise bis 10000 aufzählen können.

[SirThornberry]

kannst du doch, übergebe einfach der Funktion (wo mein Link hinführt) die Zahl als String

[k4ni]

also du meinst

Delphi-Quellcode:

keybd_event(Ord('0'), 0, 0, 0);

aber wie kann ich dann eine aufzählung machen, ich kann ja die zahl in der function nichtmehr ändern. oder meinst du es anderst ?

[SirThornberry]

du hast es glaub ich nich ganz verstanden. keybd_event verlangt eine taste und nicht den ascii-wert eines zeischens. und ich meinte diese Funktion:
http://www.delphipraxis.net/internal...=562719#562719

[DeddyH]

Da gab' s doch auch noch die SndKey32.pas, wenn ich mich recht entsinne. :gruebel:

[k4ni]

Naajaa egal. Ich bekomms nich gebacken. Danke trotzdem an alle dir mir geholfen haben! Thx.

[DeddyH]

Wieso bekommst Du das nicht gebacken? Kopier Dir doch einfach die Funktion aus dem Link in Deinen Quelltext und ruf sie auf.

Delphi-Quellcode:

EnterText('0001');

[k4ni]

achso lol okay danke, geht jetzt PERFEKT. DANKEEEEEEEEEEEEEE!

NUr jetzt noch eine frage:
Gibt es etwas um zu ermitteln wie oft ein Timer schon durchgelaufen ist?

[DeddyH]

Klar, eine private Variable im Timer hochzählen.