Hallo Leute,

gibt es eine Möglichkeit Text an eine andere Anwendung(z. Bsp Notepad) zu schicken?
Ich habe bereits folgende Möglichkeiten probiert:
SendMessage(Wnd, WM_Settext,0,Integer(Pchar(myString))); Das tut soweit aber leider wird bereits vorhandener Text gelöscht

dann habe ich noch

markieren

Delphi-Quellcode:

edit1.SelectAll;
edit1.CopyToClipboard;
PostMessage(Wnd, wm_Paste, 0,0);

probiert. Das tut ... aber nicht in allen Anwendungen und der vorherige Inhalt der Zwischenablage wird zerstört.

als letztes habe ich

PostMessage(Wnd, wm_KeyDown, ORD('A'),0); probiert. Das hat in allen Anwendungen funktioniert. Aber leider kann man ja immer nur ein
Zeichen schicken ...
Kennst ihr eine Möglichkeit Strings zu schicken oder habt evtl eine Funktion, welche einen
PostMessage(Wnd, wm_KeyDown, ORD('A'),0) kapselt und der man einen String mitgeben kann?

Danke für die Mühe!

Hol dir erst den Text mit wm_gettexx, häng deinen an und dann schickst du ihn wieder mit wm_settetxt an das Edit.

Such einfach mal überall (in der DP, auf deiner Platte, Google, ...) nach SendKeys. Bei Delphi6 ist so eine Unit dabei, und ich glaube, dass wir dieses Thema in der DP schonmal hatten... SendKeys

Hi,

danke für die schnelle Antwort.

Ich möchte den Text aber nicht nur anhängen. Er soll einfach da eingefügt werden, wo gerade der Cursor steht. Unabhänig, ob der Cursor in einm Edit-Feld steht, in einem langen Brief im Word, Notepad etc.

bye

SendKeys emuliert Tastendrücke, also müsste das so gehen wie du das willst.

Ich hab' mir mal SendKeys besorgt(SRUtils).
Hmmmm .... wohin sendet SendKeys die Daten?
In der Source steht
Keybd_Event(Key, 0, KEYEVENTF_KEYUP, 0);

Wieso muss man kein handle angeben. Schickt Keybd_Event die Tasten an das aktive Fenster?

Wie dem auch sei, es funktioniert nicht
Jetzt hab' ich mir mal meinen eigenen SendKey gebastelt:

zusammenfalten · markieren

Delphi-Quellcode:

function SendKey (Handle : HWnd; Text : PChar) : Boolean;
var i : Integer;
    s : String;
begin
s := Text;
for i := 0 to length(s) -1 do
begin
  PostMessage(Handle, wm_KeyDown, Ord((Text[i])),0);
end;

end;

Es tut ... fast bis auf die Tatsache, daß im Notepad nicht "Hallo Du da" ankommt, sondern
h1/ d 41
Was ist den nun falsch?

Moin glb,

auf jeden KeyDown muss auch ein KeyUp erfolgen.

Hallo,

ich habe "meinen" SendKey nun etwas erweitert...

zusammenfalten · markieren

Delphi-Quellcode:

function SendKey (Handle : HWnd; Text : PChar) : Boolean;
var i : Integer;
    s : String;
    c : Char;
    ret : word;
    flag : DWORD;
    hByte : Byte;
    vKey : Byte;
begin
s := Text;

for i := 0 to length(s) -1 do
begin
  c := text[i];
  ret := VkKeyScan(c);
  hByte := HiByte(ret);
  vKey := LoByte(ret);
  if hByte = 0 then
  begin
    PostMessage(Handle, wm_Keydown, 0,0);
    PostMessage(Handle, wm_KeyUP , VKey ,0);
  end
  else
  begin
    PostMessage(Handle, wm_KeyDown, 0,xxx); // xxx= hier muss nun noch die Shift-Taste
    PostMessage(Handle, wm_KeyUP , VKey ,xxx); // "mitgedrüpckt werden.. aber wie???
  end;
end;

Ich möchte/muss PostMessage verwenden, da ich den Text an ein vorher ermitteltes Fenster schicken will.

mit keybd_event würde es ja so gehen:

markieren

Delphi-Quellcode:

keybd_event(VK_SHIFT, 1, 0, 0);
keybd_event(VkKeyScan('L'), 1, 0, 0);
keybd_event(VkKeyScan('L'), 1, KEYEVENTF_KEYUP, 0);
keybd_event(VK_SHIFT, 1, KEYEVENTF_KEYUP, 0);

wie bekomme ich nun die Shift-taste mit PostMessage gedrückt?
HELP!!!!