away-Programm

[Neuni]

Kmisch, wenn man das nich weiß

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.
Wär nett wenn mir das mal einer etwas genauer erklären könnte, da halt noch nich so viel erfahrung mit delphi hab . 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...

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 ...

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

Bitte helft mir!

[fkerber]

Hi!

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

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

sendkeys('Bin weg!');

[Neuni]

Das is mein Code, der voll mit Fehlern ist :

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?