powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / как программно вставить текст из кармана в другое приложение?
4 сообщений из 4, страница 1 из 1
как программно вставить текст из кармана в другое приложение?
    #39981280
SDA_H
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Приветствую! Для online игры нужно вставить текст из Clipbrd в строку поиска товара.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 //установить курсор на очистке товара в игровом рынке
 SetCursorPos(MOUSE_GOOD_CLEAR_X, MOUSE_GOOD_CLEAR_Y);

 //Нажать на крестик в поиске товара для очистки - Работает! И в поле поиска товара начинает мигать курсор.
  sleep(50);             
  mouse_event(mouseeventf_leftdown,0,0,0,0);   
  sleep(100);                                             
  mouse_event(mouseeventf_leftup,0,0,0,0);


  //Вставить строку из кармана   Ctrl + V  в строку поиска товара (в кармане уже сидит нужное значение)
  ????????
...
Рейтинг: 0 / 0
как программно вставить текст из кармана в другое приложение?
    #39981284
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SDA_H,

Послать анаголичным образом Ctrl-V через keybd_event (устарело) или sendinput ?..
...
Рейтинг: 0 / 0
как программно вставить текст из кармана в другое приложение?
    #39981361
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SDA_H,

Нашел в загашнике:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Function DoSendInput(VK:Word; ADown:boolean):boolean;
var AInput:tagInput;
begin
 AInput.Itype:=INPUT_KEYBOARD;
 AInput.ki.wVK:=VK;
 AInput.ki.wScan:=0;
 if ADown then AInput.ki.dwFlags:=0
 else AInput.ki.dwFlags:=KEYEVENTF_KEYUP;
 AInput.ki.time:=0;
 AInput.ki.dwExtraInfo:=0;
 Result:=SendInput(1,AInput,SizeOf(tagINPUT))>0;
end;

//-------

Function SendKeyInput(Sc:TShortCut; VK:word):boolean;
var Key:Word;
    Shift:TShiftState;
begin
  ShortCutToKey(Sc,Key,Shift);
  if VK=0 then VK:=Key;
  if ssShift in Shift then DoSendInput(VK_SHIFT,True);
  if ssCtrl in Shift then DoSendInput(VK_CONTROL,True);
  if ssAlt in Shift then DoSendInput(VK_MENU,True);
  Result:=DoSendInput(VK,True);
  if Result then Result:=DoSendInput(VK,False);
  if ssShift in Shift then DoSendInput(VK_SHIFT,False);
  if ssCtrl in Shift then DoSendInput(VK_CONTROL,False);
  if ssAlt in Shift then DoSendInput(VK_MENU,False);
end;
...
Рейтинг: 0 / 0
как программно вставить текст из кармана в другое приложение?
    #39981368
SDA_H
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!!!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / как программно вставить текст из кармана в другое приложение?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]