hoiho

wie emulier ich z.b ein enter?

ich möchte das beim programmstart meines progs (onactivate) einfach einen Key(taste) senden, es hat dabei kein besonderes ziel (memo oder sonstwas) es geht einfach darum das es so aussehen soll als wäre es von der tastatur gekommen, wie kriege ich sowas hin?

Kuck dir mal keybd_event an...

hm irgendwie komm ich damit nicht klar, damit kann man virtuelle keys senden?

Jein, du musst sie mit ORD umwandeln...

Moin Silent,

such doch hier mal nach WM_KEYUP bzw. WM_KEYDOWN
Vielleicht hilft das ja auch.

@alexander: ich versteh das nicht so ganz :\
@christian: ich bin mal einem thread gefolgt und hab einfach mal

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Edit1.Handle,WM_KEYUP,VK_DOWN,0);
  SendMessage(Edit1.Handle,WM_KEYUP,VK_UP,0);
end;

aus einem thread kopiert (ob das sinn macht weiss ich nicht)

es geht darum das ich ein programm auf dem pc habe, das JEDEN tastaturdruck zählt...also für jedentastendruck +1...nun möchte ich halt keys senden (ohne tastatur) das einfach immer so +1 hinzugefügt wird

Probier mal so:
 keybd_event(ORD(VK_RETURN), 0, 0, 0);

Moin Silent,

lies mal den Thread aus dem der Source stammt noch ein bisschen weiter.
Du hast genau den Code erwischt, der so nicht funktioniert

(falls es der Thread ist, den ich meine, steht noch was dazu drin)

hoi alexander, jo das geht so halb, hatte das mal so versucht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 10000 do
  begin
    Application.ProcessMessages;
    keybd_event(ORD(VK_RETURN), 0, 0, 0);
    label1.Caption := IntToStr(StrToInt(label1.Caption)+1);
  end;
end;

aber nach ca 3 sek gibts nen zugriffsfehler?

Hi Christian 8), ich habe es aus diesem thred: http://www.delphipraxis.net/topic101...a00d63492f44fd und ganz zuende gelesen.