[Pascal] Problemas con Inno setup, al eliminar directorio y realizar un backup

[DeXon18]

 Hola buenas no llevo mucho en este tema y tengo 2 problemas.

1 me gustaría hacer una función que eliminara un directorio.
actualmente tengo esto:

Código (pascal) [Seleccionar] Expandir

Source: "F:\Mods\Desarrollo\Doc\ModPack.txt"; DestDir: {app}; Components: instalacionsi; Check: instalacion_limpia;

function instalacion_limpia(): Boolean;
begin
DelTree('C:\Games\World_of_Tes\tres_mods*', False, True, True);
end;

pero me genera un error o aviso: Warning: Line 161, Column 10: Variable 'Result' never used

2 me gustaría hacer una función que genere un backup y elimine el directorio original o creo que sera lo mas facil que lo renombre en una ruta ( de este no he logrado nada)

un saludo y mil gracias

[Danyfirex]

Hola.

Podrías hacer algo así:

Código (delphi) [Seleccionar] Expandir


uses  ShellAPI

procedure FileSystemAction(action:longint;fromDir,toDir:string);
var SHFileOp:TSHFileOpStruct;
begin
SHFileOp.wnd :=Form1.handle;
SHFileOp.wFunc :=action;
SHFileOp.pFrom :=Pchar(fromDir +#0+#0);
SHFileOp.pTo :=Pchar(toDir +#0+#0);
SHFileOp.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION;
SHFileOp.fAnyOperationsAborted:=false;
SHFileOp.hNameMappings :=NIL;
SHFileOp.lpszProgressTitle :=NIL;
SHFileOperation(SHFileOp);
end;

//llamada
FileSystemAction(FO_MOVE, 'C:\carpetaamover', 'c:\destino');



saludos

PD: el tema debería ir en programación general creo.

[Eleкtro]

Quizás no te sirva de mucha ayuda porque no se si quieres codear en Pascal por necesidad o porque lo prefieres así, pero en caso de que sea por necesidad, para el primer problema no necesitas codear en INNO setup puedes utilizar la sección [InstallDelete].

Saludos

[DeXon18]

perfecto muchas gracias, creo que con eso tengo el problema solucionado.

salu2