Ver Mensaje Individual
  #2  
Antiguo 17-09-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.275
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por cybergerman
Como puedo ejecutar la calculadora en una posición fija de la pantalla, ya que cuando ejecuto winexec siempre va cambiando de posición.
Bueno si has ejecurtado WinExec, puedes añadirle el código siguiente a continuación (cambia el left=5 y Top=5 por las que necesites):

Código Delphi [-]
var
  h:THandle;
  r, r2: TRect;
  n: Integer;
begin
  // ejecutar la calc
  WinExec('Calc.exe', SW_SHOW);
  // buscar la ventana de la calculadora
  h := FindWindow('scicalc', nil );
  // Obtener parámetros de la ventana
  GetWindowRect(h, r);
  Systemparametersinfo(SPI_GETWORKAREA, 0, @r2, 0);
  // Moverla a la pos 5,5 y respetando las dimensiones que tenía
  MoveWindow(h,
              {Margen izquierdo} 5,
              {margen derecho} 5,
              r.Right - r.Left,
              r.Bottom - r.Top,
              true);

La segunda pregunta no la acabo de entender
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita