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;
