[2270]
Re2:編集ファイルの削除
すい
>については、出来ませんか?
>外部コマンド実行だとロックで怒られるし。
美しくないマクロの例。dosプロンプトが開くし。
動作確認は Win95 にて。
//------------------------------
// 実行には PPA.DLL が必須です。
// マクロファイルの拡張子は .PPA でなくてはなりません。
var
filename:string;
yn:Integer;
begin
filename := S_GetFilename(); // 編集中のファイルのフルパスを取得
yn := MessageBox('編集中のファイル ' + filename + ' を削除します。よろしいですか?' , 'ファイル削除' , $133 ); // [はい(Y)] [いいえ(N)] [キャンセル],デフォルトボタン=2,△!
if( yn = 6 ) then
begin
S_FileClose(); // 閉じて(無題)
S_ExecCommand( 'start /m command /c del "' + filename + '"', 0 );
// Exec('start','/m command.com /c del "' + filename + '"' , False ); // テスト
// S_WinClose(); // ウィンドウを閉じる -なら行頭の // を消して
end
end;
//------------------------------
>ファイル内容を空にして保存すると、
>「ファイルを削除しますか?
> 空のファイルとして残しますか?」
>を訊いて選択できればよかったのですが。
↑私もこの機能が欲しくて大分前、要望したのですが...