Gibt es eine Moeglichkeit die Parameter aus einer laufenden Anwendung auszulesen?

Es muss ja Moeglich sein, da paramstr() auf die besagten Daten zugreifen kann, nur wie komme _ich_ daran?

--win32

*push*

hat den keiner eine idee?

IMHO stehen die Parameter der Applikation auf dem Stack der Applikation.

Bei einer externen Applikation müsstest du also in deren Speicher eindringen und auf deren Stack zugreifen.

Da hoffe ich eigentlich, dass Windows das verbietet.

Zitat von hsg:

Da hoffe ich eigentlich, dass Windows das verbietet.

Nö, wüsste nicht, das Windows das verbietet. Das Problem ist eher, dass du die lineare Adresse des Stacksegmentes finden musst. Und dann ist wirklich noch die Frage, ob die Parameter auch dort liegen. Wäre aber für mich auch erstmal das logischste.

ok, danke jetzt habe ich wenigstens schonmal einen ansatz.

Hi,

wenn du noch nicht fertig bist, dann kannst du dir hier vielleicht ein paar Anregungen holen: klick

Grüße vom marabu

zusammenfalten · markieren

Delphi-Quellcode:

function AufrufParameter(ProcessId : DWORD) : String;
var
  MBI : TMemoryBasicInformation;
  Buffer,PosCmdLine : Pointer;
  SystemInfo : TSystemInfo;
  Size : DWORD;
  CmdLine : WideString;
  LengthCmdLine : Word;
  ProcessHandle : THandle;
begin
  Result := '';
  FillChar(SystemInfo,SizeOf(TSystemInfo),0);
  GetSystemInfo(SystemInfo);
  GetMem(Buffer,SystemInfo.dwPageSize);
  Size := SizeOf(TMemoryBasicInformation);
  FillChar(MBI,Size,0);
  ProcessHandle := OpenProcess(PROCESS_VM_READ or PROCESS_QUERY_INFORMATION, False, ProcessId);
  if VirtualQueryEx(ProcessHandle,Pointer($20000),MBI,Size) = Size then if ReadProcessMemory(ProcessHandle,MBI.BaseAddress,Buffer,SystemInfo.dwPageSize,DWORD(nil^)) then
  begin
    LengthCmdLine := PWord(Longint(Buffer) + $42)^;
    if LengthCmdLine < 520 then
    begin
      SetLength(CmdLine,LengthCmdLine);
      PosCmdLine := Pointer(PLongint(Longint(Buffer) + $44)^);
      if ReadProcessMemory(ProcessHandle,PosCmdLine,PWideChar(CmdLine),LengthCmdLine,DWORD(nil^)) then Result := Copy(CmdLine,1,Pos(#0,CmdLine) - 1);
    end;
  end;
  CloseHandle(Processhandle);
  FreeMem(Buffer);
end;

danke euch beiden bin noch nicht fertig, werde aber erstmal versuchen es alleine zu loesen.