[paty_rlopez]

procedure TForm1.Button3Click(Sender: TObject);
var
  L_VideosList: TStringList;
  i : Integer;
  Pegar : String;
begin
         If not DirectoryExists('c:\coco') then    CreateDir('c:\coco');
         If not DirectoryExists('c:\coco\video') then    CreateDir('c:\coco\video');
 
         CoInitialize(nil);
        // L_CamarasSrv:= TFCamaras.Create(nil);
         try
            FCamaras.Show;
            FCamaras.Close;
            FCamaras.SetDirVideos(DIR_GV600_W32);
            L_VideosList:= TStringList.Create;
/*Esta funcion me trae una lista de nombres de archivos que se encuentran en ese  rango de fechas */
            FCamaras.GetFileVideoHist(1, StrToDateTime('07/12/2006 11:26'),  StrToDateTime('30/12/2006 11:36'), L_VideosList);
   finally
     //       FreeAndNil(L_CamarasSrv);
         end;
         CoUninitialize;
         L_VideosList.Add('FIN');
         Pegar := '';
         for i:= 0 to (L_VideosList.Count -1) do
         begin
          if L_VideosList.Strings[i] <> 'FIN' then
            Pegar := Pegar + Trim(L_VideosList.Strings[i]) + ' ';
         end;
         Pegar :=  'c:\Programas\mencoder -ovc copy -oac copy -idx - o c:\coco\video\301220061136.avi ' + Pegar;
         //ASender.Thread.Connection.WriteLn(L_VideosList.Strings[i]);
//aqui intento ejecutar el programa, se alcanza a ver que abre una ventana de msdos pero el archivo no lo genera.
           WinExec(@Pegar[1], SW_SHOWNORMAL);
 
end.