USBメモリの取り外しについて (ID:42254)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは． >リンク先にあったコードは一部分のようで、動作しそうも無く、 試してないというこですね．かわりにやってみました． ただし，以下の修正をしました． (1) #134を削除しました． RootName := ADrive + ':' + #134; --> RootName := ADrive + ':'; (2) 最後のところに end; を追加しました． finally // Close the volume so other processes can use the dr end; //追加 end; //追加 ボタンクリックを次のようにしました． procedure TForm1.Button2Click(Sender: TObject); begin EjectVolume('E'); end; 動作確認は，Windows 7 U64 + Dlephi XE です． 「もったいないオバケ」が出てきそうですね． >リンク先(http://okapony.hp.infoseek.co.jp/download/delphi/tips3.html)は切れてい ました；； これ，「おかぽん」さんのサイトです． 昨年だか，URL変わりました． http://www42.tok2.com/home/okapony/ で，ダウンロードのリンクのリダイレクトが (CGI)が修正されていないようです． すでにtake さんのレスがありますが，以下から DeviceReStart.lzh あるいは，SetupApiSample.lzh をダウンロードすると含まれています． http://www42.tok2.com/home/okapony/download/delphi/