Errores en ejecución al reinstalar Windows

[Sapiem]

Empezado por Casimiro Notevi

A ver el código...

Esta es la parte del FileExists:

Código Delphi [-]
  if not FileExists('sqlite3.dll') then
    if not CrearDLL('xSQLite3') then
      begin
        ShowMessage('Imposible crear archivos necesarios para el correcto funcionamiento del sistema');
        Halt;
      end;

Esta es otra parte de Streams:

Código Delphi [-]

function CrearDLL(const aResourceName: String): boolean;
   var
      ms: TMemoryStream;
      rs: TResourceStream;
   begin
      ms := TMemoryStream.Create;
      try
         rs := TResourceStream.Create(HInstance, aResourceName, RT_RCDATA);
         try
           ms.CopyFrom(rs, 0);
           ms.Position := 0;
           ms.SaveToFile('sqlite3.dll');
           Result := True;
         finally
           rs.Free;
         end;
      finally
        ms.Free;
      end;
   end;

Como verán, trato de verificar que sqlite3.dll existe en la carpeta de la app, de lo contrario, la creo a partir de un resource. Todo esto funciona perfecto desde hace años, excepto después de la reinstalación del Windows y por supuesto del Delphi 2006. Aunque le ponga la dirección completa a la verificación del sqlite3.dll, sigue dando que existe y realmente no existe pues yo la elimino manualmente.

Gracias por toda ayuda....

[ecfisa]

Hola Sapien.

Por favor, cuando incluyas código, usa las etiquetas de este modo para darle mas legibilidad :




Saludos

[Sapiem]

Desinstalé el Zeoslib 7.1.4 y puse la anterior 7.0.0 y al menos funciona ok, pero pasa a paso en debug no funciona el FileExists y sin embargo si funciona ejecutandose completo. Es algún problema del IDE.

Sigo sin entender..

[[escafandra]]

Comprueba la ruta donde guardas y donde debería estar sqlite3.dll. Puede no coincidir el path en ejecución con el path desde el debugger.

Saludos.