Как получить параметры запуска другого приложения?

← →
Gloomer © (2007-05-31 23:46) [0]

Известен PID процесса. Пробовал использовать GetModuleFileNameEx - но она возвращает только полный путь к файлу. А надо получить командную строку запуска, например
"С:\Program Files\Java\jre1.5\bin\javaw.exe" -jar "С:\123.jar"
В МСДН что-то не могу найти какую функцию мне надо использовать...

← →
Kedge © (2007-06-01 06:28) [1]

ReadProcessMemory ?

← →
begin...end © (2007-06-01 07:39) [2]

http://rsdn.ru/Forum/?mid=18652

← →
clickmaker © (2007-06-01 11:08) [3]

function NtQueryInformationProcess(hProcess: THandle; ProcessInfoClass: Integer; ProcessInfoBuffer: Pointer; ProcessInfoBufferLength: Cardinal; BytesReturned: PCardinal): integer; stdcall; external "ntdll.dll"; function GetCommandLine(pID: DWORD): PWChar; label err; var pbi: array [0..5] of DWORD; hProc: THandle; pProcParams: DWORD; wCmdLen: WORD; pCmdLine: DWORD; br: DWORD; begin result := nil; hProc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, pID); if NtQueryInformationProcess(hProc, 0, @pbi, $18, nil) <> 0 then goto err; if not ReadProcessMemory(hProc, Pointer(pbi[1] + $10), @pProcParams, 4, br) then goto err; if not ReadProcessMemory(hProc, Pointer(pProcParams + $40), @wCmdLen, 2, br) then goto err; if not ReadProcessMemory(hProc, Pointer(pProcParams + $44), @pCmdLine, 4, br) then goto err; result := GetMemory(wCmdLen); if result = nil then goto err; if not ReadProcessMemory(hProc, Pointer(pCmdLine), result, wCmdLen, br) then begin FreeMemory(result); result := nil; end; err: CloseHandle(hProc); end; procedure TForm1.Button1Click(Sender: TObject); var pwcResult: PWChar; begin pwcResult := GetCommandLine(1432); if (pwcResult <> nil) then begin MessageBoxW(0, pwcResult, "Command line is:", 0); FreeMem(pwcResult); end; end;

Как получить параметры запуска другого приложения? Найти похожие ветки