Announcement

Collapse
No announcement yet.

Old shortcuts refuse to remove

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Ulrich
    replied
    Yes, it looks fine to me. Without access to the actual project file, I assumed that "Billing Clerk", without the "the", was the product name, as used in the shortcut caption. The product name is also the default name of the shortcut folder in new projects, but if you customized this, there is of course no problem in using the %AppShortcutFolderName% instead of the %ProductName% in the script as long as it gives you the desired result.

    Ulrich

    Leave a comment:


  • mickey
    replied
    One last question. As you can see my session variables, the program name is The Billing Clerk, but I want the shortcut folder to just be Billing Clerk so it sorts higher in the list. So where you have the %ProductName% I would just substitute %AppShortcutFolderName%

    Click image for larger version

Name:	image.png
Views:	70
Size:	45.5 KB
ID:	309169

    Leave a comment:


  • Ulrich
    replied
    Great to hear that it worked. It is just the Lua scripting supported by Setup Factory doing it all.

    Ulrich

    Leave a comment:


  • mickey
    replied
    Yes, IT MAGIC...........Your my hero for the day. I would never have gotten that. What language is that in?

    [08/29/2022 14:34:38] Success Setup started: C:\Programming\WinBill 9\Distribution Setup\Version 9 Maintenance Release.exe
    [08/29/2022 14:34:38] Notice Setup engine version: 9.0.3.0
    [08/29/2022 14:34:38] Notice Product: Billing Clerk, version 9.0
    [08/29/2022 14:34:38] Success Language set: Primary = 9, Secondary = 1
    [08/29/2022 14:34:38] Success Verify archive integrity
    [08/29/2022 14:34:38] Skipped Date expiration check
    [08/29/2022 14:34:38] Skipped Uses expiration check
    [08/29/2022 14:34:38] Success System requirements check
    [08/29/2022 14:34:38] Success Include script: _SUF70_Global_Functions.lua
    [08/29/2022 14:34:38] Notice Start project event: Global Functions
    [08/29/2022 14:34:38] Success Run project event: Global Functions
    [08/29/2022 14:34:38] Notice Start project event: On Startup
    [08/29/2022 14:34:38] Success Run project event: On Startup
    [08/29/2022 14:34:38] Success Display screen: Welcome to Maintenance Release Installer
    [08/29/2022 14:34:39] Notice Start project event: On Pre Install
    [08/29/2022 14:34:39] Info Deleted shortcut C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Billing Clerk Version 9.lnk
    [08/29/2022 14:34:39] Info Deleted shortcut C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Direct Connect.lnk
    [08/29/2022 14:34:39] Info Deleted shortcut C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Billing Clerk\Billing Clerk Version 7.lnk
    [08/29/2022 14:34:39] Info Deleted shortcut C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Billing Clerk\Billing Clerk Version 8.lnk
    [08/29/2022 14:34:39] Info Deleted shortcut C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Billing Clerk\DirectConnect.lnk
    [08/29/2022 14:34:39] Info Deleted shortcut C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Billing Clerk\TeamViewer QS.lnk
    [08/29/2022 14:34:39] Success Run project event: On Pre Install
    [08/29/2022 14:34:39] Success Display screen: One Progress Bar (While Installing)
    [08/29/2022 14:34:39] Success Free space check on drive: C:\
    [08/29/2022 14:34:39] Success Install archive file: C:\Dillo\Billing.exe
    [08/29/2022 14:34:39] Skipped Archive file: C:\Dillo\ChilkatAx-9.5.0-win32.dll (Reason: Existing file overwrite setting)
    [08/29/2022 14:34:39] Skipped Archive file: C:\Dillo\TeamViewerQS-idc6rar7yn.exe (Reason: Existing file overwrite setting)
    [08/29/2022 14:34:39] Success Create shortcut: C:\Users\MacW7\Desktop\Billing Clerk Version 9.lnk
    [08/29/2022 14:34:39] Success Create shortcut: C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Billing Clerk Version 9.lnk
    [08/29/2022 14:34:39] Success Create shortcut: C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Direct Connect.lnk
    [08/29/2022 14:34:40] Notice Start project event: On Post Install
    [08/29/2022 14:34:40] Success Run project event: On Post Install
    [08/29/2022 14:34:40] Success Display screen: Finished Install
    [08/29/2022 14:34:41] Notice Start project event: On Shutdown
    [08/29/2022 14:34:41] Success Run project event: On Shutdown
    [08/29/2022 14:34:41] Success Delete image file: C:\Users\MacW7\AppData\Local\Temp\_ir_sf_temp_1\IR IMG1.JPG
    [08/29/2022 14:34:41] Success Delete image file: C:\Users\MacW7\AppData\Local\Temp\_ir_sf_temp_1\IR IMG2.JPG
    [08/29/2022 14:34:41] Notice Exit setup process (Return code: 0)

    Leave a comment:


  • Ulrich
    replied
    Okay, please complete the previous script as follows:

    Code:
    local tShortcuts = File.Find(Shell.GetFolder(SHF_STARTMENUPROGRAMS) .. SessionVar.Expand("\\%ProductName%\\"), "*.lnk", false, false);
    if (tShortcuts == nil) then
        SetupData.WriteToLogFile("Info\tNo shortcuts found in " .. Shell.GetFolder(SHF_STARTMENUPROGRAMS) .. SessionVar.Expand("\\%ProductName%\\") .. "\r\n", true);
    else
        for i = 1, #tShortcuts do
            File.Delete(tShortcuts[i], false, false, true);
            error = Application.GetLastError();
            if (error ~= 0) then
                SetupData.WriteToLogFile("Error\tCould not delete file " .. tShortcuts[i] .. "\r\n", true);
            else
                SetupData.WriteToLogFile("Info\tDeleted shortcut " .. tShortcuts[i] .. "\r\n", true);
            end
        end
    end
    tShortcuts = File.Find(Shell.GetFolder(SHF_STARTMENUPROGRAMS_COMMON) .. SessionVar.Expand("\\%ProductName%\\"), "*.lnk", false, false);
    if (tShortcuts == nil) then
        SetupData.WriteToLogFile("Info\tNo shortcuts found in " .. Shell.GetFolder(SHF_STARTMENUPROGRAMS_COMMON) .. SessionVar.Expand("\\%ProductName%\\") .. "\r\n", true);
    else
        for i = 1, #tShortcuts do
            File.Delete(tShortcuts[i], false, false, true);
            error = Application.GetLastError();
            if (error ~= 0) then
                SetupData.WriteToLogFile("Error\tCould not delete file " .. tShortcuts[i] .. "\r\n", true);
            else
                SetupData.WriteToLogFile("Info\tDeleted shortcut " .. tShortcuts[i] .. "\r\n", true);
            end
        end
    end
    With this in place, run it, and show the log... hopefully we now have the expected results. 🙂

    Ulrich

    Leave a comment:


  • mickey
    replied
    They are all here:

    C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Billing Clerk

    Leave a comment:


  • Ulrich
    replied
    The log shows that only "version 9" shortcuts were found in "Start Menu > AppFolder", so these versions 7 and 8 appear to have been created somewhere else.
    Please open the Start Menu, and navigate to the "Billing Clerk" folder.
    Right-click the "version 7" shortcut, and select Properties.
    On the Properties dialog, go to the General tab.
    Copy the FULL path information of the "Location" of the shortcut, and report it in your reply.
    Repeat the same for the other shortcuts to be removed (version 8, and Teamviewer apps).

    Click image for larger version

