ベストアンサー

右クリックのときに

2003/03/17 19:21

完全に削除するためにいつもシフト＋DELを押して削除するのですがマウスを放さなければいけないのでちょっとめんどくさい気がします。そこで、右クリックのメニューに完全に削除という項目を増やす方法はありませんか？レジストリキー、サイトの紹介でも結構です。右クリックだけで完全に削除できるようにしたいのです。よろしくお願いします。

kyuroto
お礼率60% (129/212)

Windows NT・2000
回答数6
ありがとう数2

みんなの回答 （6）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ittochan
ベストアンサー率64% (2667/4137)

2003/03/20 18:04 回答No.6

ANo.#5は複数ファイルの時、ウィンドウが複数出てしまい駄目みたいです。送るメニュー方式はどうでしょう？同じくJScriptです。 var WshShell= new ActiveXObject("WScript.Shell"); MyHomePath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%"); fname = MyHomePath + "\\SendTo\\完全削除.js"; var fso = new ActiveXObject("Scripting.FileSystemObject"); intBtn = WshShell.Popup("完全削除を《送る》に追加します\r\r「いいえ」をクリックすると「完全削除」を削除します",0,"",51); if(intBtn==6){ var f = fso.CreateTextFile( fname , true); f.WriteLine("var fso, f;"); f.WriteLine("var objArgs = WScript.Arguments;"); f.WriteLine("fso = new ActiveXObject(\"Scripting.FileSystemObject\");"); f.WriteLine("for( i=0;i<objArgs.length;i++){"); f.WriteLine("try{"); f.WriteLine("f = fso.GetFile(objArgs(i));"); f.WriteLine("f.Delete();"); f.WriteLine("}"); f.WriteLine("catch(er){"); f.WriteLine("f = fso.GetFolder(objArgs(i));"); f.WriteLine("f.Delete();"); f.WriteLine("}"); f.WriteLine("}"); f.close(); } else { if(intBtn==7){ try{ fso.DeleteFile(fname); } catch(er){} } }

質問者

お礼 2003/11/04 00:06

わざわざ作っていただいてありがとうございます。ちょっと理想とは違いますが、非常に使いやすいです。返信が遅くなって申し訳ありませんでした。

ログインすると、全ての回答が全文表示されます。

その他の回答 (5)

ittochan
ベストアンサー率64% (2667/4137)

2003/03/19 23:41 回答No.5

Windows2000?????? コマンドプロンプトから削除するとごみ箱に行かないのでこういうの作ってみました(JScript 拡張子はJS) 一瞬コマンドプロンプトウィンドウが出るのがいやらしいです。 var WshShell= new ActiveXObject("WScript.Shell"); intBtn = WshShell.Popup("完全削除を追加します\r\r「いいえ」をクリックすると「完全削除」を削除します",0,"",51); if(intBtn==6){ WshShell.RegWrite("HKCR\\*\\shell\\del\\","完全削除","REG_SZ"); WshShell.RegWrite("HKCR\\*\\shell\\del\\command\\","cmd.exe /c del \"%L\"","REG_SZ"); } else { if(intBtn==7){ delkey("HKCR\\*\\shell\\del\\command\\"); delkey("HKCR\\*\\shell\\del\\"); delkey("HKCR\\*\\shell\\"); } } function delkey(srt){ try{ WshShell.RegDelete(srt); } catch(er){} }

ログインすると、全ての回答が全文表示されます。

tbobi
ベストアンサー率45% (544/1189)

2003/03/17 22:24 回答No.4

このソフトはどうでしょう？完全削除（フリーウェア） http://arena.nikkeibp.co.jp/tec/online/20020612/100717/ 作者サイト内のページ http://hp.vector.co.jp/authors/VA001911/freeware/index.html 「削除方法は、ドラッグ＆ドロップによるか、コンテキストメニューの「送る」に入れて使うかの２通りから選べます。」使っていないので詳細はわかりませんが、目的のものに近い機能はあるかと思います。