Tastaturkommandos an ein Handle senden (Remote)

[Wotan89]

Ich hab nur ne kleine Bemerkung zu deiner Verwendung von GetWindowThreadProcessID(): Soviel ich weiß darfst du nicht die Variable direkt übergeben, sondern musst die Adresse der Variable übergeben:
GetWindowThreadProcessID(AHandle, @ProcessID);

[little_budda]

Hallo.

@wotan98:
Wenn ich die Adresse angebe bekomme ich einen Fehler vom Compiler
[Fehler] main.pas(62): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen


@Franz Kogler:
Danke für die Unit.
Wenn ich es wie folgt aufrufe, bekomme ich immer eine Exeption "Zugriffsverletzung" ...

Delphi-Quellcode:

procedure Tfrm_main.btn_setTextClick(Sender: TObject);
var sEditValue : string;
    sendKeyBlock : TSendKeys;
begin
  sEditValue := ed_text.text;

  sendKeyBlock.WindowHandle := extWindowsHandle;
  sendKeyBlock.SendKeys(Pchar(sEditValue));     <- Hier wird die Exeption ausgelöst
...

Könnte ich eventuell noch einen Tipp zur Verwendung bekommen?

[SirThornberry]

Zitat von Wotan89:

Ich hab nur ne kleine Bemerkung zu deiner Verwendung von GetWindowThreadProcessID(): Soviel ich weiß darfst du nicht die Variable direkt übergeben, sondern musst die Adresse der Variable übergeben:
GetWindowThreadProcessID(AHandle, @ProcessID);

Laut MSDN hast du recht. In Delphi wurde es allerdings so definiert das nicht ein Pointer erwartet wird sondern das ganze als var-Parameter übergeben wird.

[Wotan89]

Wenn ich die Adresse übergebe, muss die Variable ProcessID eine LongWord-Variable sein. Ich wusste nicht, dass Delphi es einem wieder so komfortabel macht . Da ist es natürlich besser einfach nur die Variable zu übergeben.

[little_budda]

Hallo,

ich habe es nun mal probiert mit "AttachThreadInput" (Hab ich im Forum gefunden)

Delphi-Quellcode:

procedure Tfrm_main.btn_setTextClick(Sender: TObject);
var sEditValue : string;
begin
  sEditValue := ed_text.text;

  // Einloggen
  AttachThreadInput(
                   Application.Handle,
                   extWindowsHandle,
                   true
                   );

  // Text zum Objektes schreiben
  PostMessage(extWindowsHandle, WM_SETTEXT, 0, Integer(Pchar(sEditValue)));  

  // Auslogen
  AttachThreadInput(
                   Application.Handle,
                   extWindowsHandle,
                   false
                   );
end;

Aber der Erfolg will sich nicht einstellen ...

[Wotan89]

Es ist wichtig, dass das Window, welches den Tastendruck empfängt, den Focus hat! Deswegen kannst du dein altes Script mit Sendmessage verwenden, aber du musst noch den focus setzen:

Delphi-Quellcode:

sendmessage(extWindowHandle,WM_SetFocus,0,0);
sendmessage(extWindowHandle,WM_Char,iSendKeyCode,0);

Du musst aber auch das richtige ChildWindow haben .

[little_budda]

Das Senden der Taste klappt ja, nur das Senden von Text nicht.

Aber da es ein anderes Thema ist mache ich dafür einen neuen Thread auf.