|
Тема |
Re: .... [re: Eмилиo] |
|
Автор |
Eмилиo (Шемет...) |
|
Публикувано | 24.04.02 21:30 |
|
|
значи за да съм сигурен че всичко е обработено както трябва, ползвам:
procedure sndmsg;
var Handle:hwnd;
c:char;
i,lkeyData,tmp1:Integer;
Tmp: string;//Стринг с клавиши
ch:Word;
begin
Handle:=GetFocus;
for i:= 1 to Length(Tmp) do
begin
c:=Tmp;
tmp1:=ord(c) shl 16;
lkeyData:= tmp1 or 1;
lkeyData:=lkeyData or (1 shl 30);
PostMessage(Handle,WM_KEYDOWN,ord(c),lKeyData);
PostMessage(Handle,WM_KEYUP,ord(c),lKeyData);
end;
Application.ProcessMessages;
end;
|
| |
|
|
|