Anwendung starten oder wenn gestartet in den Vordergrund...

[mschaefer]

Moin, moin,

wie die Überschrift schon sagt will ich eine Anwendung aus meinem Programm starten.
Das mache ich mit ShellExecute.

Delphi-Quellcode:

      application.ProcessMessages;
         ShellExecute
         ( 0,'open', PChar(ExtractFilePath(application.ExeName)+ 'Programm.exe'  )
            ,PChar(   '-run' ),'', SW_SHOWNORMAL
         );

wie man daran übrigens sieht steht das Programm, dass ich starten will, im selben Verzeichnis wie mein Steuerprogramm. Jetzt soll aber, wenn das Programm schon läuft einfach die alte Instantz in den Fordergrund gebracht werden. Gibt´s da Ideen.


Grüsse // Martin

[Dax]

Such mal bei p.i.c.s. Page nach, da gibt's Ansätze.

[Luckie]

Such dir mit FimdWindow das Fenster und wenn du es findest hol es mit setforegroundwindow in den Fordergrund, ansonsten starte es.

[mschaefer]

Moin, Lucky

Du hast die Trefferquote zielsicher erhöht, damit gibt es nun meine Lösung:

Delphi-Quellcode:

procedure Start ( ApplicationName : string);

var Wnd : HWND;

begin
  HWND := FindWindow 
                         ( nil, PChar
                            ( copy
                               ( ApplicationName,1,abs
                                   ( length
                                     ( ApplicationName 
                                     )-4 
                                   )
                               )
                            )
                         );
   If   WND <> 0 
   then SetForegroundWindow( Wnd )
   else
   begin     
     application.ProcessMessages;
     ShellExecute
      ( 0,'open', PChar
         (ExtractFilePath
            (application.ExeName
            ) + ApplicationName   
         )  ,PChar
         (   '-run' 
         ),'', SW_SHOWNORMAL
     );
   end;
end;

ja DAX die P.I.C ´s Page hatte auch einiges, THX.

Tja damit steht erstmal Anleitung schreiben auf der ToDo-Liste
und ich habe erst mal Delphi-Pause . . .


Grüsse // Martin

[Luckie]

Zitat von mschaefer:

Delphi-Quellcode:

procedure Start ( ApplicationName : string);

var Wnd : HWND;

begin
  HWND := FindWindow 
                         ( nil, PChar
                            ( copy
                               ( ApplicationName,1,abs
                                   ( length
                                     ( ApplicationName 
                                     )-4 
                                   )
                               )
                            )
                         );
   If   WND <> 0 
   then SetForegroundWindow( Wnd )
   else
   begin     
     application.ProcessMessages;
     ShellExecute
      ( 0,'open', PChar
         (ExtractFilePath
            (application.ExeName
            ) + ApplicationName   
         )  ,PChar
         (   '-run' 
         ),'', SW_SHOWNORMAL
     );
   end;
end;

Da das jetzt geklärt ist. Du kannst den Quellcode den du da gepostet hast lesen? Oder war das absicht, damit niemand so schnell deine Sourcen klaut?

Delphi-Quellcode:

procedure Start(ApplicationName: string);
var
  Wnd: HWND;
begin
  HWND := FindWindow(nil, PChar(copy(ApplicationName, 1,
    abs(length(ApplicationName) - 4))));
  if WND <> 0 then
    SetForegroundWindow(Wnd)
  else
  begin
    Application.ProcessMessages;
    ShellExecute(0, 'open', PChar(ExtractFilePath(Application.ExeName) +
      ApplicationName), PChar('-run'), '', SW_SHOWNORMAL);
  end;
end;

Also so finde ich es irgendwie "leserlicher".

[mschaefer]

Hi Lucky

Ok, was die Formatierung angeht - ist Dein Spezialgebiet, lass man gut sein. Wenn Du mal ein Buch
herausgeben willst, sag bescheid, dann steuer ich ein Kapitel über Systemanalyse (DeMarco/Yourden)
bei. Also wie Du siehst habe ich den AutoFormater immernoch nicht zum Laufen gebracht. War einfach
keine Zeit...

Grüße aus dem sonnigen Hannover

// Martin