Registriert seit: 16. Sep 2004
6 Beiträge
|
Re: Text an ein anderes Fenster schicken.
26. Sep 2004, 13:10
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!!!!
|
|
Zitat
|