Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как программно нажать клавишу? 
:(
    Опции темы
Berliner
Дата 13.12.2005, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Здраствуйте нужно чтобы программа(назовем ее n1) , нажала клавишу "Пропустить" (программмы назовем ее n2) и после этого выгрузилась из памяти(n1). Программы стартуют в одном bat файле в таком порядке сначала (n1 а потом n2 ). Помогите с кодом - срочно нужна помощь!

Это сообщение отредактировал(а) Berliner - 13.12.2005, 17:11
PM   Вверх
Snowy
Дата 13.12.2005, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Цитата(Berliner @ 13.12.2005, 10:54)
нажала клавишу "Пропустить"

В смысле кнопку или все таки клавишу?
А вообще, для таких целей существует программа
InqSoft Sign0fMisery
Сильно облегчает написание таких вот вещей. И специально для этого предназначена.
PM MAIL   Вверх
Berliner
Дата 13.12.2005, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Кнопку которая на экране отображается. Там нужно 2 клавиши жать "Закрыть" и "Пропустить"
Добавлено @ 11:24
Сильно нужен Коддддддд
PM   Вверх
Snowy
Дата 13.12.2005, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
http://vingrad.ru/DELPHI-DLP-000800
PM MAIL   Вверх
Berliner
Дата 13.12.2005, 13:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасиб за ссылку. Что то мне тяжело разобраться.
А можно код с коментариями ? Мне сильно надо. Надо чтобы из двух кнопок "Завершение" и "Пропустить" нажалась кнопка Пропустить
PM   Вверх
Snowy
Дата 13.12.2005, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Там по ссылке весь код приведен.
Замени вот эту часть:
Код

    if (trim(caption) = 'Заголовок окна, в котором нажать кнопку') then    
      ClickOnForm(wnd, 'Пропустить');
PM MAIL   Вверх
Berliner
Дата 13.12.2005, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасиб! сейчас проверю
PM   Вверх
F1reF0x
Дата 13.12.2005, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет
А что если сделать так? Ищем хэндл кнопки, посылаем сообщение скаже WM_KEYDOWN и пишем для кнопки пропустить событие которое закрывает первое окно.
PM MAIL   Вверх
Berliner
Дата 13.12.2005, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Вот код какой я написал, но что-то ничего не закрывается. что у меня в коде не так. Подскажите, пожалуста.
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


procedure ClickOnForm(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;

procedure Button4Click(Sender: TObject); // вот тут поправил имя процедуры
var
wnd: HWND;
caption: string;
begin
wnd := GetTopWindow(0);
repeat
SetLength(caption, GetWindowtextLength(wnd));
GetWindowText(wnd, @caption[1], length(caption) + 1);

if (trim(caption) = 'Form caption') then
ClickOnForm(wnd, 'Button name');
wnd := GetNextWindow(wnd, GW_HWNDNEXT);
until wnd = 0;
end;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND;// тут дописал тип переменной
begin
if (trim(caption) = '16-разрядная система MS-DOS') then
ClickOnForm(wnd, 'Пропустить');

end;

end.
PM   Вверх
Snowy
Дата 13.12.2005, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Цитата(Berliner @ 13.12.2005, 16:26)
16-разрядная система MS-DOS

Это у тебя что? DOS приложение?
PM MAIL   Вверх
Berliner
Дата 13.12.2005, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
да, но окошко выдает виндовая программа. там две кнопки Закрыть и Пропустить.
PM   Вверх
Snowy
Дата 13.12.2005, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
В DOS приложении ты кнопочку никак не нажмешь - ее там нет.

Цитата(Berliner @ 13.12.2005, 16:33)
да, но окошко выдает виндовая программа. там две кнопки Закрыть и Пропустить.

Ну так ищи ее заголовок, а не DOS окна.
PM MAIL   Вверх
Romikgy
Дата 13.12.2005, 16:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146
Код


procedure ClickOnForm(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, BM_CLICK, 0, 0);

end;


так вроде лучше?


Цитата(Berliner @ 13.12.2005, 16:26)
caption: string;
не хорошо это , так как есть и Form.caption и че хошь еще могет быть, а тут

Цитата(Berliner @ 13.12.2005, 16:26)
procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND;// тут дописал тип переменной
begin
if (trim(caption) = '16-разрядная система MS-DOS') then
ClickOnForm(wnd, 'Пропустить');

end;
вооще непонятно откуда caption , берется???



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Berliner
Дата 13.12.2005, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Цитата
Ну так ищи ее заголовок

Я так понял это сама винда выкидывает а какой файл в винде я не знаю.
а с кодом правильно? Ток которій я у Snowy переписал

Добавлено @ 17:13
это вроде w2k пишет такое сообщение .
PM   Вверх
Berliner
Дата 13.12.2005, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Тут такая вещь! дело в том что ошибка у меня в коде который я переделал от Snowy так как программа не нажимает кнопки нивкаком окне. Код находится выше. Подскажите пожалуста, что я неправильно написал. Поправте код пожалуста
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0586 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.