Anwendung starten oder wenn gestartet in den Vordergrund...

[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".