away-Programm

[Neuni]

Kmisch, wenn man das nich weiß :roll:

Egal,
der Link zu dem Code, hat mir nich gerade geholfen, da ich 'n ziemlicher newbie bin und nich genau weiß wie ich das nu umsetzen soll. :gruebel:
Wär nett wenn mir das mal einer etwas genauer erklären könnte, da halt noch nich so viel erfahrung mit delphi hab :wall: . Also Sorry falls ichs mal wieder etwas genauer will...

[Evian]

Du könntest auch dein Programm im Hintergrund laufen lassen und das drücken der Dasten, also für "Bin weg" + Enter-Taste simulieren:

Tasten Simulieren

[Neuni]

@ homer: Stimmt, und das is ja nen Java-Applett wo der chat drinne is... :cry:

Aber gibts nich ne möglichkeit dass der das da eingibt, wo der courser gerade is??? also dieses blickende Teil im Edit?

[Evian]

Schau Dir mein Post an ... das ist recht einfach bei den Schweizern beschrieben und funzt 100 pro. Auch bei Java Applet!

[Neuni]

Der is echt gut der Schweizer, aber ich kann delphi noch nicht sehr gut, sodass ich das nich alles verstehe :wall: :wall: :wall: ...

Kann mir vielleicht jemand helfen, oder nen Beispiel Proggi schicken, weil bei mir kommen da ständig fehler und brauch das ganze dringend! :cry:

Bitte helft mir! :|

[fkerber]

Hi!

Dann sag uns deine Fehler, dann büglen wir das schon aus :mrgreen:

Ciao fkerber

[Neuni]

Das nich so das Problem, vielmehr, dass da irgendwelche Komponenten nicht gefunden werden & co.

Muss ich da noch Komponenten einfügen ins formular??

[fkerber]

HI!

Was kommen denn für Fehlermeldungen?
So lässt sich nur sehr schwer etwas sagen

Ciao fkerber

[Kinimod8]

Ich empfehle für das simulieren von Tastendrücken die Funktion SendKeys aus den SRUtils, eine Unit von Simon Reinhardt. Man schreibt einfach

Delphi-Quellcode:

sendkeys('Bin weg!');

[Neuni]

Das is mein Code, der voll mit Fehlern ist :cry: :

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    TShiftKeyInfo = record
    shift: Byte; 
    vkey: Byte; 

    byteset = set of 0..7;

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  const 
  shiftkeys: array [1..3] of TShiftKeyInfo = 
    ((shift: Ord(ssCtrl); vkey: VK_CONTROL),
    (shift: Ord(ssShift); vkey: VK_SHIFT), 
    (shift: Ord(ssAlt); vkey: VK_MENU));
var
  Form1: TForm1;
  flag: DWORD; 
  bShift: ByteSet absolute shift; 
  i: Integer; 


implementation

{$R *.dfm}

begin 
  for i := 1 to 3 do
  begin 
    if shiftkeys[i].shift in bShift then 
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
  end; { For } 
  if specialkey then 
    flag := KEYEVENTF_EXTENDEDKEY
  else 
    flag := 0;

  keybd_event(key, MapvirtualKey(key, 0), flag, 0);
  flag := flag or KEYEVENTF_KEYUP; 
  keybd_event(key, MapvirtualKey(key, 0), flag, 0);

  for i := 3 downto 1 do
  begin
    if shiftkeys[i].shift in bShift then
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0),
        KEYEVENTF_KEYUP, 0);
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PostKeyEx32(Ord('D'), [], False);
end;

end.

@ Kinimod8: "SRUtils" was ist das denn, bzw. wo finde ich das auf der Homepage, die du angegeben hast?