Posté le 25 mars 2020 - 21:34 |
Procedure CreateShortcuts()
sShortcut_Name is string = "Agenda" sShortcut_Command is string = "C:\Progra~1\Agenda\Agenda.exe"
IF fDirectoryExist("C:\Program Files\") = False THEN fMakeDir("C:\Program Files\") END
IF fDirectoryExist("C:\Program Files\Agenda\") = False THEN fMakeDir("C:\Program Files\Agenda\") END
IF fFileExist("C:\Program Files\Agenda\Agenda.exe") = False fCopyFile(fCurrentDir()+"\Agenda.exe","C:\Program Files\Agenda\Agenda.exe") END
RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\", sShortcut_Name, sShortcut_Command)
IF CreateShortCut(shortcutDesktop, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ... ", check your rights (administrator privileges required)", ErrorInfo()) IF ErrorInfo() THEN 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()) END END 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()) IF ErrorInfo() THEN IF CreateShortCut(shortcutUserStartup, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ... ", check your rights (administrator privileges required)", ErrorInfo()) END END 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()) IF ErrorInfo() THEN IF CreateShortCut(shortcutUserProgram, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ... ", check your rights (administrator privileges required)", ErrorInfo()) END END END
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()) IF ErrorInfo() THEN IF CreateShortCut(shortcutUserStart, sShortcut_Name, sShortcut_Command, "", swsNormal, "A") = False THEN Error("Failure creating the shortcut in" + SysDir(srCommonDesktop) + ... ", check your rights (administrator privileges required)", ErrorInfo()) END END END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
|