[PonuHunter]

Задача: послать стороннему приложению, (в данном случае игра на directx) в окно ввода, комбинацию клавиш ctrl + v, перед этим скопировав в буфер обмена какой нибудь текст. При этом приложение находится в свернутом состоянии, то есть не получает фокуса. С этим проблем нет, вставка текста работает. Только вот вставляется не тот текст который я копирую в буфер обмена, а тот текст который был в буфере до этого. То есть приложение по непонятно каким причинам игнорирует последнее изменение буфера обмена и в поле ввода копируется текст как будто буфер обмена не изменялся. Как решить эту проблему и заставить приложение копировать текст который я сам помещаю в буфер обмена.

Ниже прилагаю часть кода которая непосредственно отвечает за вставку текста из буфера обмена.

Код:

procedure SendMsg;
begin

// копируем содержимое memo1 в буфер обмена
  Clipboard.Clear;
  Form1.Memo1.SelectAll;
  Form1.Memo1.CopyToClipboard;

// кликаем в поле ввода в окне другой программы для того чтобы оно стало активным для ввода
  PostMessage(Handler, WM_LBUTTONDOWN, MK_LBUTTON, MAKELparam(EditX, EditY));
  sleep(100);
  PostMessage(Handler, WM_LBUTTONUP, 0, MAKELparam(EditX, EditY));
  sleep(1000);

// посылаем окну комбинацию ctrl + v
  keybd_event(VK_CONTROL,0,0,0);
  sleep(100);
  PostMessage(Handler, WM_KEYDOWN, Ord('V'), $002F0001);
  sleep(100);
  PostMessage(Handler, WM_KEYUP, Ord('V'), $C02F0001);
  sleep(100);
  keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
  sleep(100);

// нажимаем ентер
  PostMessage(Handler, WM_KEYDOWN, VK_RETURN, $00000001);
  sleep(100);
  PostMessage(Handler, WM_KEYUP, VK_RETURN, $C0000001);
  sleep(100);

end;

[Bargest]

Я бы делал на винапи все сразу. Пример на плюсах:

Код:

if(OpenClipboard(0))
{
   HGLOBAL hgBuffer;
   wchar_t *chBuffer;
   EmptyClipboard();
   hgBuffer= GlobalAlloc(GMEM_DDESHARE, source.length() * 2 + 2);
   chBuffer= (wchar_t *)GlobalLock(hgBuffer);
   wcscpy(chBuffer, source.data());
   GlobalUnlock(hgBuffer);
   SetClipboardData(CF_UNICODETEXT, hgBuffer);
   CloseClipboard();
}

[PonuHunter]

Сообщение от Bargest

Я бы делал на винапи все сразу. Пример на плюсах:

Код:

if(OpenClipboard(0))
{
   HGLOBAL hgBuffer;
   wchar_t *chBuffer;
   EmptyClipboard();
   hgBuffer= GlobalAlloc(GMEM_DDESHARE, source.length() * 2 + 2);
   chBuffer= (wchar_t *)GlobalLock(hgBuffer);
   wcscpy(chBuffer, source.data());
   GlobalUnlock(hgBuffer);
   SetClipboardData(CF_UNICODETEXT, hgBuffer);
   CloseClipboard();
}

Пробовал копировать в буфер обмена с помощью винапи, как в твоем примере - результат тот же, то есть никакого результата. (

[M.A.D.M.A.N.]

а так тоже не прокатывает?

Код:

Clipboard.Text := 'blabla'

[PonuHunter]

Сообщение от M.A.D.M.A.N.

а так тоже не прокатывает?

Код:

Clipboard.Text := 'blabla'

У объекта clipboard нет метода text, но это неважно. Проблема не в способе помещения текста в буфер обмена, текст благополучно туда помещается. Проблема в том что когда я пытаюсь копипастнуть его в программу то копируется текст тот который был до того как я изменил содержимое буфера обмена.

[Alegun]

Сообщение от PonuHunter

...Проблема в том что когда я пытаюсь копипастнуть его в программу то копируется текст тот который был до того как я изменил содержимое буфера обмена.

Значит не копируется, потому как буфер один на всех и старой инфе храниться больше негде. А вот такой код будет работать?

Код:

type
  TForm1 = class(TForm)
...
procedure SendMsg;
...
procedure Form1.SendMsg;
begin

// копируем содержимое memo1 в буфер обмена
  Memo1.SelectAll;
  Memo1.CopyToClipboard;

// кликаем в поле ввода в окне другой программы для того чтобы оно стало активным для ввода
  PostMessage(Handler, WM_LBUTTONDOWN, MK_LBUTTON, MAKELparam(EditX, EditY));
  sleep(100);
  PostMessage(Handler, WM_LBUTTONUP, 0, MAKELparam(EditX, EditY));
  sleep(1000);

// посылаем окну комбинацию ctrl + v
  keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

// нажимаем ентер
  PostMessage(Handler, WM_KEYDOWN, VK_RETURN, $00000001);
  sleep(100);
  PostMessage(Handler, WM_KEYUP, VK_RETURN, $C0000001);
  sleep(100);

end;

[PonuHunter]

Сообщение от Alegun

Значит не копируется, потому как буфер один на всех и старой инфе храниться больше негде.

Текст копируется в буфер обмена. Если я после выполнения процедуры жму ctr + v в любом поле ввода то текст который я поместил в буфер благополучно вставляется в поле. Но когда моя программа отсылает сообщение ctr + v стороннему приложению вставляется текст из не измененного буфера обмена.

Допустим до выполнения моей программы в буфере был текст: 'blablabla', а в процессе выполнения программа помещает в буфер текст 'hahaha'. В итоге, в результате выполнения программы я получаю текст 'blablabla' в окне ввода приложения которому я посылаю комбинацию ctrl + v, а если я сам вставляю текст в скажем блокнот то я получаю 'hahaha'. То есть текст находится в буфере, а значит проблема явно не в способе его помещения туда.

Сообщение от Alegun

А вот такой код будет работать?

Непонял что ты хотел изобразить тут.

[Alegun]

Советую бросить на форму ещё одну мемку и проверить вставку вот так

Код:

 Memo1.SelectAll;
 Memo1.CopyToClipboard;
 memo2.Clear;
 Memo2.SetFocus;
 keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
 keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY, 0);
 keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
 keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

// и дальше по коду

[Freeman]

А если делать задержку до отправки Ctrl+V?

[PonuHunter]

Сообщение от Freeman

А если делать задержку до отправки Ctrl+V?

не помогло

Сообщение от Alegun

Советую бросить на форму ещё одну мемку и проверить вставку вот так

Код:

 Memo1.SelectAll;
 Memo1.CopyToClipboard;
 memo2.Clear;
 Memo2.SetFocus;
 keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
 keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY, 0);
 keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
 keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

// и дальше по коду

Я просто заменил хендлер игры на хендлер окна ввода блокнота и в блокноте все отлично работает, но в игру он копирует старое значение буфера обмена.

[angvelem]

Наверное действует защита от ClipBoard-а, я так в своих программах делал.