Die Start Parameter eines laufenden Prozesses abfragen

[Jakson]

Hi

Wieder einmal eine Spezialfrage:


Ich gehe mit "CreateToolhelp32Snapshot", "Process32First" und "Process32Next" alle laufenden Prozesse durch.

Mit "OpenProcess" bekomme ich das Handle und mit "GetProcessImageFileName" aus der "psapi.dll" den exakten Pfad.

Nur wie komme ich an die Start Parameter ran?

Der ProcessExplorer von Sysinternals kanns ja auch. (Siehe Screenshot)


Danke im voraus

Jakson

[Jakson]

Habs rausgefunden

und möchte euch diesen Code nicht vorenthalten.

Delphi-Quellcode:

 type
     TUnicodeString = record
       Length: ShortInt;
       MaxLength: ShortInt;
       Buffer: PWideChar;
     end;
     TProcessBasicInformation = record
       ExitStatus: DWord;
       PEBBaseAddress: Pointer;
       AffinityMask: DWord;
       BasePriority: DWord;
       UniqueProcessID: Word;
       ParentProcessID: DWord;
     end;

 function NtQueryInformationProcess(ProcessHandle:THandle; ProcessInformationClass:DWord; ProcessInformation:Pointer; ProcessInformationLength:DWord; ReturnLength:Pointer): DWORD; stdcall; external 'ntdll.dll' name 'NtQueryInformationProcess';

 function GetProcessParams(ProcHandle:THandle):String;
 var ProcBasInfo        : TProcessBasicInformation;
    PMBAddress         : Pointer;
    RtlUserProcAddress : Pointer;
    RetSize            : DWord;
    CommandLine        : TUnicodeString;
    CommandLineCont    : WideString;
 begin
  Result := '';
  RetSize := NtQueryInformationProcess(ProcHandle, 0, @ProcBasInfo, SizeOf(ProcBasInfo), NIL);
  if RetSize = 0 then
   begin
    PMBAddress := ProcBasInfo.PEBBaseAddress;
    if Assigned(PMBAddress) then
    if ReadProcessMemory(ProcHandle, Pointer(Longint(PMBAddress)         + $10), @RtlUserProcAddress, sizeof(Pointer), RetSize) then
    if ReadProcessMemory(ProcHandle, Pointer(Longint(RtlUserProcAddress) + $40), @CommandLine, sizeof(CommandLine), RetSize) then
     begin
      SetLength(CommandLineCont, CommandLine.length);
      if ReadProcessMemory(ProcHandle, CommandLine.Buffer, @CommandLineCont[1], CommandLine.Length, RetSize) then
       Result := WideCharLenToString(PWideChar(CommandLineCont), CommandLine.Length div 2);
     end;
   end;
 end;

[edit=SirThornberry]Code umformatiert für Zeilenumbruch - Mfg, SirThornberry[/edit]

[s.h.a.r.k]

Dann würde ich fast sagen, ab damit in die CL

[Jakson]

In der CL ist er anscheinend schon: http://www.delphipraxis.net/internal...=277761#277761

Schaut zwar bisschen anders aus aber macht das selbe