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

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

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