var
keyimput : TInput ;
begin
keyimput.Itype := INPUT_KEYBOARD;
with keyimput.ki do
begin
wVk := key;
dwFlags := 0 ou $200; // appuie touche ou relachement
end;
SendInput(1, keyimput, SizeOf(keyimput));
end;
pour corriger il fallait definir wScan := MapVirtualKey(wVk ,0);
with keyimput.ki do
begin
wVk := key;
wScan := MapVirtualKey(key,0);
dwFlags := 0 ou $200; // appuie touche ou relachement
end;