名前 題名 ▼ Mr.XRAYさん > こんなコードで簡単なテストしてみましたが, > > procedure TForm1.Button1Click(Sender: TObject); > var > ADir : String; > begin > ADir := 'L:\AAA'; > if SysUtils.DirectoryExists(ADir, True) then begin > ShowMessage('AAAAA'); > end; > end; > > L:\AAA 内のファイルを表示したりして,閉じて,USBを抜いて実行 > しましたが,ShowMessageは表示されませんでした. > Windows XP(SP3) + Delphi XE です. > > SysUtils.DirectoryExists > http://docwiki.embarcadero.com/VCL/ja/SysUtils.DirectoryExists > > やっぱキャッシュ関係なのかな? GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link