Jump to content

Merlink

Member
  • Posts

    3
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Italy

About Merlink

Merlink's Achievements

0

Reputation

  1. Well.. HL doesn't require so much attention. I just Zipped the whole hl directory in an SFX archive that I just unzip during the setup. Save the right Registry keys to restore your settings/key ^_^ See Ya
  2. Hello. Because i was unable to get the "copy the lnk files as is" working, i created this simple VBScript that can be used to create Real Link. Here the code: Dim WSHShell, fs, BaseMenuFolder, dPrograms Set WSHShell = WScript.CreateObject("WScript.Shell") Set fs = WScript.CreateObject("Scripting.FileSystemObject") 'Set this to the appropriate base folder - In this example, i use "Menu Avvio\Programmi" because I 'have a Localized Version of XP - ATTENTION: Remember not to put the final Slash here!!! BaseMenuFolder="\Documents and Settings\All Users\Menu Avvio\Programmi" Function ASHMakeShortcut( name, target ) Dim Shortcut,StartupPath Dim dPath dPath = mid(fs.GetSpecialFolder(WindowsFolder),1,2) & BaseMenuFolder Set Shortcut = WSHShell.CreateShortcut(dPath & "\" & name & ".lnk") Shortcut.TargetPath = target StartupPath = fs.GetParentFolderName( target ) If fs.FolderExists( StartupPath ) then Shortcut.WorkingDirectory = StartupPath End If Shortcut.Save End Function 'If you want to link some kind of file that goes to "Programs" Folder you have to customize this ' - Again remember the final slash! dPrograms = mid(fs.GetSpecialFolder(WindowsFolder),1,2) & "\Programmi" ASHMakeShortcut "Shortcut to Media Player Classic", dPrograms & "\Media Player Classic\mplayerc.exe" Ah: Save it as .vbs ! ^_^ All the things after the ' are intended to be comments. If you find any mistake, please report it to me. If you find any improvements... do the same Thanks and sorry for my bad english - I'm Italian ^_^ See Ya
×
×
  • Create New...