Результаты опроса: Программа работает?

Голосовавшие
22. Вы ещё не голосовали в этом опросе
  • Да

    20 90.91%
  • Нет

    2 9.09%
Показано с 1 по 10 из 2278

Древовидный режим

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #10
    Администратор Аватар для Chip
    Регистрация
    08.06.2007
    Возраст
    55
    Сообщений
    13,381
    Вес репутации
    10

    По умолчанию Re: Программа 4-Video CarPC

    Самое главное получаем name_wind и делаем с этим окном все что хочешь, можно растянуть свернуть, переместить послать нажатия клавишь и многое другое.
    Запустить приложение
    ShellExecute(0, 'open', PChar('video4CarPC.exe'), nil, nil, SW_SHOW);
    Найти дескриптор окна:
    if findwindow(nil, 'video4CarPC') <> 0 then
    begin
    name_wind:=FindWindow(nil,'video4CarPC');
    end else Form1.FormDestroy(nil);
    Например переместить на новые координаты:
    MoveWindow(name_wind,0,0,800,500,true);
    Или вот так закрыть :
    PostMessage(name_wind, WM_QUIT, 0, 0);
    отправить нажатие клавиши :
    PostMessage(name_wind, WM_KEYDOWN, 39, 0);
    sleep(30);
    PostMessage(name_wind, WM_KEYUP, 39, 0);
    Последний раз редактировалось Chip; 28.03.2010 в 22:22.

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 7 (пользователей: 0 , гостей: 7)

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •