Взаимодействие с Dos приложением

Тема в разделе "Delphi - Система", создана пользователем Lunina, 15 фев 2008.

  1. Lunina

    Lunina Гость

    трагичность ситуации в следующем:
    есть запущенное DOS приложение. Я знаю только имя процесса, как определить hwnd и т.п. я пока не знаю :)
    мне нужно определить считать из этого досовского приложения последнюю строчку и потом послать ему нажатие клавиши Enter.
    помогите, люди добрые, заранее благодарна.
     
  2. zubr

    zubr Гость

    Если это чисто Досовское приложение, то ничего не получится, а если консольное Win-приложение, тогда можно.
     
  3. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    а как сделать так чтобы
    программка написанная на дельфи
    находил уже запущенное консольное окно лотус сервера
    и там вводил нужную команду и нажал на ентер
     
  4. zubr

    zubr Гость

    Никак. Твоя программа на Delphi должна запустить процесс лотуса, тогда можно.
     
  5. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    такой вариант тоже пойдет
    а как это сделать

    Код (Text):
    program Domino_Logon;
    //{$APPTYPE CONSOLE}
    uses
    Windows, Messages;

    var
    h: HWND;
    s:string;
    begin
    h:=findwindow(nil, 'DominoServer/KazNPU: Lotus Domino Server');
    if h = 0 then Exit;
    ShowWindow(h, SW_RESTORE);
    //
    s:='tell http quit';
    SendMessage(h, WM_SETTEXT, 0, longint(Pchar(s)));
    SendMessage(h, WM_KEYDOWN, VK_RETURN, 0);


    end.
    'tell http quit' печатается в заголовке консольного окна домино
    а мне нужно оно печатался в самом окне
     
  6. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    с примером конкретизировать можете

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

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
Загрузка...

Поделиться этой страницей