Anwendung starten oder wenn gestartet in den Vordergrund...

[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