Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.24;
Скачать: CL | DM;

Вниз

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

 
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;


 
Riply ©   (2007-06-01 22:05) [4]

> [3] clickmaker ©   (01.06.07 11:08)
Так много сакраментальных чисел :)



Страницы: 1 вся ветка

Текущий архив: 2007.06.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
2-1180683587
kyn66
2007-06-01 11:39
2007.06.24
Тип "дата" в записи


2-1180593473
_Миха
2007-05-31 10:37
2007.06.24
Дождаться закрытия формы


15-1180347760
micke_2007
2007-05-28 14:22
2007.06.24
Вопрос о Shop-Script-Primium


2-1180898093
programmist87
2007-06-03 23:14
2007.06.24
Не удаётся печать из Turbo Pascal 7.0


1-1177574403
intNaked
2007-04-26 12:00
2007.06.24
Компоненты: индикатор отклонения