Получить параметры командной строки

[Yegor]

Хочу автоматизировать создание ярлыков для Л2. Кто может подсказать как можно получить параметры командной строки другого приложения. Какие то существует для этого функции в WINAPI, а то гугл молчит как партизан?

[alexteam]

в аттаче

[Yegor]

Спасибо. А как можно программно узнать последовательность запуска процессов?

[alexteam]

отслеживая их запуск ? %)

[Yegor]

А не отслеживая? Разве нет какой нибудь иерархии вызовов и функций работы сними, что то вроде getprocparent ... ?

[lam]

по времени создания процесса?
_ttp://www.codeproject.com/KB/threads/getprocesstimes.aspx

[Yegor]

lam, могут быть неоднозначности когда 2 процесса запускаются почти одновременно..
ProcessExplorer откуда то показывает точные сведения.

Добавлено через 26 минут
О что то нашел, используя Process32First, Process32Next ищем наш процесс. Когда найдем, в возращенной функцией структуре будет все нужное. Сейчас проверю.


typedef struct tagPROCESSENTRY32 {
DWORD dwSize;
DWORD cntUsage;
DWORD th32ProcessID;
ULONG_PTR th32DefaultHeapID;
DWORD th32ModuleID;
DWORD cntThreads;
DWORD th32ParentProcessID;
LONG pcPriClassBase;
DWORD dwFlags;
TCHAR szExeFile[MAX_PATH];
} PROCESSENTRY32, *PPROCESSENTRY32;

Добавлено через 18 часов 5 минут
Все получилось. Вот рабочая функция, может кому пригодится.

function GetParentProcessID(procID: cardinal): cardinal;
var
  hSnap: cardinal;
  procEntry: tagPROCESSENTRY32;
begin
  Result:= 0;
  hSnap:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  procEntry.dwSize:= SizeOf(procEntry);
  if Process32First(hSnap, procEntry) then
  begin
    repeat
      if procEntry.th32ProcessID = curProcID then
      begin
        Result:= procEntry.th32ParentProcessID;
        break;
      end;
    until not Process32Next(hSnap, procEntry);
  end
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
  end;
  CloseHandle(hSnap);
end;

[Prixmegently]

И как тебе ид парент процесса поможет узнать последовательность запуска процессов?

[Yegor]

Prixmegently, а что из функции не видно как?

procEntry.th32ParentProcessID

Добавлено через 25 минут
alexteam, что то твоя функция постоянно возвращает пустую строку. Ты её проверял?



LengthCmdLine := PWord(Longint(Buffer) + $42)^; возращает 2 хотя командная строка гораздо длиннее.

После выполнения PosCmdLine := Pointer(PLongint(Longint(Buffer) + $44)^); PosCmdLine = nil.

[Morfik]

проверил GetProcessCmdLine

MessageBox(0,pchar(GetProcessCmdLine(GetCurrentProcessID)),'',0);

и правда непашет

можеш изнутри процесса выцепить свои логин и пасс

procedure LineageII_acc_manager;
var
  get_param,login,pass:string;
  i:integer;
begin
    i:=1;
    get_param:=ParamStr(1);
    while (get_param[i]<>':') do Inc(i);
    Inc(i);
    while (get_param[i]<>char(0)) do
    begin
      login:=login+get_param[i];
      Inc(i);
    end;

    i:=1;
    get_param:=ParamStr(2);
    while (get_param[i]<>':') do Inc(i);
    Inc(i);
    while (get_param[i]<>char(0)) do
    begin
      pass:=pass+get_param[i];
      Inc(i);
    end;
  MessageBox(0,pchar(login),pchar(pass),0);

end;