Thema: Delphi sendkey methode umbauen

Einzelnen Beitrag anzeigen

benny1452

Registriert seit: 23. Sep 2008
Ort: HH
11 Beiträge
 
#1

sendkey methode umbauen

  Alt 23. Sep 2008, 12:02
Guten Morgen,

Es geht um einen Text den ich automatisch abtippen lassen möchte.
Jedoch hab ich die sendkey methode in vba schon ausprobier, klappt auch super, nun wollte ich mal fragen ob mir jemand was zu der sendkeymethode hier in delpihi erklären kann...gegoogelt hab ich selber schon...bekomm auch zum beispiel diesen code hier:

Delphi-Quellcode:
procedure SendKeyString(KStr: String);
var
  Scan: SHORT;
  key: Byte;
  i: Integer;
begin
  for i := 0 to length(KStr) do begin
    key := Byte(Kstr[i]);
    Scan := MapVirtualKey(key, 0);
    keybd_event(key, Scan, 0, 0);
    keybd_event(key, Scan, KEYEVENTF_KEYUP, 0);
  end;
end;
Das ist jetzt irgendein Beispiel...kann mir einer den code so umbauen das an ein aktives fenster z.B: www.delphi.de geschickt wird ?
Noch besser wäre es natülich wenn mir einer das auch ein wenig erklärt

wenn ich auf: Datei->Neu->Neue VCL Anwendung gehe, dann ein Button erstelle, auf den dann ein doppelklick mache und dort den code einfüge kommen 3 Fehler (so führt man doch den code aus oder geht das auch anders?) :

[Pascal Fehler] Unit1.pas(40): E2029 Deklaration erwartet, aber Dateiende gefunden
[Pascal Fehler] Unit1.pas(12): E2065 Ungenügende Forward- oder External-Deklaration: 'TForm1.Button1Click'
[Pascal Fataler Fehler] Project2.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

danke schonmal

gruß benny
  Mit Zitat antworten Zitat