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

[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;