Abrir un exe externo a mi aplicacion pero con estilo fsStayOnTop

[roman]

Código Delphi [-]
h2:=FindWindow('SciCalc',nil);

El nombre de la clase de la ventana de la calculadora es SciCalc, no calc.

// Saludos

[[cHackAll]]

Aunque funciona, "buscar" una ventana no significa encontrar la que tu has creado;

Código Delphi [-]
function EnumThreadWndProc(hWnd, lParam: Cardinal): LongBool; stdcall;
begin
 Result := not SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;
 
var si: TStartupInfo = (cb: SizeOf(si));
 
procedure TForm1.Button1Click(Sender: TObject);
var pi: TProcessInformation;
begin
 CreateProcess(nil, 'calc', nil, nil, False, 0, nil, nil, si, pi);
 WaitForInputIdle(pi.hProcess, INFINITE);
 EnumThreadWindows(pi.dwThreadId, @EnumThreadWndProc, 0);
end;

[Neftali [Germán.Estévez]]

Empezado por roman

El nombre de la clase de la ventana de la calculadora es SciCalc, no calc.

Ampliando lo que dice Román, como ves la función FindWindow admite dos parámetros; El ClassName y el Título. Son los dos que puedes utilizar para encontrar una ventana.
En al caso de la calculadora, podrías utilizar:

Código Delphi [-]
// POr ClassName
h2:=FindWindow('SciCalc',nil);
// Por título
h2:=FindWindow(nil, 'Calculadora');

La siguiente pregunta lógica debe ser: ¿Y cómo se la clase de una ventana?

Hay muchas utilidades que te pueden dar esta información tipo WinSpy, WinExp o FormClassSpy (esta última como es la más pequeña y simple te la adjunto) y seguro que por internet encuentras muchas más....



TAmbién debes tener en cuenta las llimitaciones de FindWindow, tal como apunta cHackAll.
Si utilizas el título, debes tener en cuenta que el título no es siempre el mismo (a veces cambian durante la ejecución o en distintos idiomas) y en cuanto a la clase, pues tampoco es infalible si tienes 2 o 3 calculadoras ejecutándose.

[rgstuamigo]

Muchas gracias a los tres,,vaya ya decia yo que talves podria ir por el nombre, y muy buena esa herramienta Neftali.
Mi codigo quedo asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  h2:HWND;
begin
WinExec('calc.exe',SW_SHOWNORMAL);//aqui habro la calculadora
// siguiendo el consejo de Neftali
h2:=FindWindow('SciCalc',nil);
if h2<>0 then
    SetWindowPos(h2,
               HWND_TOPMOST,
               Left,
               Top,
               Width,
               Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

end;

Empesado por Neftali>

...pues tampoco es infalible si tienes 2 o 3 calculadoras ejecutándose.

Pues para evitar dos o mas ventanas abiertas se me ocurre esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  h2,h1:HWND;
begin
h1:=FindWindow('SciCalc',nil);//busco si hay una calculadora abierta;
if h1=0 then//si no hay ninguna calculadora abierta procedo normalmente
 begin
  WinExec('calc.exe',SW_SHOWNORMAL);//aqui habro la calculadora
  // siguiendo el consejo de Neftali
  h2:=FindWindow('SciCalc',nil);
  if h2<>0 then
    SetWindowPos(h2,
               HWND_TOPMOST,
               Left,
               Top,
               Width,
               Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  end
 else ShowMessage('Ya tiene una calculadora abierta..Usela no sea flojo'+#13 //si ya existe una calculadora abierta
          +'Y trabaje duro para ganarse el pan de cada dia.');

end;

Desde luego que quisas sea trucha mi solucion pero funciona y me evita que el usuario desde la aplicacion me habra dos o mas calculadoras..
Como dicen los españoles: "si teneis otra solucion posteala."
Saludos...