Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Внизмне нужно послать Ctrl+A через WM_CHAR (или ещё как-то). Через SendMessage там есть последний параметр lKeyData. Найти похожие ветки
← →
PVOzerski (2002-03-05 11:08) [2]А если вот так?
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_CONTROL,0,0,0);
keybd_event(longint("A"),0,0,0);
Application.ProcessMessages;
keybd_event(longint("A"),0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c