VPF::Как отследить с какими парамами запущен процесс

Stadler

Дата 28.12.2004, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.12.2004

Репутация: нет
Всего: нет

У меня проблема, мне нужно узнать с какими параметрами запущен процесс.

Cheba

Дата 28.12.2004, 16:53 (ссылка)

(нет голосов)

Загрузка ...

pointless one

Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

Репутация: нет
Всего: 62

Смотри

Код

function ParamCount: Integer;
function ParamStr(Index: Integer): string;

--------------------

Как правильно задавать вопросы

Stadler

Дата 28.12.2004, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.12.2004

Репутация: нет
Всего: нет

Cheba
Меня интересует не моя прога, а чужая...

Girder

Дата 28.12.2004, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

К примеру... можно вот так извратиться smile

С учетом того что функция в Kernel32.dll находится... отбрасываем... заведомо лишний код smile

(Кто знает... тот поймет smile

)

Код

procedure TForm1.Button1Click(Sender: TObject);
var pID:Cardinal;
    op,hKernel32:Cardinal;
    GCL,DW,StrAddr,i,L,j:Cardinal;
    Str:String;
begin
 try
  pID:=StrToInt(Edit1.Text); //из edit берется идентификатор стороннего процесса
 except
  pID:=GetCurrentProcessID(); //типо если ошибка - берем идентификатор текущего процесса
 end;
 op:=OpenProcess(PROCESS_VM_READ,false,pID);
 if op<>0 then
  begin
   hKernel32:=LoadLibrary('Kernel32.dll');
   if hKernel32<>0 then
    begin
     GCL:=Cardinal(GetProcAddress(hKernel32,'GetCommandLineA'));
     FreeLibrary(hKernel32);
     if GCL<>0 then
      if ReadProcessMemory(op,Pointer(GCL+1),@DW,4,i)and(i=4)and
         ReadProcessMemory(op,Pointer(DW),@StrAddr,4,i)and(i=4) then
       begin
        L:=0;
        repeat
         j:=L;
         L:=L+Max_Path;
         SetLength(Str,L);
         if ReadProcessMemory(op,Pointer(StrAddr+j),Pointer(PChar(Str)+j),Max_Path,i) then
          begin
           for i:=j+1 to i do
            if Str[i]=#0 then DW:=0;
          end else DW:=0;
        until (DW=0);
        Caption:=trim(Str); //В caption заносим ответ
       end;
    end;
   CloseHandle(op);
  end;
end;

Удачи.

--------------------

Как слышим, так и пишим.
Истина где-то там...

p0s0l

Дата 29.12.2004, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Перенесенно из раздела Delphi

--------------------

С уважением, г-н Посол.

Stadler

Дата 29.12.2004, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.12.2004

Репутация: нет
Всего: нет

Girder
Работает, спасибо, но у меня еще вопрос, как узнать ID другой программы?

Stadler

Дата 29.12.2004, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.12.2004

Репутация: нет
Всего: нет

Girder
Я подумал... подумал
Вобщем вопрос отложен
Извиняюсь за потерянное время

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »