- 316 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 23:40:17 ID:tuCDpiEC0]
- // DROPFILE サンプル "df.uws" - ファイル比較 DF 1.36 の場合（ファイラーのDFでは無い）
app = "?:\?????\DF\DF.exe" //■DF.exe のパス
wtitle = "DF" //■タイトル
wclass = "Afx:400000:8:10011:0:" //■クラス
//--------------------------------------------
fpath = PARAM_STR[0]
id = GETID(wtitle, wclass, 0.1)
if id<0 then id = EXEC(app)
ifb id>0 then
CTRLWIN(id, ACTIVATE)
ifb fpath<>"" then
fso = CreateOLEObj("Scripting.FileSystemObject")
dir = fso.GetParentFolderName(fpath)
fname = fso.GetFileName(fpath)
DROPFILE(id, dir, fname)
endif
endif
=== Unknown File & Directory へ関連付け "reg.uws" ===
uws = GET_CUR_DIR + "\df.uws" //■↑df.uws のパス
keyname = "DF" //■
caption = "DFで比較(&A)" //■
pth = "<#DBL>"+ GET_UWSC_DIR +"\UWSC.exe<#DBL> <#DBL>"+ uws +"<#DBL> <#DBL>%1<#DBL>"
//--------------------------------------------
ws = CreateOleObj("Wscript.Shell")
ws.RegWrite("HKCR\*\shell\"+ keyname +"\", caption ,"REG_SZ")
ws.RegWrite("HKCR\*\shell\"+ keyname +"\command\", pth ,"REG_SZ")
ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\", caption ,"REG_SZ")
ws.RegWrite("HKCR\Directory\shell\"+ keyname +"\command\", pth ,"REG_SZ")
// DropHandler （本家サンプルで *.uws を関連付けた場合）
ws.RegWrite("HKCR\UWSCscript\shellex\DropHandler\","{60254CA5-953B-11CF-8C96-00AA00B8708C}","REG_SZ")
|
 |
