PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Criando atalhos para os seus sistemas feitos com Windev
Criando atalhos para os seus sistemas feitos com Windev
Iniciado por BOLLER, mar., 25 2020 9:34 PM - 1 resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em março, 25 2020 - 9:34 PM
// 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/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em março, 25 2020 - 9:35 PM
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/