|
No instalátor nemám je to malá aplikace kde jen potřebuju zajistit když user smaže ikonu aby se zase po spuštění vytvořila :c) Jinak jsem konečně našel toto: Deklarace:
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As IntPtr, ByVal pszPath As String, ByVal nFolder As Long, ByVal fCreate As IntPtr) As Integer
Const CSIDL_COMMON_STARTMENU = &H16 'All Users\Start Menu
Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19 'All Users\Desktop
a volání
Dim sPath As String = Space(260)
Dim lTmp As Integer = SHGetSpecialFolderPath(Me.Handle, sPath, &H16, 0)
sPath = sPath.Substring(0, sPath.IndexOf(Chr(0)))
|