Ejecutar la calculadora en una posición de la pantalla
 

Como puedo ejecutar la calculadora en una posición fija de la pantalla, ya que cuando ejecuto winexec siempre va cambiando de posición.

Existe alguna función por ejemplo para buscar la misma en todos los directorios de la PC?.

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 :confused: :confused: :confused:

Lo que quiero decir es si conoces alguna funcion que permita buscar un determinado archivo en todos los directorios de la PC.

Se que hay una, pero le tenés que pasar siempre una ruta fija,lo que necesito es que busque en todos los directorios y me devuelva verdadero si lo encuentra.

Si usas las RxLibs, en la unidad nkFiles tienes FindFilesInDir.
Si no lo usas, puedes bajartelas de la web de LLSoft, un compañero de los foros, http://www.clubdelphi.com/users/llsoft/frames.htm

Yo no las tengo instaladas, unicamente uso algunas rutinas, así que tengo los .pas en una carpeta aislada, pero añadida a las library Path de delphi.

Saludos

Bueno no es muy difícil realizar una función recursiva que te busque en los directorios y en sus Subdirectorios; Aquí tienes un ejemplo:

Código Delphi [-]
procedure FindFiles(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  { Build a list of the files in directory StartDir
     (not the directories!)                         }
  IsFound :=
    FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;
  while IsFound do
  begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
  // Recursivo?
  if (recursively) then begin
    // Build a list of subdirectories
    DirList := TStringList.Create;
    IsFound := FindFirst(StartDir + MASK_ALL_FILES, faAnyFile, SR) = 0;
    while IsFound do
    begin
      if ((SR.Attr and faDirectory) <> 0) and
        (SR.Name[1] <> CHAR_POINT) then
        DirList.Add(StartDir + SR.Name);
      IsFound := FindNext(SR) = 0;
    end;
    FindClose(SR);
    // Scan the list of subdirectories
    for i := 0 to DirList.Count - 1 do
      FindFiles(DirList[i], FileMask, recursively, FilesList);
    DirList.Free;
  end;
End;

Gracias por sus respuestas.

Hay alguna forma para que la misma se ejecute en forma modal???

No se a qué te refieres con "Modal", ésto es una función no un formulario... En todo caso el formulario que hace la búsqueda muestralo con ShowModal;

oki
 

Buenos Días, Tardes ó Noches...
Habrá forma de que al momento de presionar <ESC> se cierre la Calculadora en vez de presionar ALT+F4????

Y si es no es mucho preguntar hay alguna instrucción que me diga cuando se encuentre actualmente Abierta la Cálculadora????

De antemano Gracias.

CReo que no, ya que es un programa externo y tiene "las teclas ya programadas".

Eso sí es posible utilizando las APIs FindWindow(para encontrar la ventana) y CloseWindow (para cerrarla).

oki
 

Muchas Gracias Sr. Neftali....

??
 

Sr. Neftali como se puede hacer que me acepte cualquier tecla para Cerrar la Ventana aun así teníendo el enfoque la que quiero cerrar, por ejemplo:
Tengo mi aplicación en ejecución, presiono las teclas Alt+K para abrir la Calculadora, y el enfoque se pasa a la Calculadora, si quiero cerrarla con un <ESC>, como puedo hacerlo, como detectar el enfoque en una aplicación agena a la mía?????
De antemano Gracias.

A eso me referría cuando te comenté que creo que no vas a poder hacerlo. La calculadora es una aplicación que ya está programada por lo tanto no puedes modificar su comportamiento y eso incluye lo que tú necesitas. Otros caminos que se me ocurren para poder hacer lo que necesitas:
* Hacer tu propia calculadora (sí ya se que ese era obvio... ;) ); En internet puedes encontrar multitud de ellas echas en Delphi, incluso componentes que las incluyen; En ese caso podrás controlar las teclas a tu antojo.
* Otro camino puede ser registrar una combinación de teclas genérica a Windows, con eso podrías detectar una pulsación aunque el foco estuviera en otra aplicación, pero creo que eso descarta poder utilizar el ESC (que creo que es lo que necesitas).