Text an ein anderes Fenster schicken.

[glb]

Hallo,

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

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:

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