PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Criando atalhos para os seus sistemas feitos com Windev
Criando atalhos para os seus sistemas feitos com Windev
Débuté par BOLLER, 25 mar. 2020 21:34 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 25 mars 2020 - 21:34
// Summary: <specify the procedure action>
// Syntax:
// CreateShortcuts ()
//
// Parameters:
// None
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
Procedure CreateShortcuts()

sShortcut_Name is string = "Agenda"
sShortcut_Command is string = "C:\Progra~1\Agenda\Agenda.exe"

//Diretorio de execução
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

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

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

//criação dos atalhos
//Atalho no iniciar
//shortcutDesktop - Atalho criado na área de trabalho do Windows para todos os usuários de computador.
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
//shortcutUserDesktop = Atalho criado na área de trabalho do Windows para o usuário atual do computador.
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

//Atalho criado no menu "Iniciar .. Programas .. Inicialização" do Windows para todos os usuários de computador.
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
//Shortcut created in the "Start .. Programs .. Startup" menu of Windows for the current computer user.
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


//Menu Program
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


//Menu Iniciar
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/
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 25 mars 2020 - 21:35
ATENÇÃO

O diretório não pode ter mais que 8 caracteres!!!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/