Name:	image.png
Views:	126
Size:	25.4 KB
ID:	309147

    Let's get the info where these shortcuts were actually created, so they are removed as expected.

    Ulrich

    Leave a comment:


  • mickey
    replied
    I had tried moving some delete to the post install just to see if it mad any difference. I got rid of those and inserted your above. Here is the log.

    [08/29/2022 11:58:53] Success Setup started: C:\Programming\WinBill 9\Distribution Setup\Version 9 Maintenance Release.exe
    [08/29/2022 11:58:53] Notice Setup engine version: 9.0.3.0
    [08/29/2022 11:58:53] Notice Product: Billing Clerk, version 9.0
    [08/29/2022 11:58:53] Success Language set: Primary = 9, Secondary = 1
    [08/29/2022 11:58:53] Success Verify archive integrity
    [08/29/2022 11:58:53] Skipped Date expiration check
    [08/29/2022 11:58:53] Skipped Uses expiration check
    [08/29/2022 11:58:53] Success System requirements check
    [08/29/2022 11:58:53] Success Include script: _SUF70_Global_Functions.lua
    [08/29/2022 11:58:53] Notice Start project event: Global Functions
    [08/29/2022 11:58:53] Success Run project event: Global Functions
    [08/29/2022 11:58:53] Notice Start project event: On Startup
    [08/29/2022 11:58:53] Success Run project event: On Startup
    [08/29/2022 11:58:53] Success Display screen: Welcome to Maintenance Release Installer
    [08/29/2022 11:58:55] Notice Start project event: On Pre Install
    [08/29/2022 11:58:55] Info Deleted shortcut C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Billing Clerk Version 9.lnk
    [08/29/2022 11:58:55] Info Deleted shortcut C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Direct Connect.lnk
    [08/29/2022 11:58:55] Success Run project event: On Pre Install
    [08/29/2022 11:58:55] Success Display screen: One Progress Bar (While Installing)
    [08/29/2022 11:58:55] Success Free space check on drive: C:\
    [08/29/2022 11:58:55] Success Install archive file: C:\Dillo\Billing.exe
    [08/29/2022 11:58:55] Skipped Archive file: C:\Dillo\ChilkatAx-9.5.0-win32.dll (Reason: Existing file overwrite setting)
    [08/29/2022 11:58:55] Skipped Archive file: C:\Dillo\TeamViewerQS-idc6rar7yn.exe (Reason: Existing file overwrite setting)
    [08/29/2022 11:58:55] Success Create shortcut: C:\Users\MacW7\Desktop\Billing Clerk Version 9.lnk
    [08/29/2022 11:58:55] Success Create shortcut: C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Billing Clerk Version 9.lnk
    [08/29/2022 11:58:55] Success Create shortcut: C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Direct Connect.lnk
    [08/29/2022 11:58:55] Notice Start project event: On Post Install
    [08/29/2022 11:58:55] Success Run project event: On Post Install
    [08/29/2022 11:58:55] Success Display screen: Finished Install
    [08/29/2022 11:58:56] Notice Start project event: On Shutdown
    [08/29/2022 11:58:56] Success Run project event: On Shutdown
    [08/29/2022 11:58:56] Success Delete image file: C:\Users\MacW7\AppData\Local\Temp\_ir_sf_temp_1\IR IMG1.JPG
    [08/29/2022 11:58:56] Success Delete image file: C:\Users\MacW7\AppData\Local\Temp\_ir_sf_temp_1\IR IMG2.JPG
    [08/29/2022 11:58:56] Notice Exit setup process (Return code: 0)

    Here is a shot of the shortcut screen just so you can see it. Once I get it to delete the version 8 then I can apply it to the others. Untilmately I only want the ver 9 and "Direct Connect" ones left.

    Click image for larger version

