• Viernes 29 de Marzo de 2024, 12:03

Autor Tema:  copiar archivos .dll a la carpeta SysWow64 de windows7  (Leído 5012 veces)

goom83

  • Nuevo Miembro
  • *
  • Mensajes: 16
    • Ver Perfil
copiar archivos .dll a la carpeta SysWow64 de windows7
« en: Miércoles 9 de Noviembre de 2011, 09:32 »
0
estoy haciendo un instalador para un proyecto, lo que realmente quiero es copiar archivos .dll a la carpeta de SysWow64 de windows 7 y lo que pasa es que me sale un mensaje que dice : "Necesitará proporcionar permisos de administrador para copiar a esta carpeta " y asi lo hace para cada uno de los archivo que quiero copiar que en realidad son 4 asi que cuatro veces aparece este mensaje y quiero evitarlo con alguna funcion o algun tip.

la funcion que estoy utilizando es:

function CopyFileEx(Origen,Destino : String) :
  LongInt;
  var
    F : TShFileOpStruct;
    sOrigen, sDestino : String;
  begin
    Result := 0;
    sOrigen := Origen + #0;
    sDestino := Destino + #0;

    with F do
    begin
      Wnd   := Application.Handle;
      wFunc := FO_COPY;
      pFrom := @sOrigen[1];
      pTo   := @sDestino[1];
      fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
    end;

    Result := ShFileOperation(F);
end;