[semiono]

Код:

ShellExecute("reg","save HKLM\software a:\backup.dat", @SystemDir, "", "@SW_HIDE")

сам не проверял, может с ошибками.