Ejecutar la calculadora en una posición de la pantalla

[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.

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

[Neftali]

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


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:

[cybergerman]

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.

[Lepe]

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

[Neftali]

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:


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;

[cybergerman]

Gracias por sus respuestas.

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

[Neftali]

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;

[AGAG4]

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.

[Neftali]

Habrá forma de que al momento de presionar <ESC> se cierre la Calculadora en vez de presionar ALT+F4????
CReo que no, ya que es un programa externo y tiene "las teclas ya programadas".

...Y si es no es mucho preguntar hay alguna instrucción que me diga cuando se encuentre actualmente Abierta la Cálculadora????
Eso sí es posible utilizando las APIs FindWindow(para encontrar la ventana) y CloseWindow (para cerrarla).

[AGAG4]

Muchas Gracias Sr. Neftali....

[AGAG4]

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.

[Neftali]

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?????
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).