Mein Programm mit einem anderen gleichzeitig starten

[DaFox]

Hi!

Zitat:

Zitat von Luckie

Entweder mit FindWindow das fenster suchen oder mit einem Snapshot kucken, ob die Exe läuft.

Oder per Treiber (PsSetCreateProcessNotifyRoutine) oder per WMI.

Gruß,
Markus

[Luckie]

Wozu mit Spatzen auf Kanonen schießen?

[XHelp]

Kommt drauf an, für welche das genutzt wird und was es für ein programm ist.

Die frage lautete:

Zitat:

Wie kann ich mein Programm gleichzeitig mit einem anderen [...] starten lassen

Und nicht: Wie kann ich rausfinden, ob ein anderes Programm läuft, oder nicht?
Deswegen passt meine Antwort genau rein :roll: :wink:

[Luckie]

Wieso? Ich prüfe in einer Schleife, am besten in einem Thread, ob die andere Anwendung läuft und wenn sie es tut starte ich meine.

[XHelp]

Und wo kriegst du die schlefe her? Dafür muss du noch ein extra programm schreiben. Vielleicht passt das geisi nicht...k.a.
Wenn die Lösung passt, dann hier der quellcode dafür:

Delphi-Quellcode:

function FindTask(ExeFileName: string): boolean;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result:=false;
  FSnapshotHandle := CreateToolhelp32Snapshot 
                     (TH32CS_SNAPPROCESS, 0); 
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
                                 FProcessEntry32); 

  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName))
     or (UpperCase(FProcessEntry32.szExeFile) =
         UpperCase(ExeFileName))) then
      Result := true;
    ContinueLoop := Process32Next(FSnapshotHandle, 
                                  FProcessEntry32); 
  end; 

  CloseHandle(FSnapshotHandle); 
end;

Eigentlich wurde die funktion dazu gedacht, tasks zu killen, aber ich habe sie ein bischen verändert... aus diesem grund geht das vielleicht auch einfacher. Die prozedur funktioniert aber.

Jetzt braucht man mit einem Timer, oder so,

Delphi-Quellcode:

if FindTask('winamp3.exe')=true then 
   ShellExecute(Handle,'open',PChar('c:\MySoft\BlaBla.exe'),nil,nil,SW_RESTORE);

aufzurufen und das war's.

[Luckie]

Delphi-Quellcode:

while NichtGefunden do

Oder ab 2000 eleganter mit CreateTimerQueueTimer.

[Robert Marquardt]

Es geht auch mit einem WH_SHELL Hook.