[DUG] Shellexecute question

[russell]

Tyr this after spawning the other program.

 

SetForegroundWindow(forms.application.mainWindow.handle)

 

To give the main window of your program focus.

Perhaps modifications of this will take you to the window of the calling
program where you want the focus?

 

Russell

 

From: delphi-bounces at listserver.123.net.nz
[mailto:delphi-bounces at listserver.123.net.nz] On Behalf Of John Bird
Sent: Thursday, 24 July 2014 4:43 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Shellexecute question

 

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.

 

Is there any way to stop this within Delphi?  Or will I have to do something
like delve into the Windows API?

 

if ShellExecute(Application.Mainform.Handle, 'open', Pchar(aProgName),
PChar(aparaml), PChar(aDir), SW_SHOWMINIMIZED) <= 32 then

  ShowMessage('Start Minimised error:')

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20140724/84bfff34/attachment.html