CreateShortcuts()

sShortcut_Name is string = "Ranna"
sShortcut_Command is string = "C:\Projeto\Ranna.exe"

//Diretorio de execução
IF fDirectoryExist("C:\Temp\") = False
fMakeDir("C:\Temp\")
END

//Copiar arquivo
IF fFileExist("C:\Temp\Ranna.exe") = False
fCopyFile(fCurrentDir()+"\Ranna.exe","C:\Temp\Ranna.exe")
END

//Criar Autorun no Registro
RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\", sShortcut_Name, sShortcut_Command)

//criação dos atalhos
IF CreateShortCut(shortcutStart, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN
Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ...
", check your rights (administrator privileges required)", ErrorInfo())
//ELSE
// Info("The shortcut was created")
END

IF CreateShortCut(shortcutStartup, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN
Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ...
", check your rights (administrator privileges required)", ErrorInfo())
//ELSE
// Info("The shortcut was created")
END

IF CreateShortCut(shortcutUserDesktop, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN
Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ...
", check your rights (administrator privileges required)", ErrorInfo())
//ELSE
// Info("The shortcut was created")
END

IF CreateShortCut(shortcutProgram, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN
Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ...
", check your rights (administrator privileges required)", ErrorInfo())
//ELSE
// Info("The shortcut was created")
END