Версия для печати темы

Автор: Vinchkovsky 12.06.2007 23:06

Таков вопрос - как убить процесс/закрыть программу, если после нажатия Ctrl+Alt+Delete в колонке "Имя процесса" его имя, например, StreamingMediaPlayer.exe?
Собственно суть программы такова - запускается другая программа и через несколько сек. надо ее закрыть.
Об API почти ничего не знаю
Нашел несколько подходящих функций/процедур, но среди аргументов - типы Cardinal, Classname. Что это такое? Как найти эти данные для моего процесса?
Спасибо всем, кто откликнется

Автор: klem4 12.06.2007 23:36

Вот, делал лабу в этом семестре:

// ...
implementation
var
  lpStartUpInfo: TStartUpInfo;
  ProcessInformation: TProcessInformation;


{$R *.dfm}

function _OpenProcess: Boolean;
begin
  RESULT := TRUE;

  if frmNewProc.OpenDialog1.Execute then begin

    FillChar(lpStartUpInfo, SizeOf(lpStartUpInfo), #0);
    lpStartUpInfo.cb := SizeOf(lpStartUpInfo);
    lpStartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
    lpStartUpInfo.wShowWindow := SW_SHOWNORMAL;

    try

      if CreateProcess(nil,PChar(frmNewProc.OpenDialog1.FileName),
       nil, nil, false,
        CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
         nil, nil, lpStartUpInfo, ProcessInformation) then begin
         end else begin
           MessageDlg('Выбранный файл "' + frmNewProc.OpenDialog1.FileName+ '" не является приложением Win32',
            mtInformation, [mbOk], 0);

           RESULT := FALSE;
         end;

         //if WaitForSingleObject(ProcessInformation.hProcess, 10000) = WAIT_TIMEOUT then
          //RESULT := FALSE;

    except on E: Exception do begin
        MessageDlg('Невозможно запустить процесс: ' + E.Message,
          mtError, [mbCancel], 0);

        RESULT := FALSE;
      end;
    end;
  end else RESULT := FALSE;
end;

function CloseProcess: Boolean;
begin
  RESULT := TRUE;
  try
    TerminateProcess(ProcessInformation.hProcess, 0);
    CloseHandle(ProcessInformation.hProcess);
    CloseHandle(ProcessInformation.hThread);
  except on E: Exception do begin
      MessageDlg('Невозможно завершить процесс "' + frmNewProc.OpenDialog1.FileName + '" : ',
       mtWarning, [mbOk], 0);
      RESULT := FALSE;
  end;
  end;
end;

//...

Автор: Vinchkovsky 12.06.2007 23:46

А что такое frmNewProc? Из-за этого не хочет компилироватся...

Автор: volvo 12.06.2007 23:52

Класс формы, вероятно...

type
  frmNewProc = class(TForm)
  ...
  end;

Или у тебя все формы - это экземпляры класса TForm1?

Автор: Vinchkovsky 13.06.2007 15:37

klem4, volvo, спасибо, разобрался.
Но - как узнать ProcessInformation моего процесса?
Какова ситуация у меня:
На форме поставил TWebBrowser и кнопку. По нажатию кнопки в TWebBrowser посылается URL, после чего запускается плеер для онлайн-воспроизведения, если подключение не удалось - убиваем процесс/закрываем плеер и все по новой. В процессах после Ctrl+Alt+Delete его имя - StreamingMediaPlayer.exe. Дело в том, что на сервере установлен лимит на 15 подключений, и мне хочется сделать автоматический "коннектор" к серверу. Как узнать ProcessInformation процесса? Что это такое? ProcessInformation для каждого процесса, запущенного одним и тм же приложении, уникальный или единый (если последнее, то тогда все проще)? Как, наконец, убить "мой" процесс (плеера)? Еще раз повторюсь, в API - полный нуль

Автор: volvo 13.06.2007 15:54

У тебя все проще: тебе ведь известно имя EXE-файла...

Drkb -> Системные функции и WinAPI -> Windows -> Работа с чужими процессами -> Как убить задачу, зная только имя .exe?

Автор: Vinchkovsky 13.06.2007 17:45

volvo, спасибо...
Это я что-то стормозил (вчера эту функцию пробовал, результат - нулевой, сегодня все пошло)

Автор: Vinchkovsky 14.06.2007 17:37

Не совсем по теме, но - как контролировать поведение сторонних программ?Это возможно? Интересует, как можно проконтролировать появление сообщения об ошибке - можно, конечно, делать снимки экрана и проверять цвет в опр. точках , но это явно не рационально

Автор: volvo 14.06.2007 17:45

Какого рода ошибки ты хочешь ловить? Или ты о предложении послать почту Б.Гейтсу?

Автор: Vinchkovsky 14.06.2007 18:20

Как я уже писал, пишу прогу для поиска свободного места на сервере с видеофильмами. У нас установлен лимит. Если я не попадаю в лимит, то плеер выдает сообщение об ошибке. Можно, конечно, поставить на час-второй выполнение проги, коннектясь с очень малым интервалом времени (если будет свободное место, то никто не успеет его занять, ведь интервал работы программы мал), но лучше, конечно, коннектится до тех пор, пока не перестанет выдавать ошибку плеер.
Поставил интеравал несколько милисекунд, через 3 минуты даже мышкой не можно было двигать

Автор: volvo 14.06.2007 18:22

Тебе сюда:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=26074

Автор: Vinchkovsky 14.06.2007 18:31

Спасибо...
Я совсем не ориентируюсь в API, очень прошу помочь мне в "перехватке" сообщений или дать ссылку на то, где это детально описано

Автор: volvo 14.06.2007 20:42

Ты можешь нормально рассказать, что происходит, когда возникает ошибка, которую ты хочешь отловить? Я ж должен знать, ЧТО ловить! Если выбрасывается какое-нибудь окно с сообщением об ошибке, это одно... А может быть, просто Caption меняется, и там написано: "Извините, произошла ошибка"? Пойми, программа У ТЕБЯ, я не вижу как и что она делает...

Если это не MessageBox - то показывай скриншоты, первый - когда ошибки нет, второй - когда ошибка произошла, чтоб было наглядно видно разницу... будем думать что ловить...

P.S. Информация о хуках есть в Drkb...

Автор: Vinchkovsky 14.06.2007 21:23

Присоеденил скрин.
Если есть конкретный алгоритм перехватки ошибки, в т.ч. в Drkb, просьба дать ссылку.
В принципе, прога уже и сейчас работает идеально, но полная автоматизация ей бы не помешала.
Наперед спасибо.


Эскизы прикрепленных изображений

Автор: volvo 14.06.2007 21:54

Автоматизация никогда не помешает

Попробуй повесить хук на WH_CBT + HCBT_CREATEWND
Пример вот тут: http://forum.sources.ru/index.php?showtopic=120006&view=findpost&p=903420 выкладывал Krid

Автор: Vinchkovsky 17.06.2007 17:23

Извини за тупость, но никак не могу разобратся с этими хуками...
Насколько я понял, мне нужен этот код:

function SysExecProc(code:integer;wParam:WPARAM;lParam:LPARAM):longint; stdcall;
var
  WndHeader:array [0..MAX_PATH-1] of Char;
begin
  Result:=CallNextHookEx(SysHook,code,wParam,lParam);
  case code of
    HCBT_CREATEWND:
     if (IsWindow(wParam) and (PCBTCreateWnd(lParam)^.lpcs^.hwndParent=0) and
        (lstrlen(PCBTCreateWnd(lParam)^.lpcs^.lpszName)>0)) then
     SaveLog('[Open] '+PCBTCreateWnd(lParam)^.lpcs^.lpszName);

    HCBT_DESTROYWND:
     if (IsWindow(wParam) and IsWindowVisible(wParam) and (GetParent(wParam)=0)) then
     begin
       GetWindowText(wParam,WndHeader,MAX_PATH);
       if (WndHeader<>'')then
       SaveLog('[Close] '+WndHeader);
     end;
  end;
end;

Что возвращает функция? Какие у нее аргументы? Что за типы WPARAM и LPARAM? Еще видел программы с хуками, там функция возвращает тип LRESULT - что это? Неплохо было бы на примере посмотреть работу программы-перехватчика, но как на зло, все такие программы работают с dll...
Про HCBT_CREATEWND все только на С++... В общем, я в тупике и прошу помощи.
Мне надо следующее - есди вылетает окно, идем дальше, нет - останавливаемся
Залил плеер сюда http://rapidshare.com/files/37709359/StreamingMediaPlayer.msi , для того, что бы увидеть ошибку, пишем в окне браузера ums:
Буду очень признателен за помощь

Автор: volvo 20.06.2007 3:03

Фактически - все три типа = LongInt (так описываются они в Windows.PAS):

type
  WPARAM = Longint;
  LPARAM = Longint;
  LRESULT = Longint;

Ну, так на то они и ловушки: