18
I got it to work, but there was one extension that I couldn't get to work though (for .PPTX to open as a Slideshow not in Editor), it had a "/S" argument before the FilePath argument, it wasn't being read correctly by PowerPoint. In the FileType Setup it works when I Launch it though (can't replicate that execution behavior in the MultiScript sadly.) This code is heavily truncated:
@var $path = GetSourceFocusPath();
@var $ext = PathGetFileExtPart( $path, 2 );
// normalize to lowercase
$ext = StrToLower($ext);
@var $matched = 0;
if ( $ext == 'zip' )
{
@var $fbneo = PathGetNamePart( GetSourceFocusPath(), 1 );
MC.Run CMD='"C:\\Users\\dell\\Documents\\FB Neo x64 (DO NOT DELETE)\\fbneo64.exe"' ARG="{$fbneo} -w";
$matched = 1;
}
//txt,ini,log,ahk,mtxt,vbs,conf,cpp,h,rc,asm,nfo,info,ps1,md,xml,jsee,cfg
if ( $ext == 'txt' )
{
MC.Run CMD='"C:\\Users\\dell\\Downloads\\thumbstick\\notepad2-4-2-25-en-win\\Notepad2.exe"' ARG='"{$path}"';
$matched = 1;
}
// PowerPoint
if ( $ext == 'pptx' )
{
//@var $ppa = "/S";
MC.Run CMD='"C:\\Program Files\\Microsoft Office\\root\\Office16\\POWERPNT.EXE"' ARG='"{$PPA} {$path}"';
$matched = 1;
}
// DOSBox for EXE files
if ( $ext == 'exe' )
{
@var $srcpath = GetSourcePath();
@var $srcname = GetSourceFocusName();
MC.Run CMD='"D:\\Games\\dbgl090\\DOSBox-0.74-3\\DOSBox.exe"' ARG='-c "mount c \"{$srcpath}\"" -c "c:" -c "{$srcname}" -fullscreen -exit';
$matched = 1;
}
// fallback if nothing matched
if ( $matched == 0 )
{
MessageBox("Error", "Undefined Behavior", 0);
}
File Type Setup (Working)::
Program Path:: C:\Program Files\Microsoft Office\root\Office16\POWERPNT.EXE
Program Parameters:: /S "${filepath}"
P.S: Nevermind, I figured it out::
// PowerPoint
if ( $ext == 'pptx' )
{
MC.Run CMD='"C:\\Program Files\\Microsoft Office\\root\\Office16\\POWERPNT.EXE"' ARG='/S "{$path}"';
$matched = 1;
}
Also if you intend on using *.QALNK shortcuts with filepath arguments this will come in handy !::
// Kega Fusion Emulator
if ( $ext == 'sms' )
{
MC.Run CMD='"cmd.exe"' ARG='/c start "" "D:\Games\Genesis ROMs\Fusion364-2\KegaFusion.qalnk" "{$path}"';
$matched = 1;
}
Recent Posts