<HTML><HEAD>
<META content="text/html; charset=ISO-8859-1" http-equiv=Content-Type></HEAD>
<BODY dir=ltr bgColor=#ffffff text=#000000>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV><FONT size=2 face=Tahoma>I have a program (Program A) that fires up another
(program B) via ShellExecute, if its not already running. However
even though Program B is started minimised, focus shifts away from Program A,
which is a minor nuisance.</FONT></DIV>
<DIV><FONT size=2 face=Tahoma></FONT> </DIV>
<DIV><FONT size=2 face=Tahoma>Is there any way to stop this within Delphi?
Or will I have to do something like delve into the Windows API?</FONT></DIV>
<DIV><STRONG><FONT size=2 face=Tahoma></FONT></STRONG> </DIV>
<DIV>if ShellExecute(Application.Mainform.Handle, 'open', Pchar(aProgName),
PChar(aparaml), PChar(aDir), SW_SHOWMINIMIZED) <= 32 then</DIV>
<DIV> ShowMessage('Start Minimised error:')</DIV>
<DIV> </DIV></DIV></DIV></BODY></HTML>