procedure TForm1.Button1Click(Sender: TObject);
var
  pInputs: TInput;
begin
  ZeroMemory(@pInputs, SizeOf(pInputs));
  pInputs.Itype := INPUT_KEYBOARD;
  pInputs.ki.wVk := VK_LCONTROL;
  SendInput( 1 , pInputs, SizeOf(pInputs));
  pInputs.ki.wVk := Ord('D');
  SendInput( 1 , pInputs, SizeOf(pInputs));
  pInputs.ki.dwFlags := KEYEVENTF_KEYUP;
  pInputs.ki.wVk := Ord('D');
  SendInput( 1 , pInputs, SizeOf(pInputs));
  pInputs.ki.wVk := VK_LCONTROL;
  SendInput( 1 , pInputs, SizeOf(pInputs));
end;