Ok, gracias
yo estoy usando solo free pascal de lazarus la aplicación es de consola.
De todas maneras es que soy muy nuevo no se donde pegar en la unit que genera lazarus
la linea de funcion:
function MoveDir(const fromDir, toDir: string): Boolean;
y el resto:
ZeroMemory(@fos, SizeOf(fos));
fos.wFunc := FO_MOVE;
fos.fFlags := FOF_NOCONFIRMMKDIR + FOF_RENAMEONCOLLISION;
fos.pFrom := PChar(fromDir + #0);
fos.pTo := PChar(toDir);
Result := ShFileOperation(fos) = 0;
|