svcsvc -  ActiveX    .
:  . orefkov@ezmail.ru
:    system32,   regsvr32 svcsvc.dll
ProgID: "Svcsvc.Service"

 1.0.0.8 (kms)
[+]     (FilterValue,  256)
[+]     (FilterValue,  512)
[-]   FilterValue 16     
    (   "|"  )

 1.0.0.6 (metaeditor)
         " "
http://www.1cpp.ru/forum/YaBB.pl?num=1166186697/47#47

 1.0.0.5
 :
GetWindowText(WH,IsList) -   
WH
	,   0
	      
	 0   -   
IsList
	,   false
	 true     
	      
	   \r\n
 

SetWindowText(WH,Text) -    
WH
	,   0
	     
	 0   -   
Text
	   
 
 Version -   

 FilterValue -   128 
      "  .vbs"
       

:
Set Svc = CreateObject("Svcsvc.Service")
Svc.FilterValue("",1 + 128,"",0,0,1)


 :
-------------------------------------------------------------
AnsiToOEM(ByVal Ansi As String) As String
    ANSI  OEM

-------------------------------------------------------------
OEMToAnsi(ByVal OEM As String) As String
    OEM  ANSI

-------------------------------------------------------------
SelectFile(ByVal ForSave As boolean, ByVal StartFileName As String, ByVal Filter As String, ByVal MultiSelect As boolean=False) As String
   .
ForSave
	true   "", false   ""
StartFileName
	  .         .
Filter
	 .         ,
	  "|". :
	" |*.md|  (*.txt)|*.txt| |*"
MultiSel
	true    , false    .
	 .   False.

:   ""  ,
  OK    ,  vbCrLf

-------------------------------------------------------------
SelectFolder(ByVal Caption As String, ByVal StartFolder As String="", ByVal Flags As Long=0,ByVal Root="") As String
    .
Caption
	 
StartFolder
	 .  .
Flags
	 .  .   0.
	&H1    -     
	&H10   -  
	&H1000 -  
	&H2000 -  
	&H4000 -  

Root
	 .  ,       ,
	  .
:       .

-------------------------------------------------------------
FileA2O(ByVal Path As String)
    ANSI  OEM

-------------------------------------------------------------
FileO2A(ByVal Path As String)
    OEM  ANSI

-------------------------------------------------------------
SelectValue(ByVal Values As String,ByVal Caption As String,ByVal Mark As boolean=False) As String
   .
Values
	    .      
	 (  ).    
	      "|c" ().   
	   .
Caption
	   .
Mark
	true    , false    .
	 .   False.

    .    
   ,  vbCrLf.
     .

-------------------------------------------------------------
SelectInTree(ByVal Values As String,ByVal Caption As String,ByVal Mark As boolean=False, ByVal OnlyItems As boolean=True) As String
    .
Values
  ,       
(  ).      
   . :
"1
	1
	2
	3
	1_1
		1_1
		1_2
2
	2_1
	2_2
3"
     |   .
c  C ( Checked) -    
e  E ( Expanded)-    "".

Caption:  .
Mark:	true    , false    .
	 .   False
OnlyItems:   .      .
	true -   ,   ,
	false -   .
	  - true.
:
   ,
      ,  "\".
, "1\1_1\1_2"
       
  ,  vbCrLf.
:
"1
1\1
1\2
1\1_1\1_1
3"


-------------------------------------------------------------
PopupMenu(ByVal Values As String,ByVal ShowIn As short=0, X As Long =0,Y As Long=0) As String
  .
Values:   ,       
(  ).      
   . :
"1
	1
	2
	3
	1_1
		1_1
		1_2
2
	2_1
	2_2
3"
 ,       "|"  
   .
  :
c  C ( Checked) -     .
d  D ( Disabled) -   .
:
"|c|Command1"

ShowIn:  " ".
0 -        .
1 -       .
   -      .
 .   0.
X, Y:    .  .

     .    
,    .

-------------------------------------------------------------
FilterValue(ByVal Values As String, ByVal Flags As Short=0,	ByVal Caption As String="", ByVal X As Long=0, ByVal Y As Long=0, ByVal W As Long=0, ByVal H As Long=0) As String
      .
        .

Values
	    ,    
	   ( vbCrLf).
Flags
	 .     :
1	-    .    ,
	     .
2	-     .
4	-     
8	-     
16	-    .     
	,      .   
	  .
32	-  .      
	  .
64	-       .
	          .
128	-        
256	-  
512	-   (      
	    )
 .   0.

Caption
	    ,    32.
	 .   ""
X, Y
	  ,    8.
	  ,   0.
	
W, H
	   
	  , 
	     0,       .
	 W () = 1,       
	    
