WaitForSingleObject

[besserebrenik]

Задача у меня следующая.. получить список процессов, получить имена модулей. Среди них определить есть ли calc.exe и если такой существует текущее приложение перевести в режим ожидания, пока работает calc.exe. (это лаба)

Вот код

PHP код:

var
  procesess: array[0..$FFF] of DWORD; 
  mem: array[0..$FFF] of DWORD;
  i, count, cm: cardinal;
  ph: THandle;
  ModName: array[0..MAX_PATH] of char;
  mh: HMODULE;
  List: TStringList;
begin
  if not EnumProcesses(@procesess, SizeOf(procesess), count) then
    Exit
  else
  begin
    List := TStringList.Create;
    for i:=0 to count div 4 - 1 do
    begin
      ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procesess[i]);
      if ph > 0 then
      begin
        EnumProcessModules(ph, @mh, sizeOf(mh), cm);
       // GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));
        GetModuleBaseName(ph, mh, ModName, sizeOf(ModName));
        List.Add(string(ModName));
        CloseHandle(ph);
      end;
    end;
  end;
  Memo1.Lines.AddStrings(List);
  for i := 0 to (List.Count - 1) do
  begin
    if List.Strings[i] = 'calc.exe' then
    begin
      ShowMessage('Ok');
      ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procesess[i]);
      WaitForSingleObject(ph, INFINITE);
    end;
  end;
end; 


Вообщем налицо дескриптор процесса ph, но WaitForSingleObject не работает.. Еще если в цикле выводить ph, то на выходе одно и тоже значение

Подскажите в чем ошибка


Только что додумался, заменить

PHP код:

OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procesess[i]); 


на

PHP код:

OpenProcess(PROCESS_ALL_ACCESS, false, procesess[i]); 


Стало приложение "висеть" и ждать закрытия калькулятора! Но при закрытии калькулятора все равно продолжает висеть..


Все, вопрос решил. Ошибка была в нарушении соответствия индекс массива и индекс списка. Т.е. приложение ждало завершения совсем другой программы а не калькулятора

[Пепел Феникса]

надо открывать процесс с SYNCHRONIZE флагом

Process The CreateProcess or OpenProcess function returns the handle. A process object's state is signaled when the process terminates.

[besserebrenik]

Сообщение от Пепел Феникса

надо открывать процесс с SYNCHRONIZE флагом

Поступил так..

SYNCHRONIZE or PROCESS_QUERY_INFORMATION or PROCESS_VM_READ
Т.к. нужно еще считывать информацию о процессе.

[besserebrenik]

Еще возник вопрос по использованию DuplicateHandle()

PHP код:

BOOL DuplicateHandle(
HANDLE hSourceProcessHandle,           // Дескриптор процесса-источника.
HANDLE hSourceHandle,                       // Копируемый дескриптор.
HANDLE hTargetProcessHandle,           // Дескриптор процесса-приемника.
LPHANDLE IpTargetHandle,                  // Указатель на копию дескриптора.
DWORD dwDesiredAccess,                     // Доступ к копии дескриптора.
BOOL bInheritHandle,                             // Флаг наследования дескриптора.
DWORD dwOptions                                 // Необязательные опции.
) 


Есть псевдодескриптор текущего процесса, полученный путем вызова функции GetCurrentProcess, как определить дескриптор?
Читал справку по функции, не совсем ее понял. Смотрел пример здесь

PHP код:

DuplicateHandle(GetCurrentProcess, PipeWriteOut, GetCurrentProcess,
           @PipeWriteErr, 0, True, DUPLICATE_SAME_ACCESS) 


и опять же не понял пример. Совпадает дескриптор процесса источника и процесса цели???
@PipeWriteErr - указатель на копию дескриптора ?
PipeWriteOut - здесь результат копирования?

Вот мое

PHP код:

var
  curProcId: cardinal;  
  psevdoProcDesc: cardinal; 
  Desc, DescDup: THandle; 


....

PHP код:

  curProcId:= GetCurrentProcessId;  // получил ID процесса 
  psevdoProcDesc := GetCurrentProcess; // псевдодескриптор процесса 
  if not (DuplicateHandle(GetCurrentProcess, Desc, GetCurrentProcess, @DescDup, 0, False, DUPLICATE_SAME_ACCESS)) then
     ShowMessage('Дескриптор не копирован') 


Не работает.