Ejecutar la calculadora en una posición de la pantalla

[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 [Germán.Estévez]]

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;

[cybergerman]

Gracias por sus respuestas.

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

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

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 [Germán.Estévez]]

Empezado por AGAG4

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

Empezado por AGAG4

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