Нажатие клавиш..

[KoBRaAndrey]

Сделал код:

var
key,word:string;
i:integer;
begin
key:='DVKS-C7KK-4Q8E-PM7L';
sleep(2500);
for I := 1 to length(key) - 1 do begin
word:=copy(key,i,1);
keybd_event(ord(word), 0, 0, 0);
end;

Но он вводит не заданные буквы, а llllll почему?

[Alex Cones]

1) с чего вдруг length(key) - 1?
2) добавьте отпускание: "keybd_event(Ord(word), 0,KEYEVENTF_KEYUP,0);"
3) word:=copy(key,i,1); Зачем? Word:Char Waord:=Key[I];
4) http://www.programmersforum.ru/showthread.php?t=6074

[KoBRaAndrey]

key:='DVKS-C7KK-4Q8E-PM7L';
word:=copy(key,1,1);

Выходит D

word2:=ord(word);

А вот тут почемуто 22192716


изменил код:

procedure PostKeyboardEvent(KeyKode,State : integer);
var
Temp : TInput;
begin
Temp.IType:=INPUT_KEYBOARD;
Temp.ki.time:=0;
Temp.ki.dwExtraInfo:=cardinal(nil);
Temp.ki.wVk:=KeyKode and $FF;
Temp.ki.wScan:=MapVirtualKey(KeyKode, 0) and $FF;
Temp.ki.dwFlags:=STATE;
SendInput(1,Temp,SizeOf(Temp));
end;

procedure TForm8.Button1Click(Sender: TObject);
var
key,word:string;
i:integer;
begin
key:='DVKS-C7KK-4Q8E-PM7L';
sleep(2500);
for I := 1 to length(key) do begin
word:=copy(key,i,1);
PostKeyboardEvent(ord(word),0);
end;
end;

Все равно вводит llllll а на русской раскладке ддддддд

[KoBRaAndrey]

Все, разобрался.