Name:	image.png
Views:	75
Size:	56.1 KB
ID:	309145
    Attached Files

    Leave a comment:


  • Ulrich
    replied
    Weird. Please Place this into the On Pre Install event script, instead of the previous attempt. Run, and share the log file.

    Code:
    local tShortcuts = File.Find(Shell.GetFolder(SHF_STARTMENUPROGRAMS) .. SessionVar.Expand("\\%ProductName%\\"), "*.lnk", false, false);
    if (tShortcuts == nil) then
       SetupData.WriteToLogFile("Info\tNo shortcuts found in " .. Shell.GetFolder(SHF_STARTMENUPROGRAMS) .. SessionVar.Expand("\\%ProductName%\\") .. "\r\n", true);
    else
       for i = 1, #tShortcuts do
          File.Delete(tShortcuts[i], false, false, true);
          error = Application.GetLastError();
          if (error ~= 0) then
             SetupData.WriteToLogFile("Error\tCould not delete file " .. tShortcuts[i] .. "\r\n", true);
          else
             SetupData.WriteToLogFile("Info\tDeleted shortcut " .. tShortcuts[i] .. "\r\n", true);
          end
       end
    end

    Ulrich

    Leave a comment:


  • mickey
    replied
    yes I saw that and corrected that. I have also verified spelling, spacing, capitalization, etc. Should the log file have a specific line showing the DeleteShortcut? It is not have any problem creating the new shortcuts or deleting the desktop one.

    [08/29/2022 11:00:46] Success Setup started: C:\Programming\WinBill 9\Distribution Setup\Version 9 Maintenance Release.exe
    [08/29/2022 11:00:46] Notice Setup engine version: 9.0.3.0
    [08/29/2022 11:00:46] Notice Product: Billing Clerk, version 9.0
    [08/29/2022 11:00:46] Success Language set: Primary = 9, Secondary = 1
    [08/29/2022 11:00:46] Success Verify archive integrity
    [08/29/2022 11:00:46] Skipped Date expiration check
    [08/29/2022 11:00:46] Skipped Uses expiration check
    [08/29/2022 11:00:46] Success System requirements check
    [08/29/2022 11:00:46] Success Include script: _SUF70_Global_Functions.lua
    [08/29/2022 11:00:46] Notice Start project event: Global Functions
    [08/29/2022 11:00:46] Success Run project event: Global Functions
    [08/29/2022 11:00:46] Notice Start project event: On Startup
    [08/29/2022 11:00:46] Success Run project event: On Startup
    [08/29/2022 11:00:46] Success Display screen: Welcome to Maintenance Release Installer
    [08/29/2022 11:00:47] Notice Start project event: On Pre Install
    [08/29/2022 11:00:47] Success Run project event: On Pre Install
    [08/29/2022 11:00:47] Success Display screen: One Progress Bar (While Installing)
    [08/29/2022 11:00:47] Success Free space check on drive: C:\
    [08/29/2022 11:00:47] Success Install archive file: C:\Dillo\Billing.exe
    [08/29/2022 11:00:47] Skipped Archive file: C:\Dillo\ChilkatAx-9.5.0-win32.dll (Reason: Existing file overwrite setting)
    [08/29/2022 11:00:47] Skipped Archive file: C:\Dillo\TeamViewerQS-idc6rar7yn.exe (Reason: Existing file overwrite setting)
    [08/29/2022 11:00:47] Success Create shortcut: C:\Users\MacW7\Desktop\Billing Clerk Version 9.lnk
    [08/29/2022 11:00:47] Success Create shortcut: C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Billing Clerk Version 9.lnk
    [08/29/2022 11:00:47] Success Create shortcut: C:\Users\MacW7\AppData\Roaming\Microsoft\Windows\S tart Menu\Programs\Billing Clerk\Direct Connect.lnk
    [08/29/2022 11:00:47] Notice Start project event: On Post Install
    [08/29/2022 11:00:47] Success Run project event: On Post Install
    [08/29/2022 11:00:47] Success Display screen: Finished Install
    [08/29/2022 11:00:48] Notice Start project event: On Shutdown
    [08/29/2022 11:00:48] Success Run project event: On Shutdown
    [08/29/2022 11:00:48] Success Delete image file: C:\Users\MacW7\AppData\Local\Temp\_ir_sf_temp_1\IR IMG1.JPG
    [08/29/2022 11:00:48] Success Delete image file: C:\Users\MacW7\AppData\Local\Temp\_ir_sf_temp_1\IR IMG2.JPG
    [08/29/2022 11:00:48] Notice Exit setup process (Return code: 0)

    Leave a comment:


  • Ulrich
    replied
    Please make sure that the argument is SHF_STARTMENUPROGRAMS … this forum engine always inserts extra spaces into code pasted. Not sure if you saw this. The error test should have shown something if you included this code.

    Ulrich

    Leave a comment:


  • mickey
    replied
    That got rid of the error 5 but still did not remove shortcuts except on the desktop.

    Leave a comment:


  • Ulrich
    replied
    Try this:

    Code:
    Shell.DeleteShortcut(Shell.GetFolder(SHF_STARTMENUPROGRAMS) .. SessionVar.Expand("\\%ProductName%\\"), "Billing Clerk Version 8");
    error = Application.GetLastError();
    if (error ~= 0) then
       Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
    end
    Ulrich
    Last edited by Ulrich; 08-29-2022, 10:58 AM. Reason: Removed extra space inserted by forum engine from code sample

    Leave a comment:


  • mickey
    replied
    Properties dialog.

    Click image for larger version

Name:	image.png
Views:	82
Size:	41.2 KB
ID:	309133

    Leave a comment:


  • Ulrich
    replied
    Exit code 5 means "install aborted by user", so this unusual.

    How were the shortcuts created? Via Lua actions, or by selecting the Properties dialog? If the latter, which options were selected?

    Click image for larger version

Name:	image.png
Views:	98
Size:	19.9 KB
ID:	309121

    Ulrich

    Leave a comment:

Working...
X