>>190
SendInputは
procedure TMainForm.Login(Sender:TObject);
var
Wnd:HWnd;
begin
Wnd:= FindWindow(Nil,'Error');
if Wnd <>0 then
begin
SetForegroundWindows(Wnd);
end;
keybdInput(VK_ESCAPE, 0);
keybdInput(VK_ESCAPE, KEYEVENTF_KEYUP);
SendInput(KeyInputCount,KeyInputs[0],SizeOf(KeyInputs[0]));
KeyInputCount:=0;
こんな感じで使ってます。ちなみにkeybdInputは
procedure TMainForm.KeybdInput(VKey:Byte; Flags:DWord);
begin
Inc(KeyInputCount);
SetLength(KeyInputs,KeyInputCount);
KeyInputs[KeyInputCount-1].Itype:=INPUT_KEYBOARD;
with KeyInputs[KeyInputCount-1].ki do
begin
wVk:=VKey;
wScan:=MapVirtualKey(wVk,0);
dwFlags:=KEYEVENTF_EXTENDEDKEY;
dwFlags:=Flags or dwFlags;
time:=0;
dwExtraInfo:=0;
end;
end;
です。