string an externes Formular senden

[Q-Dog]

Guten morgen liebe Delphi-Praxis-Community,

ich habe folgendes Problem:
Ich möchte gerne in Delphi den obersten Eintrag einer Listbox auslesen und diesen String dann an ein externes Formular (was nicht zu Delphi gehört) also zum Beispiel im Inet Explorer (Firefox o.ä) senden.

Die Möglichkeit Tasten(kombinationen) zu simulieren ist mir durchaus bekannt, z.B. Strg+V

Delphi-Quellcode:

      
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)

Wie sieht es aber aus wenn ich einen ganzen String versenden möchte?


MfG Q-Dog

[spaxxn]

Sorry, aber ich habe da gerade leichte Verständnisprobleme...

Du möchtest einen String an irgendein Programm schicken? Z.B. Hey Firefox hier ist ein String für dich? Und was soll dieser dann damit anfangen?

[Q-Dog]

Sry, wenns etwas kompliziert ausgedrückt ist, also nochmal ^^

Ich möchte gerne den obersten Eintrag einer Listbox auslesen (dieser ist vom Datentyp ein String).
Diesen String möchte ich jetzt an ein externes Formular (nicht Delphi - also z.B. Firefox, Notepad, Word usw.) senden.

Bisher habe ich das ganze rel. konventionell gelöst:

Delphi-Quellcode:

      x := 500;
      y := 450;
      SetCursorPos(x,y);
      mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 500, 0);
      mouse_event(MOUSEEVENTF_LEFTUP, x, y, 500, 0);
      sleep(1000);
      // Strg V 
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)

Also praktisch den String erst in die Zwischenablage kopiert (mit Strg C) und dann per Strg V eingefügt.

Meine Frage ist jetzt wie ich diesen unnötigen Schritt mit "in die Zwischenablage kopieren und dann einfügen" umgehen kann, indem ich gleich einen vorher in einer Listbox definierten String einfüge.


Zum Beispiel so (der Code klappt natürlich nicht):

Delphi-Quellcode:

keybd_event('dieser String', MapVirtualKey('dieser String', 0), 0, 0);
keybd_event('dieser String', MapVirtualKey('dieser String', 0), KEYEVENTF_KEYUP, 0);

Hoffe es ist etwas verständlicher

[spaxxn]

Externe Programme bieten Dir höchstens einen Zugriff über eine bereitgestellte API, beim Start vielleicht noch über Kommandozeilenparameter.

[Q-Dog]

Habe jetzt diesen Code gefunden:

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;

Allerdings übernimmt er nur Großbuchstaben und wandelt sie in Kleinbuchstaben um. Außerdem werden Sonderzeichen außer Acht gelassen.

Ne Idee wie man das noch ändern könnte?


MfG Q-Dog


/Edit
Nach langem Suchen endlich selbst fündig geworden :-)

http://www.delphipraxis.net/internal...ct.php?t=85418