[3532]
RE: WSH
みく
CWSHMacroManager::Creator関数を以下のような感じにすると、
PerlScriptが動きます。
if( ReadRegistry( HKEY_CLASSES_ROOT, FileExtWithDotW, NULL, FileTypeW, sizeof( FileTypeW ) / sizeof( wchar_t ) ) )
{
wcscpy( FileTypeW_save, FileTypeW ); //save
wchar_t* suffix[] = {
L"\\ScriptEngine", //for JScript, VBScript, RubyScript
L"ScriptFile\\ScriptEngine", //for PerlScript
NULL
};
for( int i = 0; suffix[i]; i++ ){
wcscpy( FileTypeW, FileTypeW_save );
wcscat( FileTypeW, suffix[i] );
if( ReadRegistry( HKEY_CLASSES_ROOT, FileTypeW, NULL, EngineNameW, sizeof( EngineNameW ) / sizeof( wchar_t ) ) )
{
Result = new wchar_t[ wcslen( EngineNameW ) + 1 ];
wcscpy( Result, EngineNameW );
break;
}
}
}