Командлайн чужого процесса

[Johnson]

Здравствуйте, уважаемые!

Есть такая замечательная прога, как Process Explorer.
В ней можно включить отображение Командной строки запущенного процесса.

Как сие можно получить? Мне нужно узнать, с какими параметрами был запущен процесс.

PS: Ни в жизнь не поверю, что только ковыряниями в памяти.

[Человек_Борща]

CreateRemoteThread в другом процессе.
Естественно из dll.

[Johnson]

Такой вариант рассматривал... Только не создание удаленного потока, а внедрение dll и в дальнейшем WM_COPYDATA или мьютекс... Но... Это слишком долго.
Есть ещё одна идеечка, если получится - поделаюсь.

Но я всё ещё жду Ваших советов!

Добавлено:

В функции OpenProcess параметр PROCESS_ALL_ACCESS включает в себя PROCESS_QUERY_INFORMATION и PROCESS_CREATE_THREAD? Или не прав? Почему в разных примерах используют только конкретные флаги? Почему не используют полный доступ, если есть такая возможность (после получения дебаговых привилегий)?

[Johnson]

Хм... Получилось что-то среднее.. Думаю, это быстрее, чем орудовать с библиотеками своими. Но память читать всеравно пришлось, хоть и по известному адресу...

Вопрос профессионалам - как сей программизм можно оптимизировать? Добавление в список тут самый медленный процесс, как я считаю, но это временная демонстрационная мера. В дальнейшем я буду загонять в массив.
Как можно оптимизировать сам поиск командлайна?
Буду ОЧЕНЬ благодарен за советы!

Код (думаю, кому надо - применить смогут):

procedure GetProcessFullInfo;
var
  procCount:Cardinal;
  hProc,hThread: THandle;
  i:Integer;
  pGetCommandLine : Pointer;
  dwTID, dwRead : DWord;
  pCommandLine : PChar;
  szBuffer : array[0..255] of Char;
  procs: array[0..$FFF] of dword; //массив для хранения дескрипторов процессов
begin
  if not EnumProcesses(@procs, sizeof(procs), procCount) then exit;

  MainForm.list1.Clear;

  for i := 0 to procCount div 4 - 1 do if procs[i]<>4 then begin
    EnablePrivilegeEx(INVALID_HANDLE_VALUE,'SeDebugPrivilege');
    hProc := OpenProcess(PROCESS_ALL_ACCESS, false, procs[i]);
    if (hProc <> 0) then try
      pGetCommandLine := GetProcAddress(GetModuleHandle('kernel32.dll'), 'GetCommandLineA');
      if (pGetCommandLine <> nil) then begin
        hThread := CreateRemoteThread(hProc, NIL, 0, pGetCommandLine, nil, 0, dwTID);
        if (hThread <> 0) then try
            if WAIT_OBJECT_0 = WaitForSingleObject(hThread, 10000) then begin
              if GetExitCodeThread(hThread, PDWord(@pCommandLine)^) then begin
                if ReadProcessMemory(hProc, pCommandLine, @szBuffer, 255, dwRead) then begin
                  szBuffer[dwRead] := #0;
                end
              end
            end
        finally
          CloseHandle(hThread);
        end;
      end;
    finally
      CloseHandle(hProc);
    end;
    with MainForm.list1.Items.Add do begin
      Caption := String(szBuffer);
    end;
  end;

end;

На EnablePrivilegeEx не смотрите - это у меня свой модель технический. В сети полно способов получить дебаг привилегии.

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

Почему не используют полный доступ, если есть такая возможность (после получения дебаговых привилегий)?

запрашивайте только нужные привилегии.
а то окажется так что у вас нет привилегии, той которая вам не нужна(но в куче вы её просите), глупо валится изза такой мелочи.

[veniside]

есть ещё NtQueryInformationProcess().