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: wdx ActiveX 
Author Message
Lev



PostPosted: Mon Jan 16, 2012 17:28    Post subject: Reply with quote

Я надеялся, что выложенная версия станет затравкой для разговора о желаемых методах, свойствах и т.п., но т.к. за год было 0 вопросов-ответов + выловил глючок с некоторыми wdx-плагинами, то забросил на время.
Из методов свойств в выложенной версии, кажись только Fields и About. Проще код примера откомментировать.
Code:
On Error Resume Next
'создаём экземпляр ActiveX
Set wdx = CreateObject("tc_wdx.wdx")
'проверка на существование (зарегистрированность)
If Err.Number <> 0 Then
   WScript.Echo "Please install TC_wdx!"
   WScript.Quit 1
End If
On Error GoTo 0

'задаём путь к wdx плагину, чьи поля мы хотим получать
wdxPluginPath="c:\WINCMD\Content_wdx\exeinfo\exeinfo.wdx"
'задаём путь к файлу из которого получаем поля
'в данном случае я плагином exeinfo.wdx получаю поля из него же самого
FilePath=wdxPluginPath
'wdx.Fields - поля плагина
f = wdx.Fields(wdxPluginPath,FilePath)

For i = 0 To Ubound(f)-1
  'f(i,0) - название поля
  'f(i,1) - полученное значение поля
  s=s & f(i,0) & " = " & f(i,1) & vbCrLf
Next
MsgBox s
'About он и есть About
wdx.About


позже в невыложенной эксперементировал с
wdx.RegisteredPlugins - список зарегистрированных в тотале плагинов
wdx.PluginFields(wdxPluginPath) - названия полей плагинов и их типы
помнится, с плагинами возвращающими даты, ошибки у меня пока
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group