Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: NTFS Links - обсуждение 
Author Message
iFFgen



PostPosted: Wed Jan 15, 2014 16:15    Post subject: Reply with quote

Может быть и "велосипед изобретаю", но для себя сделал такой вариант запуска (через vbscript) в зависимости от разрядности системы:

Code:
sPluginPath = "%COMMANDER_PATH%\Plugins\exe\NTFSLinks\"
sExe32 = "NtfsLinks_x32.exe"
sExe64 = "NtfsLinks_x64.exe"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set oArguments = WScript.Arguments

sPath = WshShell.ExpandEnvironmentStrings(sPluginPath)
sWL = oArguments(0)
sT =  oArguments(1)

If Len(WshShell.ExpandEnvironmentStrings("%ProgramFiles(X86)%")) = 19 Then
   WshShell.Run """" & sPath & sExe32 & """ """ & sWL & """ """ & sT & """ /i=config.ini"
Else
   WshShell.Run """" & sPath & sExe64 & """ """ & sWL & """ """ & sT & """ /i=config.ini"
End If


Может кому-нибудь пригодится Smile
View user's profile Send private message Visit poster's website


Powered by phpBB © 2001, 2005 phpBB Group