Removing A Start menu Deadwood

[Guest Redback]

I'm new too this , so be patient with me , thanks.

I'm trying to delete a shortcut directory from the start program menu but I have tried two commands and both don't seem to remove the folder link ( this is in XP) .

Maybe someone can enlighten me ?

P.S as ya can see , I have tried both @ProgramsCommonDir & @StartMenuCommonDir to no avail .

; ----------------------------------------------------------------------------

; Language: English

; Platform: NT /XP Server 2003

; Author: Redback

; Script Function:

; Ad-aware SE Pro Edition 1.06

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

; End User Var's

; ----------------------------------------------------------------------------

$SF_1 = "Ad-aware.exe" ; Setup File Name

$SM_1 = "\Security\System - Scanners\Ad-Aware Se Professional\" ; Location For Start Menu

$DL_1 = @ProgramFilesDir & "\Security\System - Scanners\Ad-Aware Se Professional\" ; Location For Installation

$DD_1 = "daemonB1"; Bus driver name

$DD_2 = "daemonP1"; Miniport driver name

$Opt_1 = "N"; (Y)es or (N)o - Perform a full system scan now

$Opt_2 = "N"; (Y)es or (N)o - Open the help file now

$Opt_3 = "N"; (Y)es or (N)o - Update definition file now

; Delete Ad-aware Shortcuts

$SC_1 = "N" ; (Y)es or (N)o - Delete Shortcut For Ad-Aware SE Manual

$SC_2 = "N" ; (Y)es or (N)o - Delete Shortcut For Ad-Aware SE Professional

$SC_3 = "N" ; (Y)es or (N)o - Delete Shortcut Ad-Watch SE Professional

$SC_4 = "N" ; (Y)es or (N)o - Delete Shortcut Uninstall Ad-Aware SE Professional

$SC_5 = "N" ; (Y)es or (N)o - Delete Shortcut Ad-Aware SE Professional

; ----------------------------------------------------------------------------

; Prevent Duplicates From Running

; ----------------------------------------------------------------------------

$g_szVersion = "Ad-Aware SE Professional"

If WinExists($g_szVersion) Then Exit ; It"s already running

AutoItWinSetTitle($g_szVersion)

; ----------------------------------------------------------------------------

; Script Defaults

; ----------------------------------------------------------------------------

opt("CaretCoordMode", 1) ;1=absolute, 0=relative

opt("ExpandEnvStrings", 0) ;0=don"t expand, 1=do expand

opt("MouseClickDelay", 10) ;10 milliseconds

opt("MouseClickDownDelay", 10) ;10 milliseconds

opt("MouseClickDragDelay", 250) ;250 milliseconds

opt("MouseCoordMode", 0) ;1=absolute, 0=relative

opt("MustDeclareVars", 0) ;0=no, 1=require pre-declare

opt("PixelCoordMode", 1) ;1=absolute, 0=relative

opt("RunErrorsFatal", 1) ;1=fatal, 0=silent set @error

opt("SendAttachMode", 0) ;0=don"t attach, 1=doattach

opt("SendCapslockMode", 1) ;1=store and restore, 0=don"t

opt("SendKeyDelay", 1) ;5 milliseconds

opt("SendKeyDownDelay", 1) ;1 millisecond

opt("TrayIconDebug", 1) ;0=no info, 1=debug line info

opt("TrayIconHide", 0) ;0=show, 1=hide tray icon

opt("WinDetectHiddenText", 0) ;0=don"t detect, 1=do detect

opt("WinSearchChildren", 1) ;0=no, 1=search children also

opt("WinTitleMatchMode", 3) ;1=start, 2=subStr, 3=exact, 4=...

opt("WinWaitDelay", 250) ;250 milliseconds

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

Run(@ComSpec & " /c " & "start " & $SF_1, "", @SW_HIDE)

$Title_1 = "Ad-Aware SE Professional"

; Welcome

WinWaitActive($Title_1, "Welcome")

ControlClick($Title_1, "", "Button1")

; License Agreement

WinWaitActive($Title_1, "I accept the license agreement")

ControlClick($Title_1, "", "Button4")

ControlClick($Title_1, "", "Button1")

; Check Installation

ControlClick($Title_1, "", "Button5")

ControlClick($Title_1, "", "Button1")

; Desination Location

WinWaitActive($Title_1, "different folder")

ControlClick($Title_1, "", "Button5")

ControlSetText("", "", "Edit1", $DL_1)

Send("{ENTER}")

ControlClick($Title_1, "", "Button1")

; Install options

WinWaitActive($Title_1, "Anyone who uses this computer")

ControlClick($Title_1, "", "Button4")

ControlClick($Title_1, "", "Button1")

Send("{ENTER}")

WinWaitActive ( $Title_1 , "&Finish " )

If $Opt_1 = "n" Then ControlClick( $Title_1 , "" , "Button7" )

If $Opt_2 = "n" Then ControlClick( $Title_1 , "" , "Button9" )

If $Opt_3 = "n" Then ControlClick( $Title_1 , "" , "Button8" )

Send("{ENTER}")

; Create Directorys if Non-Existant

If FileExists ( @ProgramsCommonDir & "\System - Scanners\" & $SM_1 ) = 0 Then DirCreate ( @ProgramsCommonDir & "\" & $SM_1 )

; Move Files

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Ad-Aware SE Manual.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Ad-Aware SE Manual.lnk" , 1 )

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Ad-Aware SE Professional.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Ad-Aware SE Professional.lnk" , 1 )

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Ad-Watch SE Professional.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Ad-Watch SE Professional.lnk" , 1 )

FileMove ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional\Uninstall Ad-Aware SE Professional.lnk" , @ProgramsCommonDir & "\" & $SM_1 & "\Uninstall Ad-Aware SE Professional.lnk" , 1 )

; Delete Ad-aware Shortcuts

$local = @ProgramsCommonDir & "\" & $SM_1 & "\"

If $SC_1 = "y" Then FileDelete ( $local & "Ad-Aware SE Manual.lnk" )

If $SC_2 = "y" Then FileDelete ( $local & "Ad-Aware SE Professional.lnk" )

If $SC_3 = "y" Then FileDelete ( $local & "Ad-Watch SE Professional.lnk" )

If $SC_4 = "y" Then FileDelete ( $local & "Uninstall Ad-Aware SE Professional.lnk" )

If $SC_5 = "y" Then FileDelete ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

Exit

[MHz]

You have the @StartMenuDir macro, or the @StartMenuCommonDir macro.

You have not tried the 1st, as of yet?

Edit: Just did a test install of Adaware 1.06 personal. The startmenu location is @StartMenuDir

Edited June 10, 2005 by MHz

[Guest Redback]

tried all these ! still to no avail !

If $SC_5 = "y" Then FileDelete ( @StartMenuDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

If $SC_6 = "y" Then FileDelete ( @ProgramsCommonDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

If $SC_7 = "y" Then FileDelete ( @ProgramsDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

If $SC_8 = "y" Then FileDelete ( @StartupCommonDir & "\Lavasoft Ad-Aware SE Professional.lnk" )

[JSThePatriot]

One this should be in the Support Forum (I think)?

I am having a similar problem, in the fact I cannot get any shortcuts to delete. I try it without the .lnk and with it, to no avail. If anyone has a solution for deleteing shortcuts that would be wonderful.

JS