ProcessID nach Programmstart

[hanspeter]

Hallo,

Ich starte eine Exe über nachfolgende Anweisung:

Delphi-Quellcode:

procedure TTaskControler.Start(ExeName, Parameter, Caption: string);
var
  t : TTaskCntrl;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  t := TTaskCntrl.Create;
  TaskLst.Add(t);
  t.ExeName := ExtractFileName(ExeName);
  t.Caption := Caption;
  FillChar(StartupInfo, SizeOf(TStartupInfo),0);
  StartupInfo.cb:=SizeOf(TStartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := 0;
{$D-}
  if CreateProcess(nil,PChar(ExeName + ' ' + Parameter),nil,nil,false,
      CREATE_NEW_CONSOLE or
      NORMAL_PRIORITY_CLASS
      ,nil,nil,startupinfo,ProcessInfo) then
  begin
   t.ProcessHdl := ProcessInfo.hProcess;
   t.ProcessID  := ProcessInfo.dwProcessId;
   t.WindowHdl  := FindWindowByProcessId(t.ProcessID);

  end;
{$D+}
end;

Nach CreateProcess möchte ich die ProcessID und das Programmhandle auslesen.
Die ProcessID scheint nicht zu stimmen.
Mit der Jedi-Funktion GetPidFromProcessName bekomme ich eine andere ID zurück.
Was mache ich falsch ?

Gru0
Peter

[_BlackDragon_]

Hi,

sollte eigentlich so funktionieren.

Was sagt den der Taskmanager oder besser der ProcessExplorer von SysInternals ?

Du solltest das Prozess-Handle am Schluss freigeben. Wenn du zwischenzeitlich ein Handle brauchst, dann
kannst du das Handle des Prozesses über OpenProcess holen.

Gruß

BlackDragon

[hanspeter]

Zitat von _BlackDragon_:

Hi,

sollte eigentlich so funktionieren.

Ich verwende Winspy, das zeigt andere Werte an.
Die Handel gebe ich an anderer Stelle in einem Thread frei. Ich kann die Exe modal oder als MDI starten.
Ein Task überwacht das Programmende und stellt dann Exitcode bereit und gibt die Handles frei.
Inzwischen habe ich aber gemerkt, das hier wohl ein Timing Problem mitspielt.
Ich hole über die ProzessID das Fensterhandle. Das muss jedoch zeitlich verzögert erfolgen.

Gruß
Peter