Ver Mensaje Individual
  #3  
Antiguo 31-03-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Red face

Gracias por responder amigo Neftali,,pero al parecer no me funciona el codigo que posteaste.. Talves este haciendo algo mal.
Queria preguntarte algunas dudas;La funcion FindWindow no la conocia pero segun veo obtiene el Handle de lo que se le pasa en el parametro,me imagino que para que funcione el exe en cuestion ya debe estar abierto ¿verdad?,si me estoy equivocando avisame;eso significa que el siguiente codigo deberia funcionarme y no es asi:
Aqui les pongo un codigo ejemplo que no hace lo yo quiero,por poner un ejemplo estoy abriendo la calculadora de Window, lo malo es que no se pone con el estilo que quisiera:
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('calc',nil);
if h2<>0 then
    SetWindowPos(h2,
               HWND_TOPMOST,
               Left,
               Top,
               Width,
               Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

end;
Pero como les digo no me pone el estilo fsStayOnTop a la ventana.
